
File Number S3 60-36 (DOS) 
Order No. GY24-5151-2 






Program Logic 



DOS Supervisor and Related Transients 



Program Number 3G0N-CL-453 

This reference publication describes the internal 
logic of the IBM Disk Operating System, Supervisor 
and Physical and Recovery Transient Programs. It 
is for persons involved in program maintenance and 
for system programmers altering the program 
design. Program logic information is not needed 
for normal operation of these programs. This 
publication is a supplement to the program 
listing. 

Effective use of this manual requires an 
understanding of IBM system/360 or System/370 
operation and of IBM Disk Operating System control 
and service programs, macro instructions, and 
operating procedures. Reference publications for 
this information are listed in the Preface of this 
manual. 



DOS Release 25 



Third Edition (June 1971) 

This publication was formerly titled IBM System/360 Disk 
Operating System. Supervisor and Physical Transients Program 
Logic Manual , Although titles of some DOS publications 
(including this one) have been simplified, the change does 
not affect the contents of the publication. 

This edition applies to Release 25 of IBM Disk Operating 
System and to all subsequent releases until otherwise 
indicated in new editions or Technical Newsletters. Changes 
are continually made to the specifications herein; before 
using this publication in connection with the operation of 
IBM systems, consult the latest System/360 and System/370 SRL 
Newsletter, GN2 0-0360, for the editions that are applicable 
and current. 

This edition, GY24-5151-2, is a major revision of, and 
obsoletes, GY2 4-5151-1. 

Summary of Amendments 

This edition documents addition of, and changes to, the 
following information: PCIL (Private Core Image Library), 
JAI (Job Accounting Interface) , System/370 RMS (Recovery 
Management Support) , IDRA (Independent Directory Read- in 
Area) , OLTEP (On-Line Test Executive Program) , EREP 
(Environmental, Recording Editing, and Printing) 
enhancements, IBM 3211 Printer, System/360 Model 22, and 
certain maintenance enhancements. 

Changes or additions to the text and illustrations are 
indicated by a vertical line to the left of the change. 

Requests for copies of IBM publications should be made to 
your IBM representative or to the IBM branch office serving 
your locality. 

A form for reader's comments is provided at the back of this 
publication. If the form has been removed, comments may be 
addressed to IBM Laboratory, Publications Department, 
P.O. Box 24, Uithoorn, Netherlands. Comments become the 
property of IBM. 

© Copyright International Business Machines Corporation 1968, 1970, 1971 



PREFACE 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM Disk 
Operating System supervisor and physical 
and recovery transient programs. It 
supplements the program listings by 
providing descriptive text and flowcharts. 



Publications related in subject matter 
to the seven system control PLMs are: 



° DOS Supervisor and I/O Macros , 
GC24-5037 



The lists that follow give the titles of 
companion system control PLMs, 
prerequisite, and related publications. 

Note : Although titles of some DOS 
publications have been simplified, the 
change does not affect the contents of 
the publications. 

For overall system control logic 
description, this PLM is to be used with 
six other PLMs: 

• Introduction to DOS Logic , GY24-5017 

• DOS IPL and Job Control , GY24-5086 

• DOS Librarian , GY24-5079 

• DOS Linkage Editor , GY24-5080 

• DOS Logical Transients , GY24-5152 

• DOS System Service Programs , GY24-5153 



Prerequisite to the effective use of the 
seven PLMs are the following publications : 

• IBM System/360 Principles of Operation , 
GA22-6821 

• DOS System Control and Service , 
GC24-5036 

• IBM System/360 Disk and Tape Operating 
Systems, Assembler Language , GC24-3414 



° DOS System Generation , GC24-5033 

• DOS Operating Guide , GC24-5022 

• DOS Messages , GC24-5074 

• DOS Data Management Concepts , GC24-3427 

Titles and abstracts of other related 
publications are listed in the IBM 
System/360 and System/370 Bibliography , 
GA22-6822. 

This manual consists of seven major 
sections. The first section is an 
introduction to the supervisor and 
transient programs. The next section 
describes the generation and organization 
of the supervisor. The next five sections 
describe the detailed operation of the 
supervisor, physical IOCS, physical 
transients, and error logging and recovery. 
The last section of the manual, the 
appendixes, contains the label list, error 
messages, microfiche cross-reference index, 
and other references for use in analyzing 
program details. 

The flowchart symbols used in this 
manual conform with the flowcharting 
standards of the American National 
Standards Institute, Inc. Numerals, such 
as 00, identify the program or general 
level flowcharts. The detailed flowcharts 
are identified by letters AA through ZZ. 
See Appendix F for an explanation of the 
flowchart symbols . 
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INTRODUCTION 



The resident version of the IBM System/360 
Disk Operating System (DOS) , System 
Control, provides disk operating system 
capabilities for 16K and larger System/360 
configurations. At least one IBM 2311 , 
2314 , or 2319 DASD device is required. 



Systems larger than 16K can benefit from 
this 16K package if they do not require the 
expanded functions of the larger disk 
operating system packages offered by IBM. 
The system is disk resident, using the IBM 
2311, 2314, or 2319 DASD device for on-line 
storage of all programs. Depending on the 
requirements of the particular application, 
the system can be expanded to include all 
processing programs used to perform the 
various jobs of a particular installation, 
or it can be tailored to a minimum system 
to control a single program. 

The operating system includes the 
following components: CPU, input/output 
channels, input/output control units, 
input/output devices, microprogramming, 
system control programs, support programs, 
user programs, user data files, 
teleprocessing capability, and multiple 
programming capability. This PLM discusses 
the supervisor and the physical transients 
that are part of system control. The 
supervisor and physical IOCS are 
specifically designed for a particular 
configuration by means of a one time 
assembly (generation time) . They require 
reassembly only if the configuration 
changes. 

The supervisor and physical IOCS provide 
the required interface between the program 
being executed and the other components of 
the operating system. The program 
currently being executed is identified to 
the operating system as the current 
program. The last program interrupted is 
identified as the problem program. The 
problem program or the current program can 
be, at any given time, either a system 
control program, a support program, or a 
user program. 

The supervisor operates with problem 
programs when job processing (problem 
program execution) occurs. The supervisor 
is divided into two parts: 

1. The resident part, called the 
supervisor nucleus ; 



2. The nonresident part, called a 
supervisor transient . 

The nucleus is loaded into main storage 
at IPL time and remains there throughout 
job processing. Transients are loaded, as 
needed, from the core image library of 
SYSRES. When one transient has finished 
performing its service, it can be overlaid 
by another required transient. This 
technique makes maximum use of main storage 
allotted to the supervisor. The basic 
functions performed by the supervisor are: 

o storage protection (required for 
multiprogramming) . 

o Interrupt handling. 

© Channel scheduling. 

o Tape error statistics recording. 

o Device error recovery. 

o Operator communications. 

o Program retrieval (fetch or load). 

o End-of-job processing. 

© Timer services (optional) . 

Each installation must generate its own 
custom made supervisor by means of a one 
time assembly. Supervisor generation 
macros control the generation of the 
supervisor control program. The user must 
reassemble the supervisor if its functions 
are to be modified (for example, when an 
installation configuration changes) . 



MULTIPROGRAMMING 



For systems with main storage equal to or 
greater than 24K, disk operating system 
offers multiprogramming support. This 
support is referred to as fixed partitioned 
multiprogramming , because the number and 
size of the partitions is defined during 
system generation. After system 
generation, the operator may redefine the 
size of the partition to meet the need of a 
specific program. Figure 1 shows the 
relationships among programs in a 
multiprogramming environment. 
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Main Storage Organization 
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\ ■;■■-■ I 
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\ 
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General 
Registers 
9 through 8 
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\ 
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\ 
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Notes: 

(7) Standard tape labels = 80 bytes; sequential DASD and DTFPH (MOUNTED = SINGLE) = bytes; 
and DTFIS, DTFDA and DTFPH (MOUNTED = ALL) = 84 bytes + 20 bytes per extent statement. 

(2) Job start time, for time stamp, is stored in last 4 bytes of this area (bytes 84-87) when BJF option 
is specified. 

(3J Floating point register save area is required only when floating point feature is specified for 
supervisor generation. 

Figure 1. Multiprogram Main Storage Organization 



BACKGROUND VS FOREGROUND PROGRAMS 



Foreground and background are the two types 
of problem programs in multiprogramming. 
Foreground programs may operate in either 
the batched- job mode or in the 
single-program mode. Background programs 
and batched- job foreground programs are 
initiated by job control from the 
batched- job input streams. Single-program 
foreground programs are initiated by the 
operator from the printer- keyboard. When 
one completes, the operator must explicitly 
initiate the next program. Foreground and 
background programs initiate and terminate 
independently of each other. 



The system can operate one background 
program and one or two foreground programs 
simultaneously. The supervisor controls 
priority for CPU processing , giving 
foreground programs priority over 
background programs. All programs operate 
with interrupts enabled. When an interrupt 
occurs, the supervisor gains control, 
processes the interrupt, and gives control 
to the highest priority program that is in 
a ready state. 

Control is taken away from a high 
priority program when that program 
encounters a condition that prevents 
further processing until a specified event 
has occurred. Control is taken away from a 
lower priority program at the completion of 
an event for which a higher priority 
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program is waiting. When all programs in 
the system are simultaneously waiting 
(i.e., no program can process), the system 
is enabled for interruptions in the wait 
state. 

The supervisor receives and processes 
interruptions. When an interruption 
satisfies a program 1 s wait condition, that 
program becomes active and competes with 
other programs for CPU processing time. 

In addition to at least 2 UK positions of 
main storage, multiprogramming support 
requires the storage protection feature. 

If the batched- job foreground option is 
selected when the system is generated, all 
types of programs may be run as foreground 
programs. (Specifying the option causes 
the generation of individual communications 
regions for each partition.) 



The maintask initiates the subtask(s) 
via the ATTACH macro instruction. I/O 
overlap is facilitated because subtasks 
have higher priority than the maintask for 
CPU time within the partition. The 
subtasks are assigned priority in the order 
they are attached, the first attached 
subtask having the highest priority and the 
last attached subtask having the lowest 
priority. The partitions" priorities are 
unchanged • 



Each subtask operates independently of 
the maintask and has its own registers and 
save area. Communication and 
synchronization between subtasks is 
accomplished by use of the POST and 
WAIT/WAITM macro instructions. Protection 
of shared data areas (resources) is 
accomplished by the ENQ macro and the 
corresponding DEQ macro. 



ASYNCHRONOUS PROCESSING 



Asynchronous processing, also known as 
multitasking, provides a multiprogramming 
facility within any or all of the 
partitions of an MPS supervisor. An 
asynchronous program consists of two parts: 

1. The main program (maintask) that 
appears in the EXEC statement. 

2. One or more subprograms (subtasks) 
that must be in main storage in the 
same partition as the maintask. 



Because only one set of symbolic I/O 
units exists for each partition, I/O 
assignments for all tasks must be made 
prior to the EXEC statement of the 
maintask. 



A minimum of 24K bytes is required for 
multiprogramming, BTAM, 1412/1419/1255/1259 
MICR document processing, and for assigning 
system I/O files to disk. The QTAM Message 
Control program requires a minimum of 32K 
bytes of main storage. The use of QTAM 
with two batched- job- foreground partitions 
requires a minimum of 64K bytes. 
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SUPERVISOR GENERATION AND ORGANIZATION 



This section discusses: 



SUPERVISOR GENERATION 



• Techniques used in supervisor 
generation. 



• Generation macros and their optional 
operands - 



• The relationship between the outer 
generation macros and the inner macros 
that generate the bulk of the 
supervisor code. 

• The organization of the supervisor „ 
including the nucleus code, tables, and 
information blocks. 

To understand macro definition language 
structure and usage, refer to the DOS 
Supervisor and I/O Macros publication 
listed in the front of this manual. With 
this information, an SSERV listing of the 
supervisor generation macros, and the PLM 
material, the reader can identify those 
sections of code that are generated for his 
own supervisor program. The basic 
instruction used in macro definition 
language is the AIF (ask if) statement. 
The following examples show how it is used: 

1. AIF UBG20).MP1 

This instruction asks if 
multiprogramming support is required. 
If BG20 is on, the next significant 
line in the SSERV listing is found at 
the label, .MP1, and any intervening 
code is rejected by the language 
translator. If BG20 is not on, the 
next sequential line on the SSERV 
listing is significant. 

2. AIF (NOT SBG20).NO23 

This instruction tests the opposite 
status of the BG20 switch. In this 
case, the line at location .N023 is 
the next significant line in the SSERV 
listing only when BG20 is not on; that 
is, only when multiprogramming support 
is not required. 

A detailed description of the AIF 
instruction and the other instructions used 
in the SSERV listing is given in the 
Systems Reference Library publication, IBM 
System/360 Disk and Tape Operating Systems, 
Assembler Specifications , GC24-3414. 



The supervisor is assembled with a series 
of macros that describe the installation's 
functional requirements and its 
configuration. At system generation time, 
a source deck containing the supervisor 
generation macros is assembled into an 
object deck. The job control program 
places the results of the assembly on 
SYSLNK (I/O device for the linkage editor 
program) and calls the linkage editor 
program. The deck is link-edited and 
cataloged to the core image library on 
SYSRES. A corresponding core image library 
directory entry is posted for the new 
supervisor, and the Program Information 
Department (PID) supervisor directory entry 
is deleted. 



Normally, a condense maintenance program 
would then be executed to remove the PID 
supervisor from the core image library. 
The procedures and sequence of events used 
in system generation are described in the 
publication, DOS System Generation , 
GC24-5033. 

Whenever a new supervisor generation is 
required, take these general steps: 

1. Punch the macro instructions and the 
selected optional operands into a card 
deck. 

2. Execute an assembly and put the object 
modules on SYSLNK (using an include 
control statement with no operand) via 
the job control program. 

3. Link-edit the new supervisor, 
cataloging it to the core image 
library, deleting the old supervisor 
directory entry, and posting the new 
supervisor directory entry. System 
control programs must be cataloged in 
the same run as the supervisor. 

4. Re-IPL with the new supervisor. 

5. Execute a maintenance program to 
condense the core image library, 
deleting the old supervisor program. 

Figure 2 shows the allocation of storage 
for the generated supervisor. 
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Note 1 : For PSW format see Figure 39. For CSW format see Figure 41 . For CAW format see Figure 40. 
Note 2: Total of 9 subtasks PIBs generated. 
Note 3: Maximum of 225 entries generated. 



Figure 2. Supervisor Storage Allocation 
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SUPERVISOR GENERATION MACROS 



The list of supervisor macros and optional 
operands in Figure 3 gives the reader: 

• Supervisor generation macro names. 

• Required macro sequence (as listed in 
Figure 3 ) . 

• Macro parameters. (Where there is an 
assumed value, that value is 
underlined.) 

• A brief description of what the 
generated macro does. 

• A brief description of what the 
individual parameter options do. 



MACRO RELATIONSHIPS 



predetermined and cannot be changed by the 
user. The logical organization depends on 
the parameter options selected at 
generation time. Figure 2 is a main 
storage map of the assembled supervisor , 
which illustrates the supervisor physical 
organization in four major areas: 

• Low Core 

• Nucleus Code 

• I/O Tables and Information Blocks 

• Logical and Physical Transient Areas 

The logical organization is not 
described in this manual because of the 
variety of options available. You must 
determine the logical organization for 
individual supervisor generations. By 
using the program level flowcharts to point 
to the detailed flowcharts, you may select 
the correct group of flowcharts for the 
desired generation. 



The code generated by the assembler for any 
selected supervisor generation is a 
function of the generation macros described 
in Figure 4 and of a group of inner macros 
called by the generation macros. The 
primary purpose of the generation macros is 
to set global values, based on parameter 
options, that can be tested by the inner 
macros. These macros then generate the 
bulk of the supervisor code. The specific 
instructions assembled depend on the global 
settings. Some of the generation macros 
also generate code; however, these can be 
treated as exceptions and are identified in 
this subsection. 

The most important global values used in 
supervisor generation are the B-globals. 
Therefore, this subsection emphasizes the 
generation macros that establish B-global 
values. However, some A-globals that are 
tested in the same manner as B-globals are 
also described in this subsection. 
C-globals are not described. Two figures 
in this subsection show macro 
relationships. Figure 5 shows the code 
generated, if any, and the globals set, if 
any. Figure 6 indicates the on-off 
conditions of the globals. 



ORGANIZATION 



The physical organization of the supervisor 
depends on the sequence of the supervisor 
generation macros. The sequence is 



LOW CORE 



The first 128 bytes of main storage contain 
identical assignments for System/360 and 
System/370. The systems differ starting 
with byte 128. On System/360, DOS reserves 
a diagnostic scan-out area under conditions 
described in this section. On System/370, 
DOS allocates bytes 128-511 for specific 
hardware requirements. Low core 
assignments are made for both systems by 
DOS, and the user should not alter them. 

The main storage locations that make up 
low core can be classified as PSWs, CSWs, 
CAWs, and main storage areas. PSWs, CAWs, 
and CSWs are described in the section 
Physical Input/Output Control System 
(PIOCS) . The main storage areas include: 



Byte (hex) 
0-3 



0-3 



0-4 



Function 

System/360: Contains SEREP 
error codes 00 and 01, or 
WAIT error codes 03-60 
(Figure 3). 

System/370: Contains SEREP 
error codes A to I (X'Cl* to 
X'CS"), or WAIT error codes 
03-60 (Figure 3). 

Message area when SYSLOG is 
disabled. 
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Byte 


Byte 1 


Byte 2 


Byte 3 


Explanation 


SYSTEM/360 SEREP Codes: 


X'OO' 


X'E2' 


Not used 


Not used 


Machine check. Load SEREP. Re- 1 PL system. 


X'GT 


X'E2' 


Reserved 


Reserved 


Channel failure: interface or channel control check. Load SEREP. Re-IPL system. 


SYSTEM/370 SEREP Codes: 


x'cr 


X'E2' 


A, 1, S* 


Not used 


Unrecoverable machine check. 


X'C2' 


X'E2' 


Not used 


Not used 


Unrecoverable channel failure during RMS fetch. 


X»C3' 


X'E2' 


A, 1, S* 


Not used 


Channel failure on SYSLOG when RMS message scheduled. 


X'C4' 


X'E2' 


A, 1, S* 


Not used 


Reserved (should not occur) 


X'C5 l 


X'E2' 


A, 1, S* 


Not used 


Channel failure; ERPIBs exhausted. 


X'C6' 


X'E2' 


A, 1, S* 


Not used 


Channel failure; two channels damaged or a damaged channel situation occurred while 
RMS was executing an I/O operation. 


X'C7' 


X»E2' 


A, 1, S* 


Not used 


Channel failure; system reset was presented by a channel. 


X'C8' 


X'E2' 


A, 1, S* 


Not used 


Channel failure; system codes in ECSW are invalid. 


X'C9' 


X'E2' 


A, 1, S* 


Not used 


Channel failure; channel address invalid. 


SYSTEM 


/360 and SY 


STE^370 W 


AIT Codes: 




X'03» 


X'E6' 


Channel 


Unit 


DOS unrecoverable disk error during program fetch. The first six sense bytes are 
placed in hex bytes 5-A. Re-IPL system. 


X'04' 


X'E6« 


Not used 


Not used 


Cancel condition has occurred while performing a Supervisor function (not a Supervisor 
detected problem-program error). Normally a Program Check while in Supervisor State. 
Re-IPL System. 


X'05' 


X'E6' 


Channel 


Unit 


I/O Error Queue has overflowed as the result of an I/O error on a program fetch channel 
program . Re- 1 PL system . 


X'Oo' 


Not used 


Not used 


Not used 


Reserved (should not occur). 


X'07' 


X'E6' 


Channel 


Unit 


IPL I/O error. Channel and unit indicate whether SYSRES or communication device. Re- 
IPL system. 


X'08'to 




Channel 


Unit 


Error recovery messages. Refer to OP messages in DOS Messages, found in Preface. 


X'60' 











*Note: A (X'CT) = SYSREC error recording unsuccessful. 
I (X'C9') = SYSREC error recording imcomplete. 
S (X'E2' ) = SYSREC error recording successful. 

Figure 3. Low Core Error Bytes 



14 



When MPS=NO or YES: 
Contains address of 
background communications 
region. 



54 



Contains system time of day 
set by job control and IPL, 
updated by the supervisor 
timer routine (optional) . 



When MPS=BJF: Contains 
address of communications 
region of the active 
partition. 



80 



Beginning of the System/360 
diagnostic scan-out area or 
the System/370 permanently 
allocated low core. 



50 



Contains the system timer 
used with microprogramming. 
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System/360 Diagnostic Scan-Out Area 



NUCLEUS CODE 



The DOS supervisor for the System/ 360 
records machine check interrupts and 
channel inboard errors in the diagnostic 
scan-out area. The area is generated at 
SYSGEN and begins at byte 12 8 (X'SO') of 
low core. The length of the area depends 
on the SYSGEN option MCRR (Machine Check 
Recording and Recovery) . 



When MCRR=NO, the diagnostic scan-out 
area is 12 bytes long. When MCRR=YES, the 
length of the area is model-dependent: 



Model 30 area, 12 bytes 
Model 40 area, 196 bytes 
Model 50 area, 168 bytes 

Note : System/370 does not generate a 
diagnostic scan-out area to diagnose 
interrupts and errors. 



The main storage map (Figure 2) illustrates 
the major routine and subroutine 
organization of the supervisor. Specific 
instructions are included or omitted 
depending on generation options. This 
manual describes the disk error recovery as 
the resident error recovery routine. 

The background communications region 
does not change from generation to 
generation. Figure 8 illustrates the 
structure of the communications region. 
The starting address of the communications 
region is made available to a user in 
general register 1 through the COMRG macro. 
For certain options, extensions to the 
communications regions are generated at the 
end of the I/O Tables by the SEND macro. 
Figure 9 shows the contents of the 
communications region extensions. 



I/O TABLES 



System/ 370 Permanently Allocated Low Core 

Byte Function 

0-127 Identical to System/360 

128-167 Reserved 

168-172 Channel ID 

173-175 ICEL pointer 

176-181 Limited channel logout (ECSW) 

182 Extended channel status 

183-184 Validity 

185-187 I/O address 

188-231 Reserved 

232-235 Machine check interruption code 

236-247 Reserved 

248-251 Failing-storage address 

252-255 Region code 

256-351 Fixed logout area 

352-383 Floating-point register save area 

384-447 General register save area 

448-511 Control register save area 



The I/O tables (See Figure 7) that comprise 
this section of the supervisor establish 
the interface between a specific program 
and the hardware channels. For every 
device used on the system, there must be a 
PUB (Physical Unit Block). For every 
logical unit name (SYSXXX) used, there must 
be a LUB (Logical Unit Block) . When an I/O 
request is made, an entry is made in CHANQ 
(the channel queue) . The entry contains a 
CCB (Channel Command Block) address which, 
in turn, points to a CCB that contains a 
code (LUB table index) for the logical unit 
name. 

The supervisor processes the request 
when possible on the device assigned to the 
logical unit. If the TEB option was 
selected at generation time, counts of tape 
errors by unit are kept in the TEBs (Tape 
Error Blocks) . If the TEBV option was 
selected „ counts of tape errors by volume 
are kept in TEBVs (Tape Error Blocks by 
Volume) . 

To understand the interaction among the 
various I/O tables, review the 
classification and sequence of the symbolic 
unit references (SYSXXX) . The systems 
class (symbolic unit names reserved for 
system use) is made up of: 



1. 


SYSRDR 


2. 


SYSIPT 


3. 


SYSPCH 


4. 


SYSLST 


5. 


SYSLOG 


6. 


SYSLNK 


7. 


SYSRES 



20 DOS Supervisor and Related Transients 



8. 


SYSSLB 


9. 


SYSRLB 


10. 


SYSUSE 


11. 


SYSREC 


12. 


SYSCLB 



The programmer class (symbolic unit 
names reserved for programmer use) is made 
up of SYS000 to SYS221 with MPS or SYS000 
to SYS243 with no MPS. This class is 
subdivided into these classifications: 

1. Background logical unit class (minimum 
of 10). 

2. Foreground two logical unit class 
(minimum of 5) . 

3. Foreground one logical unit class 
(minimum of 5) . 

PUBs are built at system generation or 
IPL time. LUBs are built at system 
generation time. PUBs are assigned to LUBs 
at system generation or by the job control 
program, or by the single program 
initiator. CHANQ, TEBV f and TEB entries 
are built and processed by the supervisor 
program. Figure 7 shows the I/O table 
interrelationships 



INFORMATION BLOCKS AND OTHER TABLES 



To accomplish functions such as exit 
selection, DASD file protection, and record 
identification , the supervisor program 
requires pertinent information. At 
supervisor generation time certain main 
storage locations are set aside and f in 
some cases, initialized to supply the 
required information. The basic 
information blocks and their respective 
functions are: 

PIB (Program Information Block) : The first 
half of a PIB retains program status 
information for user and supervisor 
programs. It supplies routing information 
in a multiprogramming environment to allow 
selective program return and it contains 
pointers and switches used by the 
supervisor program (Figures 15 and 16) . 
The second half contains the address of the 
area communications region and the system 
LUB Index, priority of the PIB address of 
the termination ECB, and the PIB 
displacement (Figure 14) . 

DIB (Disk Information Block) : The DIB is 
built at generation time if the SYSFIL 
option was selected. It performs a record 
keeping function on system class units 
assigned to a DASD. The DIB contains the 
current seek address when the system is 
operating in a batched job environment. 



The block is initialized by job control 
with extent information and updated by 
physical IOCS. When the PCIL option is 
used, the DIB is updated each time the PCIL 
is assigned. It is located in the IOTAB 
macro expansion. (See Figure 12.) 

JIB (Job Information Block) : The JIB 
contains one of the following: 

• LUB entry of the standard assignment 
when a temporary LUB assignment is 
made. 

• PUB pointer for an alternate LUB 
assignment. 

• Extent information when DASD file 
protection is selected as a supervisor 
generation option. 

Extent information is supplied by the 
program initiator and logical IOCS open 
transient routines. The supervisor can 
then perform the file protect function for 
the specified file limits. File protection 
does not include supervisor and transient 
originated I/O. (See Figure 19.) 

SAB (Seek Address Block) : Contains a 
four-byte address (BCCH) for each DASD when 
the seek separation feature is specified. 
It also has a fifth byte which contains a 
Track Hold Table pointer or X'FF" if both 
SKSEP and TRKHLD were generated, or X f 00 f 
if TRKHLD was not specified. The current 
address is maintained in the SAB for the 
particular device. Each SAB is referenced 
by its corresponding PUB. 

Other Tables : Several optional tables are 
built at generation time within the 
supervisor : 

• CE Table - Generated in the SEND macro 
expansion. Contains 4-byte pointers, 
each of which points to a hook within 
the supervisor that accesses the CE 
serviceability routines. Provision is 
made for up to ten entries in the CE 
table. See Figure 28 for an 
illustration of this table, how it is 
accessed, and how the hooks are used. 

• PC, OC, IT, and AB Tables - Generated 
in the SGTCON macro expansion. These 
four tables (program check, operator 
communications, interval timer, and 
abnormal termination) contain addresses 
supplied by the user with a STXIT 
macro. (See Figure 13.) 

o CBF Table - Generated in the LUBGEN 
macro expansion. This table holds the 
CCW, CCB, partition ID, and data for 
buffered I/O requests (SVC 0) to SYSLOG 
where SYSLOG is an IBM 1052. (See 
Figure 22.) 
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• DTF Address - Generated in the SMICR 
macro expansion- These two tables 
(PDTABA and PDTABB) contain pointers, 
DTF addresses, and other information 
for handling external interrupts on 
magnetic ink character recognition 
devices- (See Figure 10.) 

• ASCII-EBCDIC and EBCDIC-ASCII 
translation tables - Generated in the 
SEND macro expansion if the ASCI 1= YES 
optional parameter is specified. (See 
Figure 27.) 

Additional Communications Region ; The 
communications regions for the two 
foreground partitions are located at the 
end of the I/O tables. Their format is 
identical to that of the background 
communications region. If generated, the 
background communications region extension 
immediately follows the BG communications 
region within the nucleus of the 
supervisor. Foreground extensions follow 
the F2 and Fl communications regions (see 
Figure 2) . The extensions are generated if 
any of the following options are specified: 
CE f AP, AB, TRKHLD, MCRR, TEBV, EVA, ASCII, 
SPARM, or ERRLOG. The extensions are also 
generated if the MODEL option specifies a 
System/370 CPU. See Figure 9 for the 
format of the communications region 
extensions . 

SDR Communications Region ; Generated in 
the SEND macro expansion when the ERRLOG 
option is specified at system generation. 
This region provides an interface among job 



control, the supervisor, and various 
A-transients when the OBR/SDR functions are 
in use. See Figure 26 for the SDR 
communications region format, and Figure 2 
for the location of the region. 



Transient , CE, and Save Areas ; 



Main 



storage locations are reserved in the area 
preceding the problem program area for: 

1. Logical ($$B) transients - 1200 bytes. 

2. Physical ($$A) transients - 552 bytes. 

3. Recovery ($$R) transients - 1000 
bytes . 

4. CE area (only if CE=YES or n) - 600 
bytes minimum. 

5. Background save area - 80 bytes (112 
with floating point feature) . The BG 
save area contains five subfields: 
PSW, general registers (9 through 8) , 
label length, 6 reserved bytes, and 
optionally floating point registers 
(0,2,4,6). (See Figure 1.) 



IDRA (Independent Directory Read- in Area) : 
IDRA is a supervisor option that generates 
a 368 byte supplemental area to reduce 
contention for the physical transient area. 
IDRA reads core image library directories 
for all fetch and load operations. Thus, 
the PTA is left free to perform ERP. 
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Name 



Macro Description 



Parameter = Option 



Option Description 



SUPVR 



Describes system environment 



SYSTEM = DISK 

MPS=< YES> 
UjF ) 



TP = 



NO ) 

)btam ( 

jQTAM ( 
'QTAMn) 



ERRLOG = 



|(YES, RDE)| 
!(n, RDE) 



MC RR = {*§} 



MICR = 



AP = 



EU = 



( NO 
) 1412 



> 141 

(141 



9 ( 
419DJ 



{NOl 



YES) 



F } 

( RELOC) 



asc„= m) 



System residence (SYSRES) must be on a disk device. 

Indicates multiprogramming support. If YES or BJF is specified, the system 
generated is capable of supporting two foreground programs. YES or BJF must 
be specified if TP = QTAM. If BJF is specified, the system generated will 
support batched mode for both foreground partitions. Multiple communications 
regions are generated only if MPS = BJF. MPS = YES is implied if MPS = BJF. 

Specify if Basic or Queued Teleprocessing Access Method (BTAM or QTAM) is 
desired. When QTAM is specified, SVC support for BTAM is also included. 
To process QTAM in a system with asynchronous processing support, QTAMn 
must be specified where n is the maximum number of active QTAM message 
processing programs in the system. From 2 to 12 programs may be specified 
with a default value of 2. 

Specify if the Outboard Recorder (OBR) is to record data pertinent to an error 
that cannot be retried or corrected after a standard number or retries. Also, 
specify if the Statistical Data Recorder (SDR) is to record the cumulative error 
status of an I/O device, n defines the number of records required on the SDR 
partition of the Recorder File, where n is any number equal to, or greater than, 
the number of PUBs. YES indicates a number of SDR records equal to the 
number of PUBs. ERRLOG = RDE supports the Reliability Data Extractor for 
System/370 only. If RDE is specified without YES or n, YES is assumed. 
ERRLOG is assumed YES for all System/370 MODEL options if it is not specified. 

Specify if MCRR is to record pertinent data after a machine check, channel 
control check, interface control check, or channel data check. MCRR 
analyzes collected data and cancels the damaged partition(s). No attempt at 
error retry is made. This parameter is valid only for Models 30, 40, and 50. 

Indicates whether the supervisor is to support magnetic ink character readers or 
optical reader/sorters. If both 1412s and 1419s are present, indicate 1419. 
1419D/1275 indicates Dual Address Adapter 1419s. If 1412/1419/1255/1259/ 
1270/1275s are attached to the multiplexor channel, the PIOCS parameter 
BMPX = YES is not supported. 

Indicates asynchronous processing support. This provides the user with the 
facility to write dependent programs to run concurrently within a partition and 
still maintain the partition independency of MPS. If YES is specified, global 
BG20 (MPS = YES or BJF) is forced on whether or not it was specified. 

EU = YES specifies: IBM 1401/1440/1460 Emulator for Models 25, 30, or 40; 
IBM 1401/1440/1460 or 1410/7010 Emulator and mixed parity tape processing 
for System/370 CPUs. If foreground emulation is desired on any model, 
MPS = BJF is required. Foreground emulation on Model 40 requires EU = RELOC. 

Indicates whether the supervisor is to support the American National Standard 
Code for Information Interchange (ASCII). YES adds 512 bytes to supervisor size. 



CONFG 



Describes hardware features 



MODEL 



v nnn/ 



nn defines the System/360 model number (Model 30, 40, or 50 must be entered 
if MCRR option is specified), nnn defines the System/370 model number. 
(A System/370 model causes generation of MCAR/CCH support. MCRR is not 
compatible with System/370.) 



SP= {^\ 



YES/ 



i±101 

DEC =\ YES/ 



FP 



= im\ 



l YES/ 

/ NO\ 
TIMER = {yes/ 

/NO\ 
PORT= {155} 



Indicates the storage protection feature is desired. YES is assumed if MPS : 
or BJF in the SUPVR macro. 

Decimal feature. 



Floating-point feature. 

Timer feature. If TIMER = YES the supervisor macro GETIME is supported. 

Causes Model 155 MCAR/CCH functions if MODEL = 145. 



YES 



Figure **• Supervisor Macros (Part 1 of 5) 
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Name 



Macro Description 



Parameter = Option 



Option Description 



STDJC 



Sets standard values for job control 
variables. 



DECK = f YES \ 
\ NO/ 

LIST = /YES) 
INO/ 

XREF = /YES| 
I NO) 

ERRS = JYES \ 



Ino/ 

INO . 



DUMP =/ YES ) 
1 NO/ 



LINES 



t nn ; 



DATE = /MDY) 
(DMY/ 



CHARSET = /!§£! 
\60C/ 

L,STX=(^} 



SYM= /NO I 
I YES/ 



SPARM = 



{NO} 

I yes/ 



Output modules on SYSPCH. 

Source modules listings from language translators on SYSLST. 

Language translators output symbolic cross-reference lists on 
SYSLST. 

Compilers summarize all errors in source programs on SYSLST. 

Listing of all control statements on SYSLST. 

Dump of registers and main storage on SYSLST. 

Number of lines per page on SYSLST. 

Format of date. 

Specifies the 48 or 60 character set for language translator 
input on SYSIPT. 

Hexadecimal object module listings from compilers on SYSLST. 
Assembler output symbol tables on SYSPCH. 
Support of assembler variable symbol &SYSPARM 



FOPT 



Describes functional supervisory 
options 



oc=/N21 
l yes/ 



PC 



IT = 



■/NOl 

l yes/ 



NO 
BG 



F2 



»-m 



TEB: 



«?} 



TEBV = 



NO 



// DASD \ ,n\ 
V (SYS LOG / / 



EVA=/ NO 1 

\(rth, wth, n) / 



Operator initiated communications to problem programs. If 

OC = YES the facility is available to all programs in MPS, Must 

be YES if Emulator on System/370 is used. 

Problem program routine for program check. If PC = YES, 
the facility is available to all programs in MPS. 

Problem program ability to set timer intervals and specify a 
timer interrupt routine. BG, Fl, or F2 indicates which pro- 
gram has the facility. When IT is specified for a partition, 
TIMER = YES is assumed in the CONFG macro. Timer sup- 
port is available to only one program in MPS. 

Provides for valid use of the STXIT (AB) macro. If AB = YES, the 
facility is available to all programs in MPS. 

Tape error statistics are to be accumulated and logged, where n 
is the number of 2400-series tape units and tape cartridge readers 
(maximum of 225) attached to the system. ** 

Tape Error Statistics by Volume are to be accumulated and logged 
on SYSLOG or a DASD device, where n is the number of 2400 
series tape drives attached to the system. ** 



Error Volume Analysis is supported where rth is the read error 
threshold, wth is the write error threshold, and n is the number 
of 2400 series tape drives attached to the system. ** 



: The n specified in TEB, TEBV, and EVA must be identical if two or more of these options 
are specified, and then TAPE = 9 is assumed. 



Figure 4. Supervisor Macros (Part 2 of 5) 
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Name 



Macro Description 



Parameter = Option 



Option Description 



FOPT 
(cont'd) 



"r 

vn 



NO ) 



SKSEP= < YES> 



NO 
CE = < YES 



CCHAIN= iblQl 
IYES/ 



CBP^p} 

|DRA=/NO\ 
I YES J 

TRKHLD=/NO\ 



Specifies if SEEKs are to be separated from the remainder of 
channel programs. Seek separation allows other devices on 
the channel to be accessed (including other seeks) during 
the seek. YES indicated support for all DASD types specified 
by the DVCGEN macro at system generation time, n is the 
number of DASD to be supported and cannot be less than the 
number of DASD specified at system generation. The maxi- 
mum number is 254. 

Specifies the amount of core to be allocated to customer engi- 
neer serviceability routines or PDAIDs. When YES is specified, 
600 bytes are allocated; when n bytes are specified, it must be 
for a minimum of 600 bytes. If PDAIDs or the QTAM or SVC 
in CEAIDs are used, specify a minimum of 800 bytes. 

Command chaining support for retry on I/O operations. When 
an error occurs and CCHAIN = YES, the user is allowed to retry 
at the last CCW executed instead of at the first CCW in the 
channel program as is the case in a normal retry. This option 
requires that the appropriate bit be set in the CCB. 

Physical Transient Overlap allows tasks to be selected during 

the time of FETCH, LOAD, MVCOM, and ERP I/O. PTO 

is valid only when MPS = YES or MPS = BJF in the SUPVR macro. 

Console Buffering provides immediate return to the caller when 
write I/O to SYSLOG is issued where SYSLOG is a 1052. n 
indicates the number of buffers to be generated. 1 to 50 
buffers may be specified. 1 is assumed if the operand is invalid. 

Independent Directory Read-in Area feature. YES option 
causes generation of the IDRA area in supervisor. IDRA re- 
duces contention for the PTA in fetch operations when ERP 
is active. Use of IDRA requires MPS = YES or BJF and PTO = YES. 

If n is specified, coding to support the HOLD and FREE track 
macros. TRKHLD = n specifies the number of tracks to be held at 
any one time, and a Track Hold Table (See Figure 24) is gener- 
ated for that number. If n is not in the range of 1 to 225, 10 is 
assumed. 

Provides for valid use of the WAITM macro, waiting for one of a 
number of events to occur before continuing with task execution. 
Waits are performed on Event Control Blocks, which may be of 
the special form as in Figure 34. Other blocks that may be used 
as ECBs are CCBs, TECBs, and MICR CCBs since posting is done 
in bit Obyte 2 of the block. 

Specifies if the data link to the Remote Analysis Center is to be 
supported. RETAIN = YES is valid only if a S/370 CPU was 
specified in the MODEL option. RETAIN = YES forces OC = YES. 

Supervisory DASD file protection, where (n,n) indicates the 
range of channels to which DASDs may be attached. Specifying 
2311 or 2314 indicates support for both. 2321 option indicates 
support for 2321 device as well as for 2311 and 2314. DASDFP 
prevents the user from writing outside the extents of his file in 
case of program error. Extents are protected to the nearest 
cylinder. 

System input and system output (SYSRDR, SYSIPT, SYSLST, 
SYSPCH) files may be assigned to a 2311 , 2314, or both. 
Specifying either indicates support for both. If MPS=BJF in 
the SUPVR macro, support is given for foreground logical 
units when running in batched mode. 

nl = residual capacity (in records) for beginning of operator 
notification when SYSLST is assigned to a 2311 or 2314. 

100 <. nl < 65536 

If nl is omitted, 1000 is assumed. 

Valid when at least 24K bytes of main storage are available. 

YES is valid only on a S/370 CPU; YES is the default for a S/370 MODEL. NO is the default 

for a S/360 MODEL. 



WAITM = 



{NO} 
IYES/ 



" RETAIN = (NO) 
IYES/ 



NO 
>,n,2311) 
DASDFP= ^(n,n,2314) 
(n,n,2321) 



*SYSFIL = 



NO 
(2311 [,nl,n2]) 
(2314 [,nl,n2]) 
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Name 


Macro Description 


Parameter =Option 


Option Description 


FOPT 
(cont'd) 




*SYSFIL (cont'd) 

™- m 

(NO | 

JA= <NES > 

Inl,n2,n3 ) 

JALIOCS=/ J1P_ I 
l(nl,n2)/ 

OLTEP= /NO-l 
I YES / 


n2=residual capacity (in records) for beginning of operator 
notification when SYSPCH is assigned to a 231 1 or 2314. \ 

100<n2< 65536 

If n2 is omitted, 1 000 is assumed . 

Provides supervisor support for private core image library. 

NO defaults to no Job Accounting Interface support. YES specifies 
basic JA support. (nl,n2,n3) gives additional support to count 
SIOs issued to I/O devices by partition. nl,n2, and n3 refer to 
the number of devices in BG, F2, and Fl for which SIOs are to be 
counted . Choose values for each n from to 255 to specify the 
number of devices accessed by partition; if any n value is omitted, 
it defaults to zero. 

NO defaults to 16 bytes in the user save area and zero bytes for the 
alternate label area. Set nl from to 1024 bytes for the user save 
area; if omitted, it defaults to 16 bytes. Set n2 from to 224 
bytes for the alternate label area (usually =number specified by 
LBLTYP); if omitted, it defaults to zero bytes. 

Specify if the on-line testing function is desired . If MODEL =a 
System/370 CPU, then OLTEP=YES is assumed. 


PIOCS 


Describes the system I/O 
configuration 


SELCH= /YES I 
I NO/ 

BMPX= /N°-l 
I YES/ 

(NO | 

CHANSW= < TSWTCH> 

( RWTAU ) 

(NO} 
TAPE= < 9 > 

MRSLCH= /i^2.l 
I YES/ 


Selector channels attached to the system. 

Burst Mode devices are supported on multiplexor channel . 
If 1412 -141 9s or 1287- 1288s are attached to the multiplexor 
channel, BMPX =YES is not supported. 

Channel switching tape control unit. RWTAU =2404 or 2804, 
TSWTCH=2816. 

Indicates required tape PIOCS support. 9 = nine track only, 
7 = seven or nine track, NO =No tape units attached . NO 
is the assumed value. 

MICR tape device assigned to a selector channel . 


ALLOC 


Partitions storage for MPS 
(optional macro). 


Fl=nK, F2=nK 


Specifies storage partitioning MPS, where n must be a multiple 
of 2. Must beat least 1 OK if MPS =BJF. 


IOTAB 


Describes installation requirements 
for I/O tables. 


IODEV= {12.} 
BGPGR= /i°-l 
FlPGR-{i.} 
F2PGR= 1 — \ 
CHANQ= i—\ 


Number of I/O devices attached to the system. 

Number of symbolic units of the class SYSnnn for the background 
program. 

Number of symbolic units of the class SYSnnn for Fl . Valid only in 
MPS (minimum 5). Otherwise zero is assumed when MPS=NO. 

Number of symbolic units of the class SYSnnn for F2. Valid only in 
MPS (minimum 5). Otherwise zero is assumed when MPS=NO. 

Number I/O requests in the channel queue. 6 is the minimum 
value generated. In a supervisor with CBF option specified, the 
minimum value is 6 plus the number of console buffers generated . 

Number of Job Information Blocks (JIBs) for the system. Re- 
quirements are: 
1 . One JIB for each temporary logical unit assignment. 

2. One JIB for each alternate logical unit assignment. 

3. One JIB for each open 231 1 or 2314 extent with the 
DASD file protect feature. 

4. Two JIBs for each open 2321 extent with the DASD file 
protect feature . 



*Valid when at least 24K bytes of main storage are available. 
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Name 



Macro Description 



Parameter -Option 



Option Description 



DVCGEN 



Specifies I/O devices. Each 
device type requires a separate 
DVCGEN macro. (See note 1 for 
DVCGEN rules. This is an 
optional macro.) 



CHUN = {X'cuu'} 

DVCTYP = {xxxxxx} 
CHAN5W= {^} 
MODE ={X'ss'} 



Specify the hexadecimal number of the channel and unit for the 
device . 

Specify the device type. See Figure 29. 

Specify if the device is attached to more than one selector 
channel. If it is, the device can be switched. 

1. 2400T9. MODE specifies the tape mode. X'CO' is the 
default value. 

2. 2400T7. MODE specifies the tape mode. X*90' is the 
default value. See Figure 30 for other values. 

3. 2702. MODE designates the SADxxx command. X'00' is 
the default value . 

X'00' SADO 
X'OT SAD! 
X'02' SAD2 
X'03' SAD3 

4. 2260 (Local). MODE is used to specify the 1053 printer when 
CHUN=X'cuu' refers to a 1053 attached to a 2848 . The 
operand must be entered as MODE = X'01 ' . 

5. 1412/1419. MODE designates the external interrupt bit 
associated with Magnetic Ink Character Readers. The modes 
X'OT through X'20 1 correspond to external interrupt PSW bits 
31 through 26 respectively. For the dual address adapter 
1419, this parameter is needed for both the 1419P and the 
1419S device types. 

X'OT Device attached to external line 7. 
X'02' Device attached to external line 6. 
X'04' Device attached to external line 5. 
X'08' Device attached to external line 4. 
X'10' Device attached to external line 3. 
X'20' Device attached to external line 2. 

6. 1018 Paper Tape Punch with 2826 Paper Tape Control Unit 
Model 1. This parameter specifies whether or not the Error 
Correction feature is present: 

X'00' feature not present 
X'01 ' feature present 



ASSGN 



Sets standard I/O assignments. A 
separate macro is required for each 
standard assignment desired. 
(Optional macro) 



c SYSxxx, X'cuu' 






SYSxxx is any symbolic logical unit (SYSIPT, SYSLOG, etc.) 
or programmer logical unit (SYS000, SYS001 , etc.). X'cuu 1 is 
the hexadecimal number of the channel and unit to which the 
symbolic device is attached. 

( BG"j indicates the specific partition to which the ASSGN is 
< Fl > being made . 

If2 ) 



SEND 



Indicates end of supervisor 
generation . 



Specifies the beginning address of the problem program area . An 
area should be reserved for supervision expansion and maintenance. 
The parameter is optional . If not specified, no area is reserved 
beyond the assembled last address of the supervisor. 



Note 1 : Rules for using DVCGEN 



1 . A separate DVCGEN macro instruction is required for each device. 

2. The total number of DVCGEN macros must not exceed the total number of devices specified in the IODEV parameter of the IOTAB macro. 

3. DVCGEN macros must be specified in ascending channel address sequence. 

4. Switchable units (attached to more than one selector channel) must be defined once. They are defined on the lowest channel on which they 
are addressable . 

5. The sequence of the DVCGEN cards determines the priority of the devices on their channel. Switchable units must be the last devices for 
each channel, and must be on consecutive channels. 

6. The specifications of these macros may be altered by IPL ADD and DEL statements. See IPL PLM, GY24-5086. 

7. Rules for SYSxxx: 

a. The ASSGN macro allows SYSRDR, SYSLST, SYSPCH, and SYSIPT to be assigned to a tape or DASD. However, IPL unassigns any such 
assignments. 

b. SYSLOG must also be assigned in BG, if assigned in foreground partition. 

c. SYSLNK cannot be specified in either foreground partition. 
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Macro 


Type 


Code Generated 


Critical 
Globals Set 


SUPVR 


generation 


Defines low main storage 


BGIO BG25 
BGl 3 BG27 
BG14 BG35 
BGl 9 BG36 
BG20 BG50 
BG21 BG51 
BG24 BG100 
AGll 


CONFG 


generation 


None 


BGl BG23 

BG2 BG39 

BG22 BG51 

AG12 


STDJC 


generation 


None 


BG34 BG81 


FOPT 


generation 


General cancel 

SVEREG routine 

General exit 

Background communication region and extension 

General entry 

SVC interrupt handler 


BGO BG60 
BG2 BG61 
BG4 BG62 
BG5 BG71 
BG6 BG72 
BG7 BG73 
BG8 AG2A 
BG14 AG7 
BG15 AGIO 
BG16 AG13 
BG18 AG21 
BG26 AG22 
BG30 AG23 
BG32 AG28 
BG33 AG31 
BG40 AG32 
BG52 AG39 


PIOCS 


generation 


None, directly calls inner macros. 


BG3 BG11 
BG9 BG12 
BGIO BG31 


SGTCHS 


inner 


Channel scheduler 
Start I/O 
SIO accounting 
I/O interrupt 


none 


SGUNCK 


inner 


Unit check 

Error recovery exits 


none 


SGTCON 


inner 


VLDADR1 subroutine, ATNRTN routine, CCW chain, disk information blocks, error 
recovery block, SVC interrupt table, PC option table, and OC option table, physical 
transient save area, IDRA save area, logical transient save area. 


none 


SGDFCH 


inner 


Fetch subroutine 


none 


SGSVC 


inner 


Supervisor interrupts 
Program check interrupts 
External interrupts 
Console buffering routine 


none 


SGDSK 


inner 


Disk error recovery 


none 


SGTHAP 


inner 


Track hold, track free, set abnormal exit routine address, and asynchronous 
processing routines. 


none 


SMICR 


inner 


External interrupts for MICR type devices 
Program checks in stacker select routine 
Error recovery for test I/O and start I/O 


none 


ALLOC 


generation 


None 


none 
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Macro 


Type 


Code Generated 


Critical 
Globals Set 


IOTAB 


generation 


Supervisor table expansions- SYSCLB LUByPIBs, SVC Interrupt table, channel queue table 
(CHANQ), PUB, JIB, TEB, and TEBV. 


AG2D 


LUBGEN 


inner 


Generates NICL, FICL, and unassigned LUB tables, console buffers, and track hold 
table entries. 


none 


DVCGEN 


generation 


Overlays for PUB table entries. 


AG8 


AS5GN 


generation 


Overlays for LUB table entries. 


none 


SEND 


generation 


Generates console buffer and PTO patch areas; JA1 partition tables, user save area, and 
label area; OBR/SDR routines. Calls inner macros COMMN for Fl, F2, communications 
regions, COMMNEX for Fl, F2, communications region extensions, TRTAB for ASCII 
translation tables, MCRAS for RMS resident coding and RTA. Defines end of supervisor 
nucleus, beginning of IDRA, A and B transient areas, start of problem program area, 
CE area, and BG save area. 


none 


SMCRR 


inner 


Machine check recording and recovery record builder. 


none 


COMMN 


inner 


Communications regions for all partitions. 


none 


COMMNEX 


inner 


Communications region extensions for all partitions. 


none 


TRTAB 


inner 


Generates ASCII translation tables. 


none 


MCRAS 


inner 


Generates RMS Monitor and RTA. 


none 


MAPLOWC 


inner 


Generates equates to address low core for RMS. 


none 



Figure 5. Macro Functions (Part 2 of 2) 



Supervisor Generation and Organization 29 



Global 


On Settinq | 


BGO 


CE=YES or n | 




AP=YES | 




AB=YES | 




EU=YES | 




TRKHLD=n | 




ERRLOG=YES or | 




CLEAR | 




MCRR=YES | 




MICR=1412, 1419 j 




or 1419D | 




JA=YES j 




JA=(n ll n 2 ,n 3 ) j 




ASCII=YES | 




MPS=YES or BJF | 


BGl 


SP=YES | 


BG1QT 


TP=QTAM | 


BG2 


TIMER=YES | 




JA=YES j 




JA=(n lf n 2 ,n 3 ) j 


BG3 


CHANSW=TSWTCH | 




or RWTAU j 


BG4 


TEB=n | 


BG5 


PTO=YES | 


BG6 


OC=YES | 


BG7 


IT=Fl, or j 




F2, or BG j 


BG8 


PC=YES | 


BG9 


CHANSW= RWTAU | 


BG10 


SELCH=YES | 


BG11 


BMPX=YES | 


BG12 


TAPE=7 or 9 | 


BG13 * 


AP=YES | 


BG14 


WAITM=YES | 




AP=YES j 



Purpose 



Determines the length of the supervisor save area. 



Determines whether the storage protect feature is used. 

Determines QTAM support. 

Determines whether the timer feature is used. 
Does not force BGO. 

Determines whether channel switching is supported (2816). 



Determines if tape error statistics are to be accumulated 
and logged. 

Determines if physical transient overlap option is 
supported. 

Determines if the asynchronous user interrupt key routine 
is supported. Does not force BGO. 

Determines whether the internal timer option is 
supported. Does not force BGO. 

Determines if the user program check routine is supported. 

Determines whether channel switching is supported (2404, 
2804). 

Determines whether selector channels are supported. 

Determines whether burst mode devices will be supported on 
the multiplexor channel. 

Determines the type of tape support required. 

Determines if asynchronous processing is supported. If 
yes, force on BGO, BG14, BG20. 

Determines if the wait multiple function is supported. 
Force on if AP is specified. Does not force on BGO. 
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Globa 


il 


i On Settinq 


BG15 


* 


, AB=YES 


BG16 


* 


| TRKHLD=n 


BG18 




CBF=n 


BG19 


* 


MCRR=YES 


BG20 




MPS=YES or BJF 
AP=YES 


BG21 




TP=BTAM 
or QTAM 


BG22 




DEC=YES 


BG23 




FP=YES 


BG2U 




MPS=BJF 



BG25 

BG26 
BG27 
BG30 

BG31 
BG32 

BG33 

BG34 
BG35 

BG36 



ERRLOG=any 
invalid setting 

PCIL=YES 

ERRLOG=RDE 

CCHAIN=YES 

TAPE=9 
DASDFP=n,n 



SYSFIL=2311 
or 2314 

DATE=MDY 

MICR=1<*12, 
1419, 1419D, 
1270 , 1275 

MICR=1419D 



Determines 
supported. 

Determines 
must be on 

Determines 

Determines 

Determines 
Forces BGO. 



Purpose 



if user abnormal termination routine is 
Forces on BGO, 

if the track hold function is supported. 
(if it is not, it defaults to NO). 



BG20 



if console buffering option is supported. 

whether MCRR option is supported. 

whether multiprogramming support is required. 



Determines whether teleprocessing support is required. 



Determines if the decimal feature is used. Does not force 
BGO. 

Determines if the floating point feature is used. Does not 
force BGO. 

Determines if batched jobs will be run in foreground 
partitions. Forces BGO. 

Indicates ERRLOG is set with an invalid option. Causes 
a message and terminates supervisor assembly. 

Determines if PCIL is supported. 

Determines if RDE Support is required. 

Determines if command chaining support for retry on I/O 
operation is used. Does not force BGO. 

Determines if 9 track tape support is required. 

Determines whether the DASD file protect feature is 
supported. Does not force BGO. 

Determines if logical system I/O units are a disk device. 
Does not force BGO. 

Determines the type of date configuration to be supported. 

Determines if any MICR type device is supported. 
Forces BGO. 



Determines if 141 9D (MICR type device with dual address 
adapter) only is supported. Forces BGO. 
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Global 1 


On Settinq 1 


BG38 


OLTEP=YES | 


BG39 


MODE= | 
(a System/370 j 
CPU) | 


BG40 


RETAIN=YES | 


BG41 


DECK=YES | 


BG42 


LIST=YES | 


BG43 


LISTX=YES | 


BG44 


SYM=YES | 


BG45 


XREF=YES | 


BG46 


ERR S= YES | 


BG47 


CHARSET=48C | 


BG48 


DUMP=YES | 


BG49 


LOG=YES | 


BG50 


EU=YES | 


BG51 


EU=RELOC | 


BG52 


IDRA=YES | 


BG60 * 


TEBV= (device, n) | 


BG61 


TEBV=(DASD,n) | 


BG62 * 


EVA=(rth,wth,n) | 


BG71 


| JA=YES or | 
JA=(n ± ,n 2 ,n 3 ) | 


BG72 


JA=(n ± ,n 2 ,n 3 ) | 


BG73 


| JALIOCS=(n ± ,n 2 ) | 



Purpose 

Indicates whether OLTEP is supported. 
Indicates RMS support for System/3 70- 

Indicates RETAIN/370 is Supported, 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Determines if emulator interface is generated. Forces on 
BGO. 

Determines if the relocatable version of CS/UO is used. 
Forces on BGO, BG50. 

Indicates whether IDRA is supported. 

Determines if the Tape Error Statistics by Volume is 
supported. Does not force BGO. 

Determines if TEBV Device is DASD. Does not force BGO. 

Determines if Error Volume Analysis is supported. Does not 
force BGO. 

Indicates whether JAI is supported. 

Indicates whether count of siOs is made. 

Indicates whether JAI label processing is supported. 
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Global | 


On Settinq 


BG81 


SPARM=YES 


BG99 


ALLOC 




Fl=nK, F2=nK 


BG100* 


ASCII=YES 


BG126 


CHANSW=YES 


BG127 





AG1QT 


TP=QTAM n 


AG1 


IODEV=n 


AG 2 


Can be set by 




TEB, TEBV, EVA 



AG2A 

AG3 
AG4 
AG5 
AG6 
AG7 

AG8 

AG9 

AGIO * 
AG11 * 

AG12 

AG13 
AG15 



TEB=n 

CHUN=X , cuu" 

BGPGR=n 

F2PGR=n 

FlPGR=n 

SKSEP=YES 
or n 

SKSEP=YES 
or n 

CHANQ= 

/ 6 or e+CBF ^ 

CE=YES or n 

ERRLOG=YES, RDE, 
or n 

MODEL=nn or nnn 
PORT=155 

PCIL=YES 



Purpose 

Determines if SYSPARM is supported. 

Special sequence check for ALLOC macro within supervisor. 

Determines if ASCII translation tables are generated. 

Channel switching. Device can be attached to more than one 
selector channel. 

Sequence check for DVCGEN macro. 

Number of problem programs in QTAM system at one time. 

Number of entries for PUB Table. 

Number of volume error blocks. 

Indicates number of Tape Error Blocks generated in FOPT 
macro . 

Specifies number of channel (for example, X'cuu") 

Number of BG programmer LUBs. 

Number of F2 programmer LUBs. 

Number of Fl programmer LUBs 

Determines that the seek separation option is desired. 
Does not force BGO. 

Sets count of direct access storage devices generated 
in DVCGEN. 

Length of channel queue. 

Indicates that an area is reserved for CE routines. 
Sets count of Statistical Data Records. 

Indicates model of CPU. Does not force BGO. 

Number of system class LUBs. 

Checks macro sequence of supervisor macros . 
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Global 
AG16 

AG17 

AG18 

AG19 

AG20 
AG21 
AG22 
AG23 



On Setting 



DASDFP= 

(2311|\ 
n,n, ^2314> 
(232l)/ 



DASDFP= 

(2311V 

n,n, ^2314> 

(2321) 



SYSFIL= 
/2311 
\2314 

SYSFIL= 
/2311 
(2314 

MCRR=YES 



/2311),fn ± ,n a ) 

)ilni,n 2 j 



/231l),fn ± ,n a V 
U (n± f n 2 / 



Purpose 



First channel with DASD devices for file protect. 



Last channel with DASD devices for file protect. 



n ± Parameter of SYSFIL. 



n 2 Parameter of SYSFIL. 



Set to value equal to number of PUBs when MCRR is 
supported. 

Determines if a timer interrupt routine is for a BG 
program. 

Determines if a timer interrupt routine is for an Fl 
program. 

Determines if a timer interrupt routine is for an F2 
program. 

Number of blocks for Fl (must be in increments of 2k) . 

Number of blocks for F2 (must be in increments or 2K) . 

Indicates number of tracks that can be held. 

Indicates number of console buffers generated in LUBGEN. 
Does not force BGO. 

Indicates the Read Error Threshold specified in EVA. 

Indicates the Write Error Threshold specified in EVA. 

Indicates number of devices for which SI0 counts are made- 
Indicates whether user save area and label processing are 
supported. 

SYSLST line count. 

Number of LUBs. 

Indicates MICR type device is on a selector channel. 



♦These globals determine if extension(s) to the communication region (s) are 
generated. 



IT=BG 



IT=F1 



IT=F2 



AG25 


Fl=nK 


AG26 


F2=nK 


AG27 


TRKHLD=n 


AG28 


CBF=n 


AG31 


EVA=(rth,wth,n) 


AG32 


EVA=(rth,wth f n) 


AG39 


JA=(n ±# n 2# n 3 ) 
JALIOCS=(n jL# n 2 ) 


AGU1 


LINES=n 


AG53 





AG54 


MRSLCH=YES 
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NICL FICL 














TEBV 

























































































TEB 











































TKHDTAB 

























^^t^^^p^py^ 



LUB REQ LUB TKREQ 
ID ID DSP ID 



KEY: 

NICL (Number in Class) 

FICL (First in Class) 

LUB (Logical Unit Block) Table 
PUB (Physical Unit Block) Table 

FOCL (First on Channel List) 

TEB (Tape Error Block by Unit) 
TEBV (Tape Error Block by Volume) 

FAVP (First Available Pointer) 
JIB (Job Information Block) 

CHANQ (Channel Queue) Table 

LUB ID (LUB Identification) 
REQID (Requestor Identification) 
LUBDSP (LUB Displacement) 
FLPTR (Free List Pointer) 
SAB (Seek Address Block) 

TKHDTAB (Track Hold Table) 
THFLPTR (Track Hold Free List Pointer) 




: The first byte contains the number of system class units. The second, third, and fourth bytes contain the number of 
programmer class units (BG, F2, Fl ) (Figure 23). 

: The first byte points to the first system class unit in the LUB table. (Always the first LUB table entry.) The second byte 
points to the first programmer class unit in the LUB table BG area. The third points to the first programmer class unit 
in the LUB table F2 area. The fourth points to the first programmer class unit in the LUB table Fl area (Figure 23). 

: The first byte points to a PUB table entry (if the logical unit is assigned) or contains X'FF'. The second byte points 
to a JIB table entry or contains X'FF' (Figure 23). 

: The first two bytes contain the channel and unit address of the physical device; the third a CHANQ pointer; the 
fourth a TEB pointer; the fifth device type codes; the sixth a device characteristic code or a SAB pointer; the seventh 
the channel scheduler flag; and the eighth has the job control flag (See Figure 18). 

: The first byte points to the first PUB (highest priority) on channel zero. The next byte points to the first PUB (highest 
priority) on channel one, etc. A hexadecimal FF indicates the associated channel is not supported. 

: One TEB is built for each tape unit at supervisor generation time if tape error statistics by unit are required (Figure 20). 

: One TEBV is built for each tape unit at supervisor generation time if tape error statistics by volume are required 
(Figure 21). 

: A one-byte pointer to the next available JIB entry. 

: The first two bytes contain extent or LUB information. The third contains ownership and JIB flags. The fourth contains 
JIB chaining information (Figure 19). 

: The first byte contains the chain field (a pointer to the next in queue). The last three bytes contain the CCB address 
(Figure 17). 

: A one-byte pointer to the LUB making the I/O request. 

: A one-byte pointer to the program containing the CCB (Figure 17). 

: A one-byte value equal to the absolute LUB number (CCB byte 7). 

: A one-byte pointer to the next free entry in the channel queue (Figure 17). 

: A four-byte (BCCH) address that is the current disk address of the device plus a fifth byte that contains a Track Hold 
Table pointer or X'FF'. If the Track Hold function is not supported, the fifth byte contains X'00 1 . 

: The first byte contains a pointer to the next available entry (or X'FF'); bytes 2-4 have CCB address of the requesting 
task; bytes 5-10 have a disk address (BBCCHH) of track being held; byte 11 has key of owning track; and byte 12 has 
two uses: bit 0=1 means a task is waiting for the track, and bits 4-7 count the number of holds on the track. (Figure 
24). Note: The number of holds is one more than the value of bits 4 - 7 of the last byte. 

: A one-byte pointer to the next free entry in the Track Hold Table. 



TKREQID (Track Requestor Identification) : A one-byte pointer to the PIB of the task requesting I/O. 



Figure 7. I/O Table Interrelationship 
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COMREG* 

Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 



Displacement 
hexadecimal 

Displacement 
decimal 







8 
8 


OA 
10 


OC 
12 


17 
23 


18 
24 


20 
32 


24 
36 


28 

40 


2C 

44 


Date 


Address of 
PPBEG 


Address of 
EOSSP 


Problem Program Use 


UPSI 
Byte 


Job Name 


Highest 
Storage 
Address 
of the 
Partition 


End Address 
of Last Phase 
Fetched or 
Loaded 


Address of 
Uppermost 
Byte of Phase 
with Highest 
Ending Address 


Label 
Area 
Length 


XXXXXXXX 


XX 


XX 


XXXXXXXXXXX 


X 


XXXXXXXX 


XXXX 


XXXX 


XXXX 


XX 



2E 

46 


30 
48 


34 
52 


35 
53 


36 

54 


37 

55 


38 
56 


39 
57 


3A 
58 


3B 
59 


3C 
60 


3E 
62 


PIK 
(PID) 


End of 

Storage 

Address 


Machine 

Confg. 

Byte 


System 
Confg. 
Byte 


Standard 

Language 

Translator 

I/O 

Options 


Dump, 
Log and 
ASCII 
Options 


Job 

Control 

Byte 


Linkage 
Control 
Byte 


Language 
Translator 
Control 
Byte 


Job 

Duration 
Indicator 
Byte 


Disk 

Address of 
Label 
Cylinder 


Address 

of 

FOCL 


XX 


XXXX 


X 


X 


X 


X 


X 


X 


X 


X 


XX 


XX 



Job Control Switches 



40 


42 


44 


46 


48 


4A 


4C 


4E 


4F 


58 


5A 


5C 


64 


66 


68 


70 


72 


74 


76 


78 


79 


88 


90 


92 


Address 


Address 


Address 


Address 


Address 


Address 


Address 


Line 


System Date 


LIOCS 


Address of 


ID Number 


of 


of 


of 


of 


of 


of 


of 


Count 




Comm. 


1st Part of 


of Last 


PUB 


FAVP 


JIB 


TEB 


FICL 


NICL 


LUB 


for 
SYSLST 




Bytes 


PIB Table 


Checkpoint 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


X 


XXXXXXXXX 


XX 


XX 


XX 



5E 
94 


60 
96 


62 
98 


64 
100 


66 
102 


68 
104 


6A 
106 


6C 
108 


6E 
110 


Length of LUB 
ID Queue = 
No. of Channel 
Queue Entries 


Address of 
Disk 

Information 
Block (DIB) 


Address of 
Error 
Recovery 
Block 


Address of 
PC Option 
Table less 
8 bytes 


Address of 
IT Option 
Table less 
8 bytes 


Address of 
OC Option 
Table less 
8 bytes 


Key of 
Program 
with Timer 
Support 


Address of 
the LUBID 
Queue 


Logical 

Transient 

Key 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 


XX 



70 
112 


7C 
124 


7E 
126 


80 
128 


84 
132 


86 
134 


87 
135 


88 
136 


Supervisor Constants 


Address of 
2nd 
Part of 
PIB Table 


Address of 
MICR DTF 
Table 
(PDTABB) 


Address of 
QTAM 
Vector 
Table 


Address of 
BG Comm. 
Region 


Op- 
tion 
Indi- 
cator 


System 
Config- 
uration 
Byte 2 


Pointer to 
Comm. 
Region 
Extension 


XXXXXXXXXXXX 


XX 


XX 


XXXX 


XX 


X 


X 


XXXX 



* The address of the communications region is in fixed location X'14' - X'17'. 

Displacement values illustrated can be used to access the listing and/or the key that follows the figure. 
The key offers more detailed information about each area when necessary. 

Figure 8. Supervisor Communications Region (Part 1 of 5) 
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Key to Communications Region Displacements: 







24 



32 



36 



40 



H 



MM/DD/YY or DD/MM/YY obtained from the job control date statement. Format controlled by COMREG + 53 
(System Configuration Byte, date convention bit 0). 

Address of the problem program area. 

Address of the beginning of the problem program area. Y (EOSSP) = Y (PPBEG) if the storage protection option has not 
been selected. Y (EOSSP) equals the first main storage location with a storage protection key of 1 , if storage protection 
is supported . 

User area. If seek separation option is specified, bytes 12 and 13 are used at IPL time for the address of the seek 
address block. 

User program switch indicator. 

Job name set by the job control program from information found in the job statement. 

Address of the uppermost byte of the problem program area as determined by the IPL program (Clear storage routine 
determines the address, ENDRD routine of $$A$IPL2 stores it.), or the address of the uppermost byte of the partition 
as determined during processing of the ALLOC statement. 

Address of the uppermost byte of the last phase of the problem program fetched or loaded. The initial value (as shown) 
is overlaid by the first fetch or load to the problem program area. 

Highest ending main-storage address of the phase among all the phases having the same first four characters as the 
operand on the EXEC statement. For the background partition only, job control builds a phase directory of these 
phases. The address value may be incorrect if the program loads any of these phases above its link-edited origin 
address. If the EXEC statement has no operand, job control places in this location the ending address of the program 
just link-edited. 

Length of the problem program label area. 

Program Interrupt Key - PIK (if asynchronous processing is not supported): Value is equal to the displacement from the 
start of the PIB table to the PIB for the task. 

QR 
Partition Identifier- PID (if asynchronous processing is supported): Value is hex 10, 20, or 30 to identify the partition 
in which a maintask or a subtask is running. (See the communications region extension, displacement 18, for the PIK 
in an asynchronous processing supervisor.) 

First byte - always zero. 

Second byte - contains the key of the program that was last enabled for interrupts, or the partition identifier in 
an AP supervisor. 





Task 






PIK (PID) Value 




*AII Bound 






X'00' 




BG 






X'10' 




*F2 






X'20' 




*F1 






X'30« 




Attn Rtn 






X'40' 




Quiesce I/O 






X'50' 




Supervisor 






X'60' 




*These tasks do 
Logical end of main 


not exis 
storage 


t in a non-MPS supervisor. 


48 


address. 



Figure 8. Supervisor Communications Region (Part 2 of 5) 
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Key to Communications Region Displacements: 







Machine Configuration Byte (Values set at supervisor generation time.) 
Bit 0: 1 = Storage protect feature 






52 










= No storage protect feature 






1: 


1 = Decimal feature 








= No decimal feature 






2: 


1 = Floating-point feature 
= No floating-point feature 






3: 


1 = Physical transient overlap option 
= No physical transient overlqp option 






4: 


1 = Timer feature 
= No timer feature 






5: 


1 = Channel switching device 
= No channel switching device 






6: 


1 = Burst mode on multiplex channel support 
= No burst mode on multiplex channel support 








7: Reserved 

System Configuration Byte 

BitO: 1=DDMMYY) , n , ,. ... , , ,. ,. , c Tn]r \ 
n - Munnvv i ^ate convention bit set at generation time by bluJL] 






53 








1: 


1 = Multiprogramming environment 








= Batch job environment 






2: 


1 = DASD file-protect supported 

= No file-protect support for DASD 






3: 


1 = DASD SYSIN - SYSOUT 
= No DASD SYSIN - SYSOUT 






4: 


1 = Teleprocessing 
= No teleprocessing 






5: 


1 = Batch job in foreground 
= No BJF 






6: 


1 = Asynchronous processing 
= No AP 






7: 


1 = Track Hold 








= No Track Hold 
This byte contains the standard language translator I/O options (set by the STDJC macro). 
Bit 0: DECK option 1 = yes, output object modules on SYSPCH 






54 








1: 


LIST option 1 = yes, output source module listings and diagnostics on SYSLST 






2: 


LISTX option 1 = yes, output hexadecimal object module listings on SYSLST (compilers only) 




3: 


SYM option 1 = yes, output symbol tables on SYSLST/SYSPCH 






4: 


XREF option 1 = yes, output symbolic cross reference list on SYSLST 






5: 


ERRS option 1 = yes, output diagnostics on SYSLST (compilers only) 






6: 


CHARSET option 1 = 48, input on SYSIPT is 48 or 60 character set 






7: 


Reserved 




H 


This byte contains the standard supervisor options for abnormal EOJ and control statement display, 


and the indicator 


for the presence of the ASCII-EBCDIC and EBCDIC-ASCII translation tables. 






BitO: 
1: 


Always on 

DUMP option 1 = yes, dump registers and storage on SYSLST 






2: 


Reserved 






3: 


LOG option 1 = yes, list all control statements on SYSLST 






4-6: 


Reserved 






7: 


ASCII option 1 = yes, ASCII supported 





Figure 8. Supervisor Communications Region (Part 3 of 5) 
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Key to Communications Region Displacement: 



56 



Job control byte 



BitO: 



2: 



6: 



1 = Job Accounting 

Interface (JA) not supported 

= Job Accounting 

Interface (JA) is supported 

1 = Return to caller on L IOCS disk open failure 

= Do not return to caller on LIOCS disk open failure 

1 = Job control input from SYSRDR 

= Job control input from SYSLOG 

1 = Job control output on SYSLOG 

= Job control output not on SYSLOG 

1 = Cancel job 

= Do not cancel job 

1 = Pause at end-of-job step 

= No pause at end-of-fob step 

1 = SYSLOG is not a 1052 

= SYSLOG is a 1052 

1 = SYSLOG is assigned to the same device as SYSLST 

= SYSLOG is not assigned to the same device as SYSLST 



57 



Linkage control byte 



BitO: 

1: 

2: 



4: 

5: 

6: 
7: 



1 = SYSLNK open for output 

= SYSLNK not open for output 

1 = $ or FG program phase deleted, renamed, or cataloged (flag bit for $MAINEOJ) 
1 = Allow EXEC 

= Suppress EXEC 

1 = Catalog linkage editor output 

= Do not catalog linkage editor output 

1 = Supervisor has been updated 

= Supervisor has not been updated 

1 = Executing in AUTOTEST mode 

= Not executing in AUTOTEST mode 

1 = Reallocate or condense in progress 

1 = Fetch $MAINEOJ at end of job to update system directory 
= Do not fetch $MAINEOJ at end of job for update 



58 



59 



Language processor control byte. This is a set of switches used to specify nonstandard language translator options. 
The switches within the byte are controlled by job control OPTION statements and when set to 1 , override standard 
options. The format of this byte is identical to the stnadard option byte (displacement 54) with one exception: 
Bit 7 in this byte is used to indicate to LIOCS that the rewind and unload option has been specified. 

Job duration indicator byte 



Bit 0: 



2: 



> Set by Attention Routine for Job Control 



4: 



6: 
7: 



1 = Within a job condition 

= Outside a job condition 

1 = Dump on an abnormal end-of-job condition 

= No dump on abnormal EOJ 

1 = Pause at EOJ step 

= No pause at EOJ 

1 = Job control output on SYSLST 

= Output not on SYSLST 

1 = Job is being run out of sequence with a temporary assignment for SYSRDR 

= Conditions for 1 setting not met 

1 = PCIL is being condensed 

= PCIL is not being condensed 
Reserved 

1 = Batch command just issued 

= Condition for 1 setting did not occur 



Figure 8. Supervisor Communications Region (Part: 4 of 5) 
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Key to Communications Region Displacements: 



Binary disk address of the volume label area (label cylinder). 



J 62 J ►! 76 J As illustrated (Figures for information blocks, I/O tables, and pointers 

^~~""^ begin at Figure 7 which refers to more detailed Figures). 



79 



88 



90 



92 



100 



106 



108 



110 



112 



124 



126 



128 



132 



134 



135 



136 



Set to the value nn specified in the LINES = nn parameter of the STDJC macro. 

The format of the system date contained within this field is determined by the IPL program from information supplied 
in the date convention byte (displacement 53). Bytes 85-87 contain the day count. 

Bytes reserved for use by LIOCS. Transient dump programs insert a key to indicate to the LIOCS end-of-volume 
routine, $$BCMT07, that it was called by a B-transient. 

Address of the first part of the program Information block (P1B) table. (See Figures 15, and 16. ) 

ID number of the last checkpoint. Temporary indicator of file protected DASD. Used at IPL time, when 
DASDFP is specified. 

Length of the LUBID queue (in bytes). This equals the number of channel queue entries. It can also be used to 
access the REQID, LUBDSP, and TKREQID queues: (See Figure 17.) 



CE3 

I 96 Address of disk I/O position data. This is the starting address of the disk information block (DIB) table (See Figure 12). 



98 j Address of the beginning of the error recovery block. The error recovery block contains addresses of error recovery 

exits, error recovery queue information that can be used by physical transients routines, and defines storage for the 
error queue entries (See Figure 43). 



104 



As illustrated (See Figure 13). 

Key of the program (BG, F2, or Fl) that has timer support. 

As illustrated (See Figure 17). 

Logical Transient Key (LTK) contains the same value as the PIK (P1D) {Displacement 46) when the logical transient is 
requested. When the transient area is not in use, LTK is equal to zero. The SVC 2 routine sets the LTK. The 
SVC 11 routine resets the LTK. 

Supervisor constants: 

DOLLARBO (4 bytes) = C'$$BO' 

SSKADR (5 bytes) = XL5'0' 

LTAREA (3 bytes) = Adcon of LTSVPT, logical transient save pointer 

Address of second part of program information block (PIB) table (See Figure 14). 

Address of PDTABB, table of DTF addresses for MICR support (See Figure 10). 

Address of QTAM vector table (IJLQTTAD). 

Address of background communications region. 

Option Indicator Byte 

Bit 0: 1 = MCRR indicated for OBR writer 

= No MCRR indicated for OBR writer 
1: 1 = EU interface active 

= EU interface not active 
2: 1 = Teleprocessing request 

= No teleprocessing request 
3: 1 = Supervisor support for only 9-track tape 

= Supervisor does not support 9-track tape exclusively 
4: Reserved 
5: 1 = RETAIN/370 support generated 

= RETAIN/370 support not generated 
6-7: Reserved 

System Configuration Byte 2 

Bit 0: 1 = PCIL supported 

= PCIL not supported 
1 -7: Reserved 

Pointer to communications region extension (See Figure 9.) 



Figure 8. Supervisor Communications Region (Part 5 of 5) 
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BGXTNSN (See Note) 



(Hexadecimal 
Displacement) 

(Decimal 

Displacement) 


4 
4 


8 
8 


oc 

12 


10 
16 


12 
18 


14 
20 


18 
24 


1C 
28 


20 
32 


CE Table 
Address 


Track Hold 
Table Address 
(THTABAD) 


Difference 
Between 1st 
and 2nd Part 
of PIB Table 
(PIBD1FF) 


AB Termin- 
ation Table 
Address -8 
(ABPTR) 


ID of 

Task 

Owning 

LTA 

(LID) 


ID of 
Task 
Running 
(PIK) 


Task Re- 
quester ID 
Table Address 
(TKIDPTR) 


Address 
Used by 
QTAM 
(MVCFLD) 


SDR Table 

Address 

(SDRTABLE) 


TEBV 
Table 
Address 
(TEBVTAB) 


XXXX 


XXXX 


XXXX 


XXXX 


XX 


XX 


XXXX 


XXXX 


XXXX 


XXXX 



24 (Hexadecimal 


28 


2C 


30 


34 


38 


3C 


Displacement) 














36 (Decimal 


40 


44 


48 


52 


56 


60 


Displacement) 














OLTEP 


RMS 


ASCII-EBCDIC 




JAI Common 


JAI Partition 


&SYSPARM 


Linkage 


Linkage 


Translation 


(Reserved) 


Table Address 


Table Address 


Field 


Address 


Address 
(RASLINK) 


Table Address 




(ACCTCOMN) 


(ACCTxx) 


Address 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 



Key to displacements : 

| | CE Table Address. 

| 4 | Track Hold Table Address (THTABAD). 

J 8 J Difference between addresses of first part of PIB table and second part of PIB table (PIBDIFF). 

12 Abnormal Termination Table Address (minus 8) (ABPTR). 

I 16 Identification (LID) of the task owning the Logical Transient Area. Contains same value as PIK (displacement 18) when LTA is in use. 
Contains zero when LTA is not in use. 

18 Program Interrupt Key (PIK) if asynchronous processing is supported. Value is equal to the displacement of the start of the PIB table 
' ' to the PIB of the main task or subtask being selected (running). 

First byte - zero 

Second byte - contains the displacement into the PIB table for a maintask or a subtask. 
Maintask - PIK value is hex 10, 20, or 30. 
Subtask- PIK value is hex 70, 80, 90, . . . F0. 



20 



24 



28 



32 



36 



Task Requester ID Table Address (TKIDPTR). 

MVCFLD address used by QTAM. 

Statistical Data Recorder Table Address (SDRTABLE). 

Tape Error Blocks by Volume Table Address (TEBVTAB). 

Pointer to OLTEP Linkage Addresses 
J 40 J RMS Linkage Area Address (RASLINK) 

44 ASCII-EBCDIC Translation Table Address. 
| 48 | (Reserved) 

JAI Common Table Address (ACCTCOMN) 

JAI Partition Table Address (ACCTxx; where xx = BG, F2, or Fl). 

Address of &SYSPARM Field. 



52 



56 



60 



Note ; If communications regions are generated for the foreground partitions, the labels in those extensions will be F2XTNSN 
and F1XTNSN. The extensions, wherever used, are generated by the COMMNEX macro. Following the background 
extension (and immediately preceding the MCRR Linkage Table) is a six-byte area. The first four bytes are the address of 
the background save area (BGSAV), and the last two bytes are the value 4,096, used to restore base registers. 



Figure 9. Communications Region Extensions 
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The table of DTF addresses (PDTABB) contains six 8 -byte entries; one for each external line of the 
direct control feature on the system. 

PDTABB 



Byte — 


— K) 


1 ] 1 


2 3 


4 




5,6,7 


J 


Nl 


1 1 

PDSTAT+1, 


1 
X'FE' 


. n 


DTF address for MICR: 





Device on line 7 


8 


Nl 


PDSTAT+1, 


X'FD' 


_c 


Device on line 6 


16 


Nl 


PDSTAT+1, 


X'FB' 


QJ c0 




Device on line 5 


24 


Nl 


PDSTAT+1, 


X'F7' 


£ O 




Device on line 4 


32 


Nl 


PDSTAT+1, 


X'EF 1 


O u_ _ 




Device on line 3 


40 


Nl 


PDSTAT+1, 


X'DF' 






Device on line 2 










" 





Background = 10 
Foreground 2 = 20 
Foreground 1 = 30 

# Bytes 0-3 - -Contain an 'AND' instruction that is executed in main line coding to turn off the 
external line status after its detection. 

PDSTAT + 1 will contain one or more of the following interrupt codes: 



PSW Interrupt 


Interrupt Code 




External 


Code Bit 


(PSW Bits 26- 
nnnnnnnl 


31)* 


Interrupt Cause 


31 


External signal 7 


30 


nnnnnnl n 




External signal 6 


29 


nnnnnlnn 




External signal 5 


28 


nnnnlnnn 




External signal 4 


27 


nnnl nnnn 




External signal 3 


26 


nnlnnnnn 




External signal 2 



• Byte 4 --Contains the flag of the partition containing the DTF. 

• Bytes 5-7 - - Contain the address of the DTF table . 

Table of pointers (PDTABA) to DTF addresses associated with the external interrupt line. The table is 
set up to handle the status in descending order from Bit 31 to Bit 26 of the external old PSW. 



PDTABA 



Byte . 



16 
24 
32 
40 
48 
56 





*-0 


1 


2 


3 
1 


4 
1 


5 
1 


6 
l 


7 




00 


08 


00 


1 

10 


1 

00 


1 

08 


l 

00 


18 




00 


08 


00 


10 


00 


08 


00 


20 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 


28 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 


20 




00 


08 


00 


10 


00 


08 


00 


18 




00 


08 


00 


10 


00 


08 


00 





*n = other external- interrupt conditions. 

Bytes 126 and 127 (X'7E'- '7F') of the communications region contain the address of these 
tables. Label PDTABB identifies the first byte of the first table. These tables are also used 
for optical reader/sorters. 

Figure 10- Tables for MICR DTF Addresses and Pointers 



42 DOS Supervisor and Related Transients 



Displacement- 



Label 



Description 



0-15 

16-17 

18-19 

20-23 

24 

25 

26 

27 



28-31 
32-33 
34-35 
36-39 
40-43 
44-47 
48-53 



54-55 



(ACCTCOMN) 
ACCTSVRG 

ACCTSVRX 

ACCTSVRE 

ACCTPCNT 

ACCTSAID 

ACCTFAID 

ACCTRAID 

ACCTSWCH 



ACCTIME 
ACCTRESC 
ACCTUSEP 
ACCTBLES 



ACCTSEAS 



ACCTUSEL 



Temporary register save area. 

Save area for remainder of overhead counter times distributed by partition on exit. 

Save area for remainder of all-bound counter times distributed by partition on entry. 

Count of partitions using JAI . 

Owner of physical transient area*. 

Interrupted program*. 

Active program*. 

Accounting switches: if bit = 1 , true; if bit = 0, not true. 



bit - cancel accounting 
bit 1 - no active partitions 
bit 2 - catalog in process 
bit 3 - alternate label area 



bit 4 - IPL indicator 
bit 5 - SJOBACCT in Fl 
bit 6 - $JOBACCT in F2 
bit 7- $JOBACCT in BG 



Start time of current accounting interval, in complement format. 

Reserved. 

Address of user save area (ACCTUSER). 

Address of BG Job Accounting Table. 

Address of F2 Job Accounting Table if BJF; otherwise zero. 

Address of Fl Job Accounting Table if BJF; otherwise zero. 

Seize blocks; serve as overlapped Event Control Blocks. 



TSBit 


(reserved) 


Wait 
Bit 1 


PIK 1 


Wait 
Bit 2 


PIK 2 


^ Ut FrR 


ECB 


\> 






< 


2nd 



TS Bit: 

X'00' = no SJOBACCT 
running 

*1 X'FF' = SJOBACCT active 



Length of user save area, set with 4th operand of global AG39. 



"Note: X'00' = all bound, X'10' = BG, X'20' = F2, X'30' = Fl , X'40' = overhead and FG if SPI. 



Figure 11. Job Accounting Interface Common Table (ACCTCOMN) 
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Current Address 


End Address 


R 


U.L, 


L.L. 




R.C. 


Reserved 


B 


B 


C 


C 


H 


H 


R 


P 


. 






- This area nor used for SYSLNK DIB 




I i 


* 










B 


B 


C 


C 


H 


H 


R 


K 


D 


D 


B 


B 


C 


C 


H 


H 


X 


H 


H 


* 


XX 


XX 












































* 
















































* 


















-*!■** 


-1-*- 


-H-* 


■«— 2 
























■ o - 








u 








■* I *" 




* jl 





SYSLNK 
SYSIN 
SYSPCH 
SYSLST 

Number 
of Bytes 

KEY: Current Address: The next address to be used (for both input and output). 



End Address 

R 

U.L. 

L.L. 

R.C. 



P 

KDD 



: The last address within the limits of the extent. 

: Maximum number of records per track. 

: Upper head limit 

: Lower head limit 

: Record Count - residual capacity for beginning of operator notification. This is set at system 
generation time with the SYSFIL parameter, or after I PL with the SET statement (RCLST and/or 
RCPCH operands). A warning message is issued by job control after end-of-job step when the 
minimum number of remaining records has been reached or exceeded during the previous job. 

: Starting cylinder of Private Core Image Library, if PCIL is assigned. 

: Key and data length for the symbolic device. 



KDD for SYSIN =X'000050' 
KDD for SYSPCH = X'000051 » 
KDD for SYSLST =X , 000079' 

Bytes 96 and 97 (X'60 1 -'61 ') of the communications region contain the address of the SYSLNK entry. 
Label DSKPOS identifies the first byte of the table. 

Figure 12. Disk Information Block (DIB) Table 
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PC Option Table and OC Option Table: 



BG 



F2 
Fl 









A 






B 




a 


b 


a 


b 


a 


b 


^ ,~ - J w 


^ ...... j w 















No STXIT given: a = 

STXIT issued: a = address of the user program check (operator communications) routine 

STXIT issued when the user routine is already in use: a = complement of user program check (Operator communications) routine 

address 



No STXIT given: b=0 

STXIT issued: address of the user save area 



IT Option Table: 



c d 



word 







>\< 



/vord . 







NoTECB or STXIT issued: c =0 

TECB issued: c = address of the timer event control block 

STXIT issued: c = address of the user interval timer routine 

STXIT issued when user routine is already in use: c = complement of the user interval time routine address 



No TECB or STXIT issued: d =0 

TECB issued: d = complement of the TECB address 

STXIT issued: d = address of the user save area 



AB Option Table: 



BG 
F2 
Fl 









E 






F 




e 


f 


e 


f 


e 


f 


...«~j 




-ord 





















No STXIT given: e = 

STXIT issued and rtnaddr parameter passed: e = address of entry point of user's abnormal termination routine. If AP (asynchronous 

processing) is supported, the maintask and subtasks may have the same or different AB routines. When a subtask is ATTACHed 
after a STXIT AB macro has been issued by the maintask, the subtask will receive the AB routine address specified by the 
maintask only if the ATTACH macro for that subtask has the ABSAVE parameter specified . The subtask can override this by 
issuing its own STXIT AB macro. 



No STXIT given or no save area parameter passed: f = 

STXIT issued and save area parameter passed: f = address of a 72 - byte save area used by the supervisor to store the old PSW and 
general registers 0- 15 . 



Each table address (less 8 bytes) is found in the communications region at the byte locations specified below. The labels shown identify 
the first byte of the corresponding table. 



Table 

PC 
IT 
OC 

AB 



Bytes in COMREG Label 

100-101 (X'64' - '65') PCTAB 

102-103 (X'66' - '67') ITTAB 

104-105 (X'68' - '69') OCTAB 

12-13 (X'OC - '0D') ABTAB 
of extension 



Figure 13. Option Tables 
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Byte 
Number 



10 



11 



12 



13 



14 



15 



= 16" 
Byte 
Length 



All Bound 
P1B 



Reserved 



H'16« 
Priority of 
All Bound 

PIB 
(Lowest) 



Reserved 



H*0" 

All Bound 

PIB 

Displacement 



Reserved 



Background 
PIB 



Address of 
BG Comm. 
Region 



System 
LUB Index 



Reserved 



Priority of 
BG PIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'O' 



X'0010 1 

BG PIB 

Displacement 



Reserved 



FG2 
PIB 

(Note 1) 



Address of 

Area Comm. 

Region 

(Note 2) 



System 
LUB Index 



Reserved 



Priority of 
F2 PIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'0» 



X'0020' 

F2 PIB 

Displacement 



Reserved 



FG1 
PIB 

(Note 1) 



Address of 

Area Comm. 

Region 

(Note 2) 



System 
LUB Index 



Reserved 



Priority of 
Fl PIB 

(Note 4) 



Address of Termination 
ECB, if any, or F'O' 



X'0030' 

Fl PIB 

Displacement 



Reserved 



Attention 
PIB 



Address of 

BG Comm. 

Region 



"Reserved 



H'3' 

Priority of 

Attention 

PIB 



F'O* 



X'0040' 
Attention PIB 
Displacement 



Reserved 



Quiesce 
I/O PIB 



I Reserved 



H'2' 

Priority of 

Quiesce 

I/O PIB 



F'O' 



X'tXtfO' 
Quiesce PIB 
Displacement 



Reserved 



Supervisor 
PIB 



;! Reserved 



HT 

Priority of 

Supervisor 

PIB 

(Highest) 



F'O' 



X'0060' 

Supervisor 

PIB 

Displacement 



Reserved 



Subtask 
PIB 

(Note 3) 



Address of 

Area Comm. 

Region 



System 
LUB Index 



Reserved 



Priority of 
Subtask 

(Note 4) 



ECB Address for 
Subtask, or F'O' 



PIB 

Displacement 
of Main task 



Reserved 



Note 1. Generated only if MPS is specified. 

Note 2. Always background communications region except when MPS = BJF. 

Note 3. Total of nine subtasks generated, and only when AP is specified. 

Note 4. Will be filled in with halfword indicating the relative priority of task in the system (range H'4' to H'15', the lower the 
number the higher the priority). 

Bytes 124 and 125 (X'ZC'-VD 1 ) of the communications region contain the address of the second part of the PIB table. Label 
PIB2AD identifies the first byte of the table. The second part of PIB table comes before the first part in storage allocation. 
Refer to Figure 2. 

Figure 14. Second Part of Program Information Block (PIB) Table 
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PIB TABLE 



Byte 



i; 



Number ~|P 



10 



12 



13 



14 



15 



= 16 
Byte 
Length 



All 

Bound 

PIB 



Flag 
Byte 
See A 



Reserved 



SP Prefix 



Branch Instruction to the 
All Bound Routine 



Reserved 



Problem 
Program ; 
PIB 
(Note 1) l 



Flag 
Byte 
See B 



Cancel 

Code 

(Fig. 36) 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruct- 
ion 
(CR) 



Address of the 
Partition Save Area 



Number 

of Core 

Blocks 

(Note 2) 



Address of the Origin 
of the Partition 



PIB 
Assign 

Flag 
See D 



User 

LUB 

Index 



Number 

of 
Program 

LUBs 



Flag 
Byte 
See C 



Attention f \ 
PIB i r - 



Flag 
Byte 
See E 



Cancel 

Code 

(Fig. 36) 



SYSLOG ID 
(AR) 



Branch 
Code 
(BC) 



Active=Address of 
Save Area 

Inactive = Remainder of 
BC Instruction 



Switch 

Byte 
SeeF 



Logical Transient Bucket 
(contains save 
area address) 



X'07' 
See D 



Reserved 



Address of 

the Logical 

Transient 



Quiesce 
PIB 



Flag 
Byte 
See A 



Cancel 

Code 

(Fig. 36) 



C/&' 



Branch Instruction to 
Quiesce I/O Routine 



Scratch 

Byte 
X'00' 



Channel PUB Table Index Values 



X'00' 



X'04' 



X'08' 



X'OO 



X'10' 



X'14' 



X'18' 



Supervisor 
PIB 



Flag 
Byte 
See A 



Cancel 
'Code 
(Fig. 36) 



SP Prefix 



Branch Instruction to 
General Exit Routine 



Address of 
SYSRES PUB 



Length of Error 
Queue Entry 



Constants to Clear Bytes 
2-5 of CCB 



X'lF' 



X'05' 



X'00 1 



X'00' 



Subtask k 
PIB for APs 
(Note 3) ' ) 



Flag 
Byte 
See B 



Cancel 

Code 

(Fig. 36) 



SYSLOG ID 
(BG, F2, or Fl) 



NOP 
Instruc- 
tion 



Address of the 
Save Area 



Number 
of Core 
Blocks 
(Note 2) 



Address of the 
Origin of the 
Main Task 



PIB 
Assign 

Flag 
See D 



User 
LUB 
Index 



Number 

of 
LUBs 



Flag 
Byte 
SeeC 



{Background PIB 
Forearound 2 PIB 
Foreground 1 PIB 
When a batch-only environment is established at generation time, the All Bound and Foreground PIBs are excluded from the table, and only 
one (BG) problem program PIB is built. However, the X'20' bytes that F2 and Fl PIBs normally occupy (between PIBBG and PIBAR) are 
filled with 32 bytes of DIBs data. 

Note 2: Number is in multiples of 2K for F2 and Fl . BG is always 10K (X 1 0A'). 

Note 3: Total of nine subtask PIBs are generated, and only when AP is specified at generation time. 

* See Figure 16 for flag byte expansions A, B, C, D, E and F. 

Bytes 90 and 91 (X'5A' - '5B') of the communications region contain the address of the first part of the PIB Table. Label PIBTAB identifies the first 
byte of the table. 

Figure 15. First Part of Program Information Block (PIB) Table (See Figure 
14 for Second Part) 
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A Supervisor, Quiesce, and ALL Bound PIB Flags: 


D PIB Assign Flag 


BitO: 


1 = Always one 


X'80« 


= SYSRES DASD file protect inhibited (allow write 


1-4 : 


= Always zero 




operation on SYSRES) 


5 : 


1 = Always one 


X'40' 


= Channel appendage exit allowed (BTAM) 


6 : 


1 = Active 


X'20' 


= Cancel in progress (used in terminator function) 




= Inactive 


X"10* 


= Cancel control (set on a foreground cancel) 


7 : 


1 = Active 


X'08» 


= Hold-Release flag for foreground assignments 




= Inactive 


X'07' 


= Supervisor or Attention routine PIB assign flag setting 






X'04' 


= Background program PIB assign flag setting 


Note: 


If PTO = YES is specified, Bit 6 is a one in the 


X'02' 


= Foreground 1 program PIB assign flag setting 




Quiesce I/O PIB when attached by the super- 


X'OT 


= Foreground 2 program PIB assign flag setting 




visor. Otherwise it is always zero. 


1 1 








F Attention 


PIB Flag 


B 


Problem 


D rogram PIB Flag (First Byte in PIB): 


1 U 1 r\ \ 1 CI 1 1 IUI 1 








Bit 0: 


1 = Registers stored 






Bit 0: 


1 = Registers stored 




= Registers not stored 




= Registers not stored 


1-5 : 


= Always zero 


1-3 : 


= Always zero 


6 : 


1 = Attention routine active 


4 : 


1 = QTAM Wait active 




= Attention routine SVC 2-bound 




= QTAM Wait inactive 


7 : 


1 = Active 


5 : 


0= Normal execution 

1 = Program has seized the system 




= SVC 7-bound 


6 : 


1 = Unbound 


X'80' 


ndicates the attention routine is not present in the system. 




= SVC 2-bound (B-transient in progress) 


X'89' 


'ndicates the program is IDRA bound 


7 : 


1 = Unbound 


I 1 






= SVC 7-bound (waiting for an I/O interrupt) 


F Attention 


PIB Switch Byte 


X'80' 


indicates the program is not present in the system 


1 1 




X'87' 


indicates the program is PTO bound 


Bit 0-2 


: Reserved 


X*89' 
1 1 


indicates the program is IDRA bound 


3 


: 1 = PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch ON 
= PTAFTCH (Fetch $$ANERRY, Z, or 0) Switch OFF 


C Problem 


Program PIB Flag (Last Byte in PIB): 


4 


: 1 = Detach Logical Attention Routine ($$BATTNA) 
Switch ON 


Bit 0: 


1 = Batched Job in Foreground 




= Detach Logical Attention Routine ($$BATTNA) 




= No BJF 




Switch OFF 


1: 


Cancel in LTA and Device not Assigned 


5 


: 1 = Physical Attention Recall Switch ON 


2: 


1 =/&on SYSIN if DASD 




0= Physical Attention Recall Switch OFF 




0= No/&on SYSIN 


6 


: 1 = Attention Request Switch ON 


3-4: 


Reserved 




= Attention Request Switch OFF 


5: 


1 = Task is cancelled 


7 


: 1 = External Interrupt Request Switch ON 




= Task not cancelling 




0= External Interrupt Request Switch OFF 


6: 


1 = Subtask (s) attached 
= No subtasks attached 






7: 


1 = In AB Routine 

= Not in AB Routine 







Figure 16. PIB Flag Expansions 
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FLPTR 



CHANQ 



LUBID 



REQID 



LUBDSP 



TKREQID 



PUB 
Byte 2 







B 










D 




F 




G 




H 






L 






Chain 
Byte 


















Chain 
Byte 


















Chain 
Byte 
















The length of 
the queue is 
determined at 
supervisor gen- 
eration time. 


Chain 
Byte 
















Chain 
Byte 




















Chain 
Byte 


















Chain 
Byte 


















Chain 
Byte 


















Chain 
Byte 











Byte 



KEY 

H 

H 

E 


B 



The free list pointer contains a displacement index to a free list entry within the channel queue. 
The free list is a group of entries that function in essentially the same manner as a device queue. 
When the free list pointer contains a hexadecimal FF, it indicates that no more free list entries 
are available. 

The first byte of the channel queue entry (chain byte) contains a pointer (displacement index) 
to the next channel queue entry for that device. A hexadecimal FF indicates the last channel 
queue entry for that device. New requests on a given device are queued at the end of a given 
device queue. 

CCB address for the specified device. 

A pointer (displacement index) to the entire LUB table identifying the logical unit making the 
I/O request. This is doubled to get the actual displacement into the full LUB table. 

Contains a pointer (displacement index) to the first channel queue entry for a specific device 
(Figure 18). 

Contains a code identifying the program making the I/O request. The one- byte entry is called 
a RID (Requestor Identification). The RID indicates what program the CCB belongs to. The 
RID is in the form X'nk'. 

n = user -storage protection key (supervisor = 0, BG = 1, F2 = 2, Fl =3). 
k = for all user requests and all supervisor CCBs, where n = 0. 
k = 1 for supervisor CCBs to SYSLOG that bypass ID prefix, 
k = 2 for a fetch CCB. 
nk = FF for any unused channel queue entries. 

G Contains X'FF 1 if the LUB is nonsystem class, or contains the displacement index within the 

partition LUB if it is a system class LUB. 

H Contains X'FF', or the displacement into the PIB table for the PIB of the task requesting I/O. 

Bytes 108- 109 (X'6C- '6D') of the communications region contain the address of the LUBID Table. 
Label LUBIDTAB identifies the first byte of the table. The addresses of the other tables are not at fixed 
locations. They can be found in the program listing cross-reference by using the labels CHANQ, 
REQIDTAB, LUBDSPTB, and TSKIDTAB. 



Figure 17. CHANQ f LUBID, REQID, LUBDSP, and TKREQID Tables 
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PUB - TABLE 



PUBTAB 




Channel 



Unit 



Channel Queue Pointer 



TEB& TEBV Pointer or Error Count 



Device Type 



Device Characteristic Code or SAB Pointer 



Channel Scheduler Flags 



Job Control Flags 



BYTE 6 - 




Bit 


1 = Device busy 


1 


1 = Switchable device 


2 


1 = EOJ for SYSRDR or SYSIPT 


3 


1 = I/O error queued for recovery 


4 


1 = Operator intervention required 


5 


1 = Device end posting required 


6 


1 = Burst device on MPX 


7 


1 = 7 -track tape unit 



BYTE 7 - 

Bit 0-4: standard MODE assignment for 7 -track tape 
(all ones if not tape, all zeros if device is 
down). 
5: device is assigned to a background job 
6: device is assigned to a foreground 1 job 
7: device is assigned to a foreground 2 job 



BYTE0- Channel number. (Hex 0-7, FF=NULL) 

BYTE 1 - I/O device unit number. (HEX 1F= 1052, 
HEX 80= magnetic tape unit . . . ) 

BYTE 2 - HEX 0, 1,2, ... points to the first 
channel queue entry for this device. 

BYTE 3 - If device is a magnetic tape unit* and TEBs 
and/or TEBVs are specified, this byte is a 
TEB/TEBV pointer (HEX 1, 2, 3 ... ) 

If device is a magnetic tape unit* but 
neither TEBs nor TEBVs are specified, 
this byte is an error counter. 

If device is not a magnetic tape unit*, this 
byte is an error counter. 

BYTE 4 - See Figure 29 for device type codes. 

BYTE 5 - SS of the MODE = parameter in the DVCGEN 
macro for tape unit. (See Figure 30.) ' 

For DASD with seek separation, this byte is 
used as the SAB pointer. With track hold but 
not seek separation supported, this byte con- 
tains a pointer to the Track Hold Table entry 
or X» FF» (with both SKSEP and TRKHLD specified, 
the track hold pointer is found in the SAB entry). 

For MICR type devices, this byte indicates the 
external interrupt line is in use. 

NOTE: A null is generated for each device to be supported by the supervisor. 

Standard physical unit assignments are made to the PUB table at supervisor generation time. PUBs are ordered by 
channel and priority within a channel. 

Bytes 64 and 65 (X 1 40' - '41') of the communications region contain the address of the PUB table entry. 
Label PUNTAB identifies the first byte of the table. 
*2400 series or 3420 Magnetic Tape units or 2495 Tape Cartridge Reader (TEBs); 2400 series or 3420 Magnetic Tape units only (TEBVs) 



Figure 18. Physical Unit Block (PUB) Table 
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JIB Table 








Note 


JIB 1 






JIB 2 




JIB 3 




JIB 4 


'" "• :\-. : ?T * I i : . '!;.:•••. . 




JIB 5 




JIB 6 




Number (length of JIB table) 
determined at supervisor generation 









1 


2 


3 



Two JIBs are required for a 2321 extent; one for lower 
limit and one for upper limit. The lower limit defining 
JIB must be chained to the upper limit defining JIB. 
Byte 1 of this type JIB contains the subcell number 
times 10 plus the strip number in binary. 



Type of Entry 



Stored standard 
assignment 



Alternate 
assignment 



® 2311 Extent 



(?) 2321 Extent 



LUB entry of stored 
standard assignment 
(PUB and JIB pointers) 



PUB pointer 
of alternate 
assignment 



X'00' 



c L c L c H c H (D 



or B L B L C L C L /jv 
0f B H B H C H C H >J 



(?) Only when file -protect on DASD 

(5) Lower Cylinder 
Upper Cylinder 

(5) Cell or combined subcell and strip 



Flag Type 


Bit 


Meaning if Bit = 1 


Contents 





Stored standard assignment 


1 


Alternate assignment 


2 


2311 Extent 


3 


2321 Extent 


4 


Standard assignment for 
DASD extent 


Ownership 


5 


Background 


6 


Foreground 1 


7 


Foreground 2 



Chain Byte. 

Contains the displacement 
index of the next JIB. 
A hexadecimal 'FF' defines 
the end of the chain. 



Bytes 68 - 69 (X'44' - '45') of the communications region contain the address of 
the JIB table entry. Label JIBTAB identifies the first byte of the table. 



Figure 19 • Job Information Block (JIB) Table 
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TEBTAB 



TEB Table 



TEB 1 



TEB 2 



TEB 4 



TEB 5 



TEB 6 



Byte 

- Error recovery retry count. 

1 - Permanent read data check error count. 

2 - Number of times the read data check error routine is entered. 

3 - Number of times the write data check error routine is entered. 

4 - Write skip (erase gap) count. 

5 - Noise record count. 

One TEB is generated for each 2400 series or 3420 magnetic tcpe or 2495 Tape Cartridge Reader unit if the FOPT macro con- 
tains the TEB = n parameter. Job control resets each TEB at normal or abnormal End-of-Job. An unused TEB contains 
HEX'FFOOOOOOOOOO'. A TEB is referenced from byte 3 of a magnetic tape unit PUB. 

Bytes 70 and 71 (X^ 1 -^' ) of the communications region contain the address of the TEB table entry. Label TEBTAB 
identifies the first byte of the tabJe. 



Figure 20. Tape Error Block (TEB) Table 



52 DOS Supervisor and Related Transients 



r — ~ ~!"" — t -i 


r — " 1 


| Decimal 


1 




1 


| Displace- 




Byte 


1 


| merit 


Label 


Length 


Description | 


l- - J 


L A... 1 


L ... ... . _,._ . .. r . _„.. r „, t . 1 


r 






^~i 


| (TEBV 


Status Block portion of TEBV Table, see Note 1) I 


1 o 


TEBLEN 


1 


Length of TEBV Error Block (for each Error Block j 
generated) j 


1 1 


TSBLEN 


1 


Length of TEBV Status Block (4, 6, or 22 bytes, | 
see Note 1) I 


1 2 


EVARTH 


1 


EVA Read Error Threshold | 


1 3 


EVAWTH 


1 


EVA Write Error Threshold | 


1 4 


TEBSTAT 


1 


DASD ESTV File Status | 


| 5 


TEBUDC 


1 


ESTVFLE Label Update Counter j 


1 6 


TEBDEV 


1 


••• ••• ••• ••• •••••• ••■ 1 

Data Set Device Code j 


1 7 


UPXTNT 


4 


Disk Address of Upper Extent of Data Set (cchh) | 


| 11 


TEBRPT 


1 


Number of Records per Track j 


1 12 


NXTESR 


5 


Disk Address of Next Available Space for Data j 
Record (cchhr) j 


1 17 


ESTVLABL 


5 


Pointer to ESTVFLE Label in VTOC (cchhr) | 


| (TEBV 


Error Bloc! 


c portic 


Dn of TEBV Table, see Note 2) 1 


| 22 


TEBV 


1 


Status Indicator (giving status of posting and j 
writing error conditions) j 


| 23 




1 


i Usage Indicator (X"00 ,: =TEBV Error Block in use, | 
X'FF'=Error Block generated but not serving j 
any tape unit) j 


| 24 




1 


Retry Counter j 


1 25 




1 


Permanent Read Errors | 


1 26 




1 


Temporary Read Errors j 


| 27 




1 




1 28 




1 


Erase Gaps j 


| 29 




1 


Noise Blocks | 


| 30 




1 


Permanent Write Errors j 


1 31 




1 


Cleaner Actions j 


| 32 




2 


Number of Start I/Os | 


| 34 




! 6 


Volume Serial Number (volume ID) j 


| 40 (r( 


*peat bytes 


22-39 : 


for each TEBV Error Block) | 



J 



Figure 21. TEBV Table Showing Status Block and Error Blocks (Part 1 of 2) 
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Note 1 ; The TEBV (Tape Error Block by Volume) 
Table is composed of one Status Block and (n) Error 
Blocks, and is addressed symbolically by label 
TEBVTAB. 

Supervisor generation options in the F0PT macro 
determine the size of the TEBV Status Block at 
generation time : 

• When EVA is chosen without ESTV, the TEBV 
Status Block is four bytes long (bytes 0-3) , 
followed by TEBV Error Blocks, so that bytes 
4-21 are omitted. 

• When ESTV output is to SYSLOG, the TEBV Status 
Block is six bytes long (bytes 0-5), followed 
by TEBV Error Blocks, so that bytes 6-21 are 
omitted. 

• When ESTV output is to DASD, the TEBV Status 
Block is 22 bytes long (bytes 0-21, such as 
shown in this Figure) , followed by TEBV Error 
Blocks . 



Note 2 : The number of TEBV Error Blocks generated 
corresponds to the (n) parameter of the FOPT macro 
for TEB, TEBV, or EVA options. A TEBV Error Block 
always contains 18 bytes, as shown in bytes 22-39 
of this Figure. Therefore, the TEBV Table is 
composed of one TEBV Status Block (with its byte 
length dependent on supervisor generation options, 
as described in Note 1 ) , followed by (n) number of 
1 8-byte TEBV Error Blocks. 



Figure 21. TEBV Table Showing Status Block and Error Blocks 

(Part 2 of 2) 
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CBTAB 




^L 



CBPREX 



Points at next 
available buffer 



7 

CBCCW 


8 20 
CBCCB 


21 23 


24 103 
CBDATA 




















-> '"*-' *" 













CBTABND 



The Buffer Table is a 104 multiplied-by-n byte area of main storage, where n is 1 - 50. Each buffer entry in the 
table is 104 bytes. CBNEXT is a half-word constant that points at the next available buffer entry. CBNEXT is 
initialized with the address of CBTAB and is incremented by 104 every time a buffer is used, so that it points at 
the next entry. When its value becomes greater than CBTABND, CBNEXT is reinitialized with the value CBTAB. 

CBINUSE is a one-byte counter that contains the number of entries currently in use. It is incremented whenever 
a buffer is used and is decremented at dequeue time when the buffer becomes free. 

Each buffer entry contains the following fields: 



Displacement: 



21 



24 



CCW moved from requestor core. The data address portion of the CCW is modified to 
point at the data portion of the buffer. 

CCB moved from requestor core. The CCW address in the CCB is modified to point at 
the CCW in the buffer. 

Prefix. SYSLOG ID moved from problem program PIB. The prefix is printed with the 
data to identify BG, Fl, or F2 partitions. 

Data moved from requestor core. 



Figure 22. Console Buffering Table (CBTAB) and Work Areas 
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& 


K 


s 




0> 


a 


3 


CO 


CO 


w 


H* 




(D 


H 





0J 


ft 


cr 


CO 


H 




CD 



Number in 
Class List 
(NICL) 



First 
Class List 



LUB Table 



(FICL) 




BG 

System 

LUBs 

BG 

Programmer 

LUBs 


-n. 


F2 

System 
LUBs 

F2 

Programmer 

LUBs 


F1 

System 
LUBs 

F1 

Programmer 

LUBs 



SYS 



BG 



F2 



I— F1 



©< 



LUB Table for 

SYSRDR 

SYSIPT 

SYSPCH 

SYSLST 
(2) SYSLOG 

SYSLNK 

SYSRES 

SYSSLB 

SYSRLB 
® SYSUSE 

SYSREC 

SYS000 

SYS001 

SYS002 

SYS003 

SYS004 

@ SYS221 
(5) SYSCLB 



any Partition 

























































































































F1 






F2 






BG 







00000000- Points to first PUB 
1 - Points to second PUB 
1 - Points to third PUB 



111111 10- Ignore 

111111 11- Null Pointer, the LUB is Unassigned 

When a logical unit is assigned, the system inserts a 
pointer to the PUB for the physical device specified. 



[Format of Any LUB | 



ByteO 



PUB Pointer 



Byte 1 



JIB Pointer 



JIB Index (Multiply by 4 = displacement into JtB Table) or X'FF' = Null 
Pointer, no JIB for this LUB 

A LUB has a JIB pointer when: 

1. The logical unit is temporarily assigned. 

2. The'logical unit assignment is alternate (ALT). 

3. A DASD file (except a system I/O file on disk) is opened. 



Bytes 76 and 77 (X'4C - '4D') of the communications region contain the address of the LUB table entry. 
Label LUBTAB identifies the first byte of the table. 



® When in Single Program Initiation mode (Foreground 1 or 2): Must be unit record device and can be referenced by the program. 

© When in Single Program Initiation mode (Foreground 1 or 2): Can be referenced by the program. 

(3) SYSUSE may be called SYSCTL in error recovery messages. 

@ The maximum number of programmer logical units in the system is 222 if MPS = BJF, or 244 if MPS = YES or NO. 

© The SYSCLB (Private Core Image Library) LUB entry functions the same as other LUB entries, but is not part of the LUB Table. To locate the SYSCLB LUB in supervisor, perform the 
following steps: 

1. Divide the PIK by 8. 

2. Subtract the result in step 1 from the address of the PIB extension block. 

3. If option AP = YES, the result of step 2 is the location of SYSCLB LUB. If option AP = NO, add 16 (for the all-bound PIBX) to the result of step 2. 



X«FF' 

or 

Pointer 



CCB 
Address 



Address of 

Held Track 

(BBCCHH) 



Key 
of 
Task 



Flag 

and 

Counter 



,. + x . x x ., 

| X J XXX J XXXXXX J X I X J 

L X JL X X J 



Byte 



10 



11 



I Byte | 
I +- 





Explanation 






X f FF' or pointer to next available 
entry in the table. This is also 
placed in the PUB table , byte 5. 



1-3 j Address of CCB associated with the 
task requesting the hold. 

4-9 | Disk address of the track being held 
(in the form BBCCHH). 



h 



10 j Key of the task owning the track. 

11 | Bit on indicates a task is waiting 
for this track. 

1-3 Unused 

4-7 counter of number of holds on 
the track. 



Figure 24. Track Hold (TKHDTAB) Table 
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Displacement 


Label 


Description 


0-3 


ACCTWK1* 
(ACCTABLE)* 


Work area used in SIO update. 


4-7 


ACCTWK2 


Work area used with ACCTWK1 in start/stop time routine 


8-11 


ACCTSVPT 


Job card pointer; address of job card field following jobname. 


12 


ACCTPART 


ID of partition in charge (partition switch name). 


13 


ACCTRES2 


Reserved . 


14-15 


ACCTLEN 


Length of SIO area = 6n+ 1 , where n = number of devices for this partition in SYSGEN option JA = (nl , n2, n3). 


16-21 


ACCTLOAD 


Label area instruction; moves JAI label area address to OPEN/CLOSE transients. 


22-23 


ACCTRES3 


Reserved . 


24-27 


ACCTLADD 


Address of alternate label area. 


28-31 


ACCTCPUT 


Counter for CPU time elapsed in a jobstep, counted in 300ths of a second. 


32-35 


ACCTOVHT 


Counter for overhead time; time not charged to any partition. 


36-39 


ACCTBNDT 


Counter for all -bound time; system wait state time divided between running partitions. 


40-47 


ACCTSVJN 


Save area for job name during simulated EOJ. 






JOB ACCOUNTING TABLE (user's portion of Partition Table) 


48-55 


ACCTJBNM 


Job name; taken from job card. 


56-71 


ACCTUSRS 


User information; 16 bytes from Job card. 


72-73 


ACCTPTID 


Partition ID; 'BG', 'F2', or 'FT in EBCDIC format. 


74 


ACCTCNCL 


Cancel code; see Cancel Codes and Messages (Figure 32). 


75 


ACCTYPER 


Type of record: 'S' = job step, 'L' = last step of job. 


76-83 


ACCTDATE 


Date in format specified at SYSGEN (MM/DD/YY or DD/MM/YY). 


84-87 


ACCTSTRT 


Start time of job, in packed decimal (OHHMMSSF; F = sign). 


88-91 


ACCTSTOP 


Stop time of job, in same format as ACCTSTRT 


92-95 


ACCTRES 


Reserved. 


96-103 


ACCTEXEC 


Phase name; taken from execute card. 


104-107 


ACCTHICR 


High core address of active program phase, from COMREG. 


108-111 


ACCTIMES 


CPU time elapsed in a job step; counted in 300ths of a second. 


112-115 




Overhead time; elapsed time not charged to any partition, in 300ths of a second. 


116-119 




All -bound time; system wait state time divided between running partitions, in 300ths of a second. 


120 


ACCTSIOS 


SIO tables: 6 bytes for each device specified by SYSGEN options, as follows: 2 bytes for device address (Ocuu), 
4 bytes for count of SIOs in current jobstep. 

SYSGEN options. 




*Note: DSE 
its c 


CT ACCTABLE s) 
>wn JAI Partition 


/mbolically addresses the JAI Partition Tables with labels as shown. Each partition in which JAI is supported has 
Table, labeled ACCTBG, ACCTF2, ACCTF1, for active partitions BG, F2, and Fl respectively. 



Figure 25. Job Accounting Interface Partition Table (ACCTxx) 
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1 


2 3 


4 


10 


11 17 


18 24 


25 31 


SDR 
Flags 

(SDR- 


Parti- 


Number 


First SDR ID 




First OBR ID 


Current OBR ID 


Last OBR ID 


tion 
ID 


of SDR 
Records 


BBCCHHR 




BBCCHHR 


BBCCHHR 


BBCCHHR 


TABLE) 
















32 35 


36 39 


40 


43 


44 71 


Address of 


Address of 








SDR 


SDR Unit 


Reserved 




List Save Area 


Accumulator 


Switches 








72 75 


76 


95 


96 103 


104 107 


1 08 111 


112 115 


116 117 


Mask 
Bytes 


SDR1 Work Area 




Test Under 
Mask Table 


Temporary 
Work Area 


Test Under 

Mask 

Instruction 


F'65536' 


SDR Queue 
Save Area 


118 135 


136 


155 


156 159 


160 163 


164 167 


SDR2 Work Area 




Area Modified by A -Transients 


SDR Error 
Message 
Save Area 


Branch 
Instruction 


OBR/SDR 
Flag Byte 
Address 


168 


250 




Data Area for OBR/SDR Records 



Key to SDR Communications Region Displacements: 



Q 


SDR Flags: 




BitO 
1 

2 
3 


Key of OBR Bit 4: RF option = CREATE 
RDE option 5: RF option -YES 
Initial IPL time 6: Error while recording 
RF option = NO, recording is suppressed 7: Recorder file ready 




Set and tested by Job Control. 


Q 


Set by EREP transient $$BSDRUP to identify the partition making the call for EREP recording. 




Settings: X'10' if EREP is running in BG. 
X'20' if EREP is running in F2. 
X'30' if EREP is running in Fl . 

X'01 ' with one of the above if recorder file is ready. 
X'00' with one of the above if recorder file is not ready. 


Q 


Initial number of SDR records specified. If SDR record count is not specified, the file is formatted for OBR records only 
($JOBCTLM, see IPL and Job Control PLM, Y24-5086) . 


[Z 


Disk address of first SDR record . 


QE 


Disk address of first OBR record . 


[nr 


Disk address of current OBR record . 




25 


Disk address of last OBR record . 



Figure 26. SDR Communications Region (SDRTABLE) (Part 1 of 2) 
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Key to SDR Communications Region Displacements: 



32 



36 



40 



44 



72 



76 



96 



104 



112 



116 



118 



136 



156 



160 



164 



Address of SDR accumulator area which contains half -byte counters and accumulated error conditions. 

Address of SDR unit switches. 

SDR switch byte (1 for each PUB): 

X'80' - Update operations complete 

X'40 1 - Counters on external file overflowed 

X'20' - I/O error during write 

X'08' - SDR update half- byte counters routine required 

X'04' - Update SDR record routine required 

Other - Reserved 

When entry contains X'01000000', indicates MCRR, no SDR supported. 

Reserved . 

SDR1 register save area. 

Mask formats for interpretive error accumulator, SDR1: 

XTF' -End of update 

X'FE 1 - Bypass counter 

X'FD' - Set up 'OR 1 condition to previous counter 

X'FC - Ignore list item 

Other - Test bit in error queue 

Used by the interpretive error accumulator routine to process list passed by OBR/SDR A -transient. 

Used by the interpretive error accumulator routine. 

Used by the interpretive error accumulator routine for address alignment. 

Executed by the interpretive error accumulator routine. 

Loop counter for the SDR counter update. 

Save area for pointers to entries in the SDR error queue. 

Work area where half byte error counters are unpacked and updated. 

List of devices passed to the SDR processor from $$ANERAD . 

Used by SDR/OBR recorder phases to pass error message displacements and disk error addresses in event of an error. 

Entry point from OBR/SDR A -transients. Branches to label SDRMM. 

Pointer into the OBR/SDR unit switches. Status posted by recorder phases. (See byte 36). 



168 OBR and SDR records formatted by the recorder phases. 



Figure 26. SDR Communications Region (SDRTABLE) (Part 2 of 2) 
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ASCII to EBCDIC Correspondence (0/0 to 


3/15) 










ASCII 


EBCDIC 




Character 


I 1 

II Bit 


Col | Row 


Bit 
Pattern 


Comments 




Pattern 


(in Hex) 


NUL 


[ 


0000 


0000 


| 


0000 j 0000 




SOH 


1 


0000 


0001 


1 


0000 | 0001 




STX 


1 2 


0000 


0010 


2 


0000 | 0010 




ETX 


| 3 


0000 


0011 


3 


0000 i 0011 




EOT 


| 4 


0000 


0100 


3 7 


0011 I 0111 




ENQ 


j 5 


0000 


0101 


2 D 


0010 1101 




ACK 


, 6 


0000 


0110 


2 E 


0010 1110 




BEL 


7 


0000 


0111 


2 1 F 


ooio 1 nn 




BS 


8 


0000 


1000 


1 1 6 


0001 1 0110 




HT 


1 9 


0000 


1001 


| 5 


0000 1 0101 • 




LF 


| 10 


0000 


1010 


2 1 5 


0010 | 0101 




VT 


| 11 


0000 


1011 


| B 


0000 | 1011 




FF 


1 12 


0000 


1100 


| c 


0000 j 1100 




CR 


j 13 


0000 


1101 


| D 


0000 , 1101 




SO 


14 


0000 


1110 


IE 


0000 1110 




SI 


15 


0000 


nn 


1 F 


0000 1 1 1 1 




DLE 


1 1 


0001 


0000 


1 


0001 ' 0000 




DC1 


1 1 1 


0001 


0001 


1 1 


0001 • 0001 




DC2 


1 1 2 


0001 


0010 


1 | 2 


0001 1 0010 




DC3 


1 1 3 


0001 


0011 


1 | 3 


0001 1 0011 




DC4 


1 | 4 


0001 


0100 


3 | C 


0011 1 1100 




NAK 


1 J 5 


0001 


0101 


3 | D 


0011 | 1101 




SYN 


1 | 6 


0001 


0110 


3 . 2 


0011 | 0010 




ETB 


1 7 


0001 


0111 


2 6 


0010 | 0110 




CAN 


1 ' 8 


0001 


1000 


1 8 


0001 | 1000 




EM 


1 1 9 


0001 


1001 


1 9 


0001 j 1001 




SUB 


1 I 10 


0001 


1010 


3 1 F 


oon , nn 




ESC 


1 | 11 


0001 


1011 


2 1 7 


0010 0111 




FS 


1 | 12 


0001 


1100 


1 1 C 


0001 1100 




GS 


1 1 13 


0001 


1101 


1 1 D 


0001 l 1101 




RS 


1 14 


0001 


1110 


1 1 E 


0001 1 1110 




US 


1 15 


0001 


nn 


1 1 F 


oooi | nn 




SP 


2 


0010 


0000 


4 1 


0100 1 0000 




1 


2 1 


0010 


0001 


4 1 F 


oioo 1 nn 


Logical OR 


" 


2 2 


0010 


0010 


7 1 F 


oin ' nn 




# 


2 ' 3 


0010 


0011 


7 1 B 


0111 1 1011 




S 


2 1 4 


0010 


0100 


5 | B 


0101 | 1011 




% 


2 1 5 


0010 


0101 


6 | C 


0110 | 1100 




& 


2 1 6 


0010 


0110 


5 1 


0101 . 0000 




1 


2 1 7 


0010 


0111 


7 D 


0111 1101 




( 


2 | 8 


0010 


1000 


4 D 


0100 1101 




) 


2 I 9 


0010 


1001 


5 I D 


0101 1101 




* 


2 10 


0010 


1010 


5 I C 


0101 1100 




+ 


2 ■ 11 


0010 


1011 


4 I E 


0100 1110 




/ 


2 [ 12 


0010 


1100 


6 | B 


0110 1011 




- 


2 1 13 


0010 


1101 


6 | 


0110 0000 


Hyphen, Minus 




2 1 14 


0010 


1110 


4 | B 


oioo ion 




/ 


2 1 15 


0010 


nn 


6 | 1 


0110 ' 0001 







3 | 


0011 


0000 


F | 


1 1 1 1 1 0000 




1 


3 1 1 


0011 


0001 


F 1 1 


nn 1 oooi 




2 


3 j 2 


0011 


0010 


F | 2 


nn • ooio 




3 


3 3 


0011 


0011 


F 1 3 


nn 1 oon 




4 


3 4 


0011 


0100 


F | 4 


nn I oioo 




5 


3 1 5 


0011 


0101 


F | 5 


nn 1 oioi 




6 


3 1 6 


0011 


0110 


F j 6 


nn l ono 




7 


3 1 7 


0011 


0111 


F | 7 


nn I oin 




8 


3 | 8 


0011 


1000 


F | 8 


nn I iooo 




9 


3 | 9 


0011 


1001 


F | 9 


nn 1 looi 






3 j 10 


0011 


1010 


7 | A 


0111 | 1010 




; 


3 j 11 


0011 


1011 


5 , E 


0101 | 1110 




< 


3 , 12 


0011 


1100 


4 C 


0100 j 1100 




= 


3 13 


0011 


1101 


7 E 


0111 1110 




> 


3 14 


0011 


, 1110 


6 E 


0110 1110 




? 


3 J 15 


0011 


1 nn 


6 ( F 


ono j nn 





Figure 27. ASCII Translation Tables (Part 1 of 4) 
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ASCII to EBCDIC Correspondence (4/0 to 


7/15) 










ASCII 


EBCDIC 




Character 


Col | Row 


Bit 
Pattern 


Col 


Row 


Bit 
Pattern 


Comments 


(in r 


Hex) 


@ 


4 


0100 1 0000 


7 


C 


0111 1100 




A 


4 1 1 


0100 1 0001 


c 


1 


1100 1 0001 




B 


4 1 2 


0100 | 0010 


c 


2 


1100 1 0010 




C 


4 1 3 


0100 | 0011 


c 


3 


1100 1 0011 




D 


4 4 


0100 | 0100 


c 


4 


1100 | 0100 




E 


4 1 5 


0100 1 0101 


c 


5 


1100 1 0101 




F 


4 | 6 


0100 0110 


c 


6 


1100 , 0110 




G 


4 | 7 


0100 0111 


c 


7 


1100 0111 




H 


4 8 


0100 1000 


c 


8 


1100 1 1000 




1 


4 1 9 


0100 1 1001 


c 


9 


1100 1 1001 




J 


4 | 10 


0100 1 1010 


D 


1 


1101 1 0001 




K 


4 | 11 


0100 | 1011 


D 


2 


1101 I 0010 




L 


4 , 12 


0100 | 1100 


D 


3 


1101 | 0011 




M 


4 13 


0100 | 1101 


D 


4 


1101 | 0100 




N 


4 1 14 


0100 j 1110 


D 


5 


1101 1 0101 




O 


4 | 15 


0100 1 .1111 


D 


6 


1101 0110 




P 


5 1 


0101 0000 


D 


7 


1101 ■ 0111 




Q 


5 | 1 


0101 0001 


D 


8 


1101 | 1000 




R 


5 2 


0101 1 0010 


D 


9 


1101 I 1001 




S 


5 1 3 


0101 1 0011 


E 


2 


1110 0010 




T 


5 | 4 


0101 | 0100 


E 


3 


1110 1 0011 




U 


5 1 5 


0101 | 0101 


E 


4 


1110 | 0100 




V 


5 6 


0101 | 0110 


E 


5 


1110 | 0101 




W 


5 1 7 


0101 I 0111 


E 


6 


1110 1 0110 




X 


5 1 8 


0101 1000 


E 


7 


1110 0111 




Y 


5 , 9 


0101 1001 


E 


8 


1110 1000 




Z 


5 1 10 


0101 1010 


E 


9 


1110 1001 




c 


5 | 11 


0101 ' 1011 


4 


A 


0100 1 1010 




\ 


5 1 12 


0101 1 1100 


E 





1110 1 0000 


Reverse Slant 


D 


5 1 13 


0101 | 1101 


5 


A 


0101 | 1010 




— ' 


5 14 


0101 I 1110 


5 


F 


oioi 1 nn 


Loqical NOT 





5 1 15 


oioi | mi 


6 


D 


0110 1 1101 


Underscore 


s 


6 | 


0110 0000 


7 


9 


0111 1001 


Grave Accent 


a 


6 1 1 


0110 0001 


8 


1 


1000 0001 




b 


6 | 2 


0110 1 0010 


8 


2 


1000 0010 




c 


6 3 


0110 | 0011 


8 


3 


1000 0011 




d 


6 1 4 


0110 | 0100 


8 


4 


1000 1 0100 




e 


6 | 5 


0110 , 0101 


8 


5 


1000 | 0101 




f 


6 1 6 


0110 0110 


8 


6 


1000 | 0110 




g 


6 7 


0110 1 0111 


8 


7 


1000 1 0111 




h 


6 1 8 


0110 1 1000 


8 


8 


1000 1000 




i 


6 | 9 


0110 | 1001 


8 


9 


1000 1 1001 




i 


6 | 10 


0110 ' 1010 


9 


1 


1001 | 0001 




k 


6 11 


0110 | 1011 


9 


2 


1001 | 0010 




I 


6 12 


0110 | 1100 


9 


3 


1001 I 0011 




m 


6 1 13 


0110 . 1101 


9 


4 


1001 0100 




n 


6 | 14 


0110 1110 


9 


5 


1001 1 0101 




o 


6 | 15 


ouo 1 mi 


9 


6 


1001 | 0110 




P 


7 | 


0111 I 0000 


9 


7 


1001 | 0111 




q 


7 1 


0111 1 0001 


9 


8 


1001 | 1000 




r 


7 2 


0111 1 0010 


9 


9 


1001 1001 




s 


7 1 3 


0111 0011 


A 


2 


1010 1 0010 




t 


7 1 4 


0111 1 0100 


A 


3 


1010 1 0011 




u 


7 1 5 


0111 | 0101 


A 


4 


1010 | 0100 




V 


7 , 6 


0111 | 0110 


. A 


5 


1010 | 0101 




w 


7 7 


0111 | 0111 


A 


6 


1010 0110 




X 


7 1 8 


0111 1000 


A 


1 7 


1010 1 0111 




y 


7 | 9 


0111 1 1001 


A 


8 


1010 | 1000 




z 


7 I 10 


0111 | 1010 


A 


9 


1010 | 1001 




{ 


7 11 


0111 1 1011 


C 


1 ° 


1100 | 0000 




1 


7 ' 12 


0111 1100 


6 


A 


0110 1010 


Vertical Line 


> 


7 1 13 


0111 1 1101 


D 


1 


1101 0000 




~ 


7 I 14 


0111 I 1110 


A 


1 1 


1010 1 0001 


Tilde 


DEL 


7 | 15 


oin | mi 





| 7 


0000 | 0111 





Figure 27. ASCII Translation Tables (Part 2 of 4) 
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EBCDIC to ASCII Corres 


pondence (X'OO 1 to X'82') 








EBCDIC 


ASCII 




Character 


Col j Row 


Bit 
Pattern 


( 

Col | Row 


Bit 
Pattern 


Comments 


(in Hex) 


NUL 


I 


0000 0000 


1 


0000 1 0000 




SOH 


| 1 


0000 0.001 


| 1 


0000 | 0001 




STX 


2 


0000 ' 0010 


I 2 


0000 | 0010 




ETX 


3 


0000 1 0011 


3 


0000 I 0011 




HT 


5 


0000 I 0101 


1 9 


0000 1 1001 




DEL 


1 7 


0000 j 0111 


7 1 15 


0111 1111 




VT 


1 B 


0000 1 1011 


| 11 


0000 1011 




FF 


1 C 


0000 , 1100 


j 12 


0000 1 1100 




CR 


j D 


0000 1101 


13 


0000 1 1101 




SO 


» E 


0000 1110 


1 14 


0000 , 1110 




SI 


1 F 


0000 1 1 1 1 1 


| 15 


0000 ' 11 1 1 




DLE 


1 | 


0001 | 0000 


1 | 


0001 | 0000 




DC1 


1 1 ! 


0001 j 0001 


1 1 


0001 | 0001 




DC2 


1 1 2 


0001 0010 


1 1 2 


0001 | 0010 




DC3 


1 3 


0001 1 0011 


1 1 3 


0001 0011 




BS 


1 • 6 


0001 | 0110 


| 8 


0000 1 1000 




CAN 


1 1 8 


0001 1 1000 


1 8 


0001 | 1000 




EM 


1 | 9 


0001 , 1001 


1 9 


0001 , 1001 




FS 


1 . C 


0001 1100 


1 1 12 


0001 1100 




GS 


1 D 


0001 1 1101 


1 | 13 


0001 1 1101 




RS 


1 E 


0001 | 1110 


1 1 14 


0001 | 1110 




US 


1 1 F 


oooi | mi 


1 , 15 


oooi | mi 




LF 


2 1 5 


0010 | 0101 


10 


0000 | 1010 




ETB 


2 1 6 


0010 | 0110 


1 • 7 


0001 1 0111 




ESC 


2 7 


0010 | 0111 


1 1 11 


0001 , 1011 




ENQ 


2 D 


0010 1101 


1 5 


0000 0101 




ACK 


2 E 


0010 1110 


6 


oooo 1 0110 




BEL 


2 F 


ooio 1 mi 


7 


0000 1 0111 




SYN 


3 12 


0011 1 0010 


1 1 6 


0001 1 0110 




EOT 


3 | 7 


0011 | 0111 


| 4 


0000 0100 




DC4 


3 1 C 


0011 1 1100 


1 I 4 


0001 1 0100 




NAK 


3 D 


0011 1 1101 


1 5 


0001 | 0101 




SUB 


3 1 F 


oon | mi 


1 1 10 


0001 1 1010 




SP 


4 | 


0100 1 0000 


2 | 


0010 0000 




c 


4 1 A 


0100 1010 


5 1 11 


0101 1011 






4 B 


0100 1 1011 


2 , 14 


0010 1 1110 




< 


4 1 C 


0100 | 1100 


3 1 12 


0011 1 1100 




( 


4 I D 


0100 I 1101 


2 | 8 


0010 | 1000 




+ 


4 | E 


0100 1110 


2 I 11 


0010 | 1011 




1 


4 1 F 


oioo 1 mi 


2 1 


0010 0001 


Logical OR 


& 


5 , 


0101 | 0000 


2 1 6 


0010 0110 




] 


5 A 


0101 | 1010 . 


5 | 13 


0101 1 1101 




s 


5 1 B 


0101 ' 1011 


2 1 4 


0010 | 0100 




* 


5 I C 


0101 | 1100 


2 I 10 


0010 | 1010 




) 


5 1 D 


0101 1 1101 


2 9 


0010 1 1001 






5 E 


0101 1110 


3 1 11 


oon ion 




— 1 


5 F 


oioi mi 


5 |- 14 


0101 1110 


Logical NOT 


- 


6 1 


0110 ' 0000 


2 | 13 


0010 1 1101 


Hyphen, Minus 


/ 


6 | 1 


0110 | 0001 


2 1 15 


ooio 1 mi 




1 


6 | A 


0110 1 1010 


7 12 


0111 1 1100 


Vertical Line 




6 j B 


0110 1011 


2 1 12 


0010 | 1100 




% 


6 C 


0110 1 1100 


2 1 5 


0010 | . 0101 




_ 


6 D 


0110 1 1101 


5 | 15 


oioi 1 mi 


Underscore 


> 


6 1 E 


0110 | 1110 


3 . 14 


0011 1110 




9 


6 1 F 


ono . mi 


3 15 


oon • mi 




\ 


7 1 9 


0111 1001 


6 1 


ono 1 0000 


Grave Accent 




7 | A 


0111 1 1010 


3 | 10 


0011 | 1010 




» 


7 B 


0111 | 1011 


2 j 3 


0010 j 0011 




@ 


7 C 


0111 j 1100 


4 


0100 0000 




1 


7 1 D 


0111 1101 


2 7 


0010 1 0111 




= 


7 1 E 


0111 1110 


3 1 13 


oon 1 noi 




11 


7 1 F 


oni 1 mi 


2 1 2 


0010 | 0010 




a 


8 | 1 


1000 | 0001 


6 1 1 


0110 | 0001 




b 


8 , 2 


1000 | 0010 


6 | 2 


0110 | 0010 





Figure 27. ASCII Translation Tables (Part 3 of 4) 
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EBCDIC to ASCII Correspondence (X'83' to X'F9') 










EBCDIC 


ASCII 




Character 


i 
Col | Row 


Bit 
Pattern 


Col I Row 


Bit 
Pattern 


Comments 


(in Hex) 


c 


8 1 3 


1000 I 0011 


6 3 


0110 j 


0011 




d 


8 | 4 


1000 1 0100 


6 4 


0110 1 


0100 




e 


8 | 5 


1000 1 0101 


6 5 


0110 | 


0101 




f 


8 1 6 


1000 1 0110 


6 6 


0110 


ono 




g 


8 7 


1000 | 0111 


6 7 


0110 


0111 




h 


8 1 8 


1000 1 1000 


6 8 


0110 


1000 




i 


8 | 9 


1000 1001 


6 1 9 


0110 


1001 




i 


9 | 1 


1001 0001 


6 1 10 


0110 


1010 




k 


9 2 


1001 0010 


6 | 11 


0110 


1011 




1 


9 1 3 


1001 1 0011 


6 | 12 


0110 


1100 




m 


9 I 4 


1001 | 0100 


6 | 13 


0110 


1101 




n 


9 5 


1001 1 0101 


6 j 14 


0110 1 


1110 







9 1 6 


1001 , 0110 


6 15 


0110 


nn 




P 


9 1 7 


1001 1 0111 


7 


0111 


0000 




q 


9 , 8 


1001 1 1000 


7 1 1 


0111 | 


0001 




r 


9 1 9 


1001 | 1001 


7 1 2 


0111 


0010 




~ 


A | 1 


1010 1 0001 


7 1 14 


0111 


1110 


Tilde 


s 


A 1 2 


1010 I 0010 


7 | 3 


0111 


0011 




t 


A • 3 


1010 0011 


7 | 4 


0111 


0100 




u 


A | 4 


1010 0100 


7 | 5 


0111 


0101 




V 


A 1 5 


1010 * 0101 


7 1 6 


0111 


ono 




w 


A 1 6 


1010 1 0110 


7 7 


0111 


0111 




X 


A | 7 


1010 | 0111 


7 8 


0111 


1000 




y 


A 1 8 


1010 | 1000 


7 1 9 


0111 


1001 




z 


A 9 


1010 1 1001 


7 1 10 


0111 


1010 




{ 


C 


1100 1 0000 


7 1 11 


0111 


1011 




A 


C 1 1 


1100 0001 


4 j 1 


0100 


0001 




B 


C 1 2 


noo 1 0010 


4 | 2 


0100 


0010 




C 


C | 3 


1100 1 0011 


4 I 3 


0100 


0011 




D 


C | 4 


noo 1 oioo 


4 | 4 


0100 


0100 




E 


C 1 5 


1100 | 0101 


4 5 


0100 


0101 




F 


C j 6 


1100 | 0110 


4 6 


0100 


0110 




G 


C 7 


1100 j 0111 


4 1 7 


0100 


0111 




H 


C 1 8 


1100 , 1000 


4 | 8 


0100 


1000 




1 


C | 9 


1100 1001 


4 | 9 


0100 


1001 




) 


D | 


1101 I 0000 


7 | 13 


0111 


1101 




J 


D 1 1 


1101 1 0001 


4 | 10 


0100 


1010 




K 


D 2 


1101 | 0010 


4 11 


0100 


1011 




L 


D 3 


1101 | 0011 


4 12 


0100 


noo 




M 


D 1 4 


1101 | 0100 


4 13 


0100 


1101 




N 


D | 5 


1101 j 0101 


4 1 14 


0100 


1110 




O 


D | 6 


1101 0110 


4 1 15 


0100 


1111 




P 


D , 7 


1101 0111 


5 1 


0101 


0000 




Q 


D 8 


1101 1000 


5 | 1 


0101 


0001 




R 


D 1 9 


1101 1001 


5 1 2 


0101 


0010 




\ 


E | 


1110 1 0000 


5 | 12 


0101 


1 1100 


Reverse Slant 


S 


E 1 2 


1110 1 0010 


5 1 3 


0101 


0011 




T 


E 3 


1110 | 0011 


5 4 


0101 


0100 




U 


E 4 


1110 1 0100 


5 5 


0101 


1 0101 




V 


E 1 5 


1110 | 0101 


5 6 


0101 


1 0110 




W- 


E 1 6 


1110 0110 


5 1 7 


0101 


I 0111 




X 


E 1 7 


1110 0111 


5 | ' 8 


0101 


1000 




Y 


E 8 


1110 1000 


5 1 9 


0101 


1001 




Z 


E 1 9 


1110 1001 


5 | 10 


0101 


1010 







F 1 


1 1 1 1 0000 


3 1 


0011 


0000 




1 


F | 1 


mi oooi 


3 | 1 


0011 


0001 




2 


F I 2 


mi • ooio 


3 2 


oon 


' 0010 




3 


F | 3 


mi • oon 


3 3 


oon 


1 0011 




4 


F 4 


mi oioo 


3 1 4 


0011 


1 0100 




5 


F 1 5 


nn 1 oioi 


3 1 5 


oon 


I 0101 




6 


F 1 6 


nn 1 ono 


3 1 6 


oon 


I 0110 




7 


F | 7 


nn | oin 


3 | 7 


0011 


| 0111 




8 


F | 8 


nn | iooo 


3 | 8 


0011 


| 1000 




9 


F | 9 


nn | looi 


3 \ 9 


0011 


| 1001 





Figure 27. ASCII Translation Tables (Part 4 of 4) 
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4-Byte Address of CE Table 



Supervisor Nucleus 



BG Communications 
Region Extension 



Hook 2 



Hook 1 




I/O Tables and 
Information Blocks 



4-Byte Address of CE Table 



♦ 



^ FG2 Communications ^ FG1 Communications 
7%, Region Extension % Region Extension 
VZ % 



~Y~ 

CE Table 



J 



To 
Hook 1 



To 
Hook 2 



To 
Hook n* 

i i i 



Serviceability Routines 
in C E Area 



r n - 10 maximum 



t 



Figure 28. Accessing CE Serviceability and PDAID Routines 



SAB, Patch, LTA 
and PTA Areas 



BG Save Area 
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Card Code 


Actual Device 


Dev. Type 
X'nn' 


Device Type 


2400T9 


9 -track 2400 Series Magnetic Tape Units 


50 


Magnetic Tape Units 


9 -track 3420 Magnetic Tape Units 


2400T7 


7 -track 2400 Series Magnetic Tape Units 


7 -track 3420 Magnetic Tape Units 


2495TC 


2495 Tape Cartridge Reader 


51 


Tape Cartridge Reader 


1442N1 


1442N1 Card Read Punch 


30 


Card Readers - Punches 


2520B1 


2520B1 Card Read Punch 


31 


2501 


2501 Card Reader 


10 


Card Readers 


2540R 


2540 Card Reader 


11 


2540P 


2540 Card Punch 


21 


Card Punches 


2520B2 


2520B2 Card Punch 


20 


1442N2 


1442N2 Card Punch 


22 


2520B3 


2520B3 Card Punch 


20 


1403 


1403 Printer 


40 


Printers 


1403U 


1403 Printer with UCS Feature 


42 


3211 


3211 Printer 


43 


1404 


1404 Printer 


40 


1443 


1443 Printer 


41 


1445 


1445 Printer 


41 


1050A 


1052, 3210, or 3215 Printer -Keyboard 


00 


UNSP 


Unsupported Device 


FF 


Unsupported. No burst mode on multiplexor channel 


UNSPB 


Unsupported Device 


FF 


Unsupported with burst mode on multiplexor channel 


2311 


2311 Disk Storage Drive 


60 


DASD 


2314 


2314 Direct Access Storage Facility 


62 


2319 Disk Storaqe Facility 


2321 


2321 Data Cell Drive 


61 


1412** 


1412 Magnetic Character Reader 


75 


MICR - Magnetic Ink Character Recognition Devices 
and Optical Reader/Sorters 


1419** 


1419 Magnetic Character Reader 


72 


1255 Magnetic Character Reader 


1259 Magnetic Character Reader 


1419P** 


1419 Dual Address Adapter Primary Control 
Unit 


73 


1419S** 


1419 Dual Address Adapter Secondary 
Control Unit 


74 


2701 * 


2701 Data Adapter Unit 


DO 


Teleprocessing lines 

A = SAD0 command when enabling the line 
B = SAD1 command when enabling the line 
C = SAD2 command when enabling the line 
D = SAD3 command when enabling the line 


2702 J 

' D 




Dl 


2703 


2703 Transmission Control 


D2 


2955 


2955 Data Adapter Unit 


D7 


Data link for RETAIN/370 


2671 


2671 Paper Tape Reader 


70 


Paper Tape Reader 


1285 


1285 Optical Reader 


76 


Optical Readers 


1287 


1287 Optical Reader 


77 


1288 


1288 Optical Page Reader 


1017 


1017 Paper Tape Reader with 2826 
Control Unit Model 1 


78 


Paper Tape Reader 


1018 


1018 Paper Tape Punch with 2826 Control 
Unit Model 1 


79 


Paper Tape Punch 


2260 


2260 or 2265 Display Station 


CO 


Display Station 


7770 


7770 Audio Response Unit 


D3 


Audio Response Units 


7772 


7772 Audio Response Unit 


D4 


1017TP 


1017 Paper Tape Reader with 2826 
Control Unit Model 2 


D5 


Paper Tape Reader 


1018TP 


1018 Paper Tape Punch with 2826 Control 
Unit Model 2 


D6 


Paper Tape Punch 


Note: The codes used in the DVCGEN macros are the same codes used in IPL statements. 

* For other teleprocessing devices, see IBM System/360, DOS BTAM and QTAM PLMs, GY30-5001 and GY30-5002. 
** This device type code is also used for the 1270/1275 optical reader/sorters. 



Figure 29. Device Type Codes 
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r " 




' T - - " 


-T~ 


- T - 


- - -T 1 




Density 






Convert | 


1 ss | 


H 


(Bytes per inch) 


| Parity 

-+ 

1 odd 


H- 


Feature | 
on J 


Translate | Code*| 
off | 10 | 


200 




200 


| odd 




off | 


off | 30 | 




200 


| odd 




off | 


on | 38 | 




200 


| even 




off | 


off | 20 | 


1. .. 


200 


I even 
4. 


.. 1 ,., 


off | 

_ ^ ir L 


on J 28 | 

L- J 


1. 




T 


T^ 


t 


1 — 1 




556 


| odd 




on | 


off | 50 | 




556 


| odd 




off | 


off | 70 | 




556 


| odd 




off | 


on I 78 | 




556 


| even 




off | 


off | 60 | 


h 


556 


| even 


"+- 


off | 


on | 68 | 




800 


| odd 




on | 


off | 90 | 




800 


| odd 




off | 


off | B0 | 




800 


| odd 




off | 


on | B8 | 




800 


| even 




off | 


off | A0 | 




800 


1 even 




off 1 


on A8 | 




800 


dual 


density nine-track C8 | 




1600 


dual 


density nine- track CO | 



j * Refer to PUB Table (Figure 18) § byte 5. 

i 



Figure 30. Density Data 
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RESIDENT SUPERVISOR (CHARTS 01-10) 



The supervisor is the storage resident 
portion of the Disk Operating System. It 
is loaded into storage at IPL time and 
remains there throughout system operations. 
Refer to the preceding section of this 
manual for information about generation of 
the resident supervisor. Refer to Figure 2 
for information about the storage 
organization of the resident supervisor. 

Infrequently- used supervisory functions 
are not included in the resident 
supervisor. They are in the form of 
transient programs (A and B) and are 
fetched or loaded from the core image 
library when needed. 



BATCH JOB SUPPORT 



Batch jobs may be run in any of the three 
partitions (BG, F2 # Fl) . Batch job support 
is always provided in the background 
partition. To run in the foreground 
partitions , the MPS=BJF option must be 
specified. 



MULTIPROGRAMMING SUPPORT (MPS) 



Priority Table 


Sample 
Status 


PIB Tables 


MVCFLD 


X'84' 


Supervisor task PIB 


X'60' 


X'84' 


Quiesce I/O task PIB 


X'50' 


X'80' 


Attention task PIB 


X'40< 


X'83' 


t Foreground 1 program PIB 


X"30' 


X'82' 


it Foreground 2 program PIB 


X»20» 


X'83' 


Background program PIB 


X'10' 


X'85' 


■tAII bound PIB 


X»00» 



1 . Test status flags 
in order specified 
by priority table. 

2. Select 1st PIB for 
,. : which the TRT 

: \. function is not 
X'00\ 



PIB Flags During Task Selection 


Table of Selection Criteria 


Meaning of Status 


Flag 


Label 


TRT Function 


Detached 


X'80' 


TRTMSK 


X'OO' 


Waiting for B-transient area 


X'8T 


TRTLTK 


X'OO'orX'OS' (Note 1) 


Waiting for CCB or TECB 


X'82' 




X'00« 


Ready to run 


X'83' 


TRTRUN 


X'OS'orX'OO* (Note 2) 


Inactive SUPVR or Quiesce I/O 


X'84» 




X'OO' 


Active SUPVR, Quiesce 
I/O, or All bound 


X'85' 




X'05' 



Note 1: X'OO' when the B-transient area is in use as indicated by the 
Logical Transient Key (LTK). 

Note 2: X'OO' when a task has seized the system. That task's status 
flag will equal X'84' or X'85'. 

.t These PIBs are generated for MPS option only. 



General Entry and General Exit routines 
provide the mechanism for multiprogramming 
support- Refer to these areas on Chart 01 
for additional descriptions for 
multiprogramming concepts. Figure 31 
illustrates the task selection procedure 
associated with multiprogramming. 



Figure 31. Task Selection Procedure 



I/O INTERRUPT 



SUPERVISOR INTERRUPT PROCESSORS 

This portion of the resident supervisor 
processes the following system interrupts: 

• I/O interrupt. 

• Program check interrupt. 

• External interrupt. 

• Machine check interrupt. 

• Supervisor call interrupt. 



Microprogramming detects an I/O interrupt 
and loads the I/O new PSW. Refer to the 
I/O Interrupt Processor on Chart 04. 



PROGRAM CHECK INTERRUPT 



Microprogramming detects a program check 
interrupt and loads the program check new 
PSW. Refer to Program Check Interrupt 
Processor on Chart 02. 
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EXTERNAL INTERRUPT 



Microprogramming detects an external 
interrupt and loads the external new PSW. 
External interrupts can be caused by: 

• Timer 

• External interrupt key 

• Signal 

Refer to External Interrupt Processor on 
Chart 05. 



by supplying an entry address in general 
register 0. Return may be either to the 
interrupted program or to the highest 
priority program ready to run. 



Note ; If a PCIL (Private Core Image 
Library) is assigned, it is searched first 
for the proper phase. If the phase is not 
found , the system core image library is 
then searched. When the first character of 
the phase name is $, the system core image 
library is searched first and the private 
core image library last. 



MACHINE CHECK INTERRUPT 



Microprogramming detects a machine check 
interrupt and loads the machine check new 
PSW. In a system without MCRR option, the 
SEREP action code (S) is stored in storage 
location 0001, and the system enters the 
wait state. If MCRR is present, system 
recovery is attempted. Refer to Chart 07. 



SUPERVISOR CALL INTERRUPT (SVC) 



SVC is detected by microprogramming, which 
loads the SVC new PSW. The SVC interrupt 
processor (Chart 03) analyzes the SVC code 
placed in the SVC old PSW by the calling 
program. Control is transferred to the 
appropriate processing routine. Some SVCs 
are optional and cause a cancel if the 
supervisor was generated without the 
option. (See Figure 33 for a list of 
supervisor calls.) 

SVC : Execute the channel program (EXCP) . 
The address of the user's command control 
block (CCB) must be supplied in general 
register 1 before this SVC is issued. 
Return may be either to the interrupted 
program or to the highest priority program 
ready to run. 

Note : When an SVC is issued by 
supervisor or A-Transient programs, the 
address of the CCB must be supplied in 
general register 15 before the SVC is 
issued. 

SVC 1 : Fetches a phase. A fetch loads a 
phase from the system core image library or 
a private core image library (see Note ) and 
branches to the entry address in that 
phase. The load and entry addresses are 
obtained from the respective core image 
directory entry for the phase being 
fetched. The storage address of the phase 
name must be supplied in general register 1 
before this SVC is issued. The user may 
override the linkage editor entry address 



SVC 2 : Fetches a B-transient. Loads a 
B- transient program (phase name prefix 
equals $$B) from the system core image 
library, or a private core image library 
(see SVC 1 Note ) , to the B-transient area 
(refer to Figure 2), and enters the 
B-transient at its load address plus 8 
bytes. The storage address of the 
B-transient phase name must be supplied in 
general register 1. 

An address in general register is 
ignored. The B-transient is loaded at the 
beginning address of the B-transient area. 
General register 15 is loaded with this 
address and may be used by B-transients as 
a base register. Return may be either to 
the interrupted program or to the highest 
priority program ready to run. 

Only one program can use the B-transient 
area at a time. If the B-transient program 
is SVC 7 bound, another program is 
selected. This program becomes SVC 2 bound 
(waiting for the B-transient area) if it 
issues an SVC 2. Another program is then 
selected. 

Note : Supervisor may branch directly to 
the SVC 2 routine when fetching a 
B-transient. If the transient is not in 
the library when referenced by the 
supervisor, the system enters the wait 
state. 

SVC 3 : Fetches or returns from an 
A-transient. Load an A-transient program 
(phase name prefix equals $$A) from the 
system core image library, or a private 
core image library (see SVC 1 Note ) , to the 
A-transient area (refer to Figure 2) , and 
enters the A-transient at its load address 
plus 8 bytes. The storage address of the 
A-transient phase name is loaded in general 
register 1 before the fetch is made. 

An address in general register is 
ignored. The A-transient is loaded at the 
beginning address of the A-transient area. 
General register 11 is loaded with this 
address and is used by A-transients as a 
base register. Return is to the 
interrupted program. 
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Note : Supervisor may branch directly to 
the SVC 3 routine when fetching an 
A-transient. Only programs operating in 
the supervisor mode can issue an SVC 3. If 
the transient is not in the library, the 
system enters the wait state. 



Caution : 



SVC 3 is also used as a return 



from an A-transient program. The last byte 
of the A-transient name field determines 
the usage. 

• X'OO' - Returning from error recovery 
A-transients . 

• X'01' - Returning from physical 
attention transients ($$ANERRZ, Y, 0) 
or post cancel by any A-transient. 

• Alphameric - Fetch A-transient. 

When returning from an A-transient, the 
branch address is in general register 15. 
The A-transient must load one of the exit 
addresses from the error recovery block 
(ERBLOC) . Refer to Figure 43 . 

SVC 4 : Loads a phase from the system core 
image library, or a private core image 
library (see SVC 1 Note ) , and returns to 
the user. (See the following Note.) The 
storage address of the phase name must be 
supplied in general register 1 before this 
SVC is issued. The user may override the 
link- edited load address by supplying a 
load address in general register 0. Upon 
return to the user, general register 1 
contains the phase entry address adjusted 
for any changes in the phase's load 
address. 

Note ; Return may be either to the 
interrupted program or to the highest 
priority program ready to run. 

SVC 5 ; Modifies the supervisor 
communications region. Supplies the 
supervisory support for the MVCOM macro. 
The sequence of events is : 

1. MVCOM macro issues an SVC 5. 

2. SVC 5 fetches $$ANERR1 by branching to 
the SVC 3 routine. 

3. $$ANERR1 alters the supervisor 
communications region as specified by 
the MVCOM macro. 

Return may be either to the interrupted 
program or to the highest priority program 
ready to run. 

SVC 6 ; Cancels a program (task) or 
partition. If either a subtask or maintask 
(or only program in the partition) issues a 
CANCEL, cancel code X'23" is posted to the 
PIB for the task issuing the cancel. If a 



maintask issues a CANCEL while subtasks are 
attached, cancel code X'17" is posted in 
the maintask PIB. If a CANCEL ALL is 
issued, cancel code X'lC 1 is posted. 
Cancel code X - 23 f does not cause a system 
dump even if the dump option has been 
specified. 

A simple cancel issued by a subtask 
performs the same function as DETACH (see 
SVC 39), but also posts the ECB f s byte 2, 
bits and 1, and issues a subtask 
cancellation message. When CANCEL is 
issued by a maintask, the partition is 
canceled. 

A CANCEL ALL macro issued by a subtask 
cancels the entire partition. In this 
case, the AB exits for all tasks that have 
them are taken, except for the subtask 
issuing the CANCEL ALL. (Refer to Figures 
14-16 for the format of the PIB table, to 
Chart 03 for General Cancel Routine, and to 
Figure 3 6 for cancel codes.) The next time 
the canceled program is selected on general 
exit, the supervisor branches to the SVC 2 
routine to fetch the cancel B-transient 
program $$BEOJ3 if teleprocessing is 
supported, or $$BEOJ4 if teleprocessing is 
not supported. 

SVC 7 : Waits for I/O to complete or a 
timer interrupt to occur. SVC 7 supplies 
the supervisory support for the WAIT macro. 

With MPS option, returns directly to the 
interrupted program if the traffic bit has 
been posted in the CCB or TECB. See SVC 24 
in this list for an explanation of the 
TECB. If traffic bit is not posted: 

1. Change the status of the interrupted 
program PIB to SVC 7 bound (not ready 
to run) . 

2. Select the highest priority program 
that is ready to run. 

When I/O is completed or a timer 
interrupt occurs : 

1. The traffic bit is posted in the CCB 
or TECB. 

2. The PIB is restored to the 
ready-to-run status. 

3. When this program is again selected at 
general exit, the old PSW is loaded 
with the address of the second 
instruction of the WAIT macro 
expansion. 

Without MPS option, returns directly to 
the interrupted program if the traffic bit 
has been posted in the CCB or TECB. (See 
SVC 24 in this list for an explanation of 
the TECB.) If the traffic bit is not 
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posted , the system enters the wait state 
with interrupts enabled. 



SVC 8 : Supplies the supervisory support to 
temporarily return from a B-transient 
program to the problem program. The 
B-transient area is not released. The task 
selection exit loads the problem program 
registers. An SVC 9 is used to return to 
the B-transient program. 



SVC 9 : Supplies the supervisory support 
for returning to the B-transient after an 
SVC 8 is issued. The task selection exit 
loads the B-transient registers. 



SVC 10 : Sets a timer interval. This SVC 
is optional, and the issuing program is 
canceled if supervisor is generated without 
the IT option. Only the timer supported 
program can issue an SVC 10. Others are 
canceled. 

The time interval is specified in 
general register 1 by the user (SETIME 
macro). The system time of day (SYSTOD, 
X'54') is updated to the time that the next 
interrupt should occur (may change if 
another SVC 10 is issued) . The system 
timer (SYSTIMER, X'50') is set to the 
specified time interval. The time interval 
in SYSTIMER immediately begins to lapse. 
Refer to IBM System/360 Principles of 
Operation , GA22-6821, for information 
concerning the operation of SYSTIMER. 

Note: Current system time of day can be 
obtained by shifting out the low order byte 
from the remaining time interval (SYSTIMER) 
and subtracting it from system time of day 
(SYSTOD) . Time in SYSTOD is represented in 
the form f seconds x 300. Time in SYSTIMER 
is in the form, seconds x 300 x 256. 

An SVC 10 returns directly to the timer 
supported program. No task selection is 
performed. 

SVC 11 : Returns from a B-transient 
releasing the B-transient area. SVC 11 is 
invalid if issued by other than a 
B-transient. The logical transient area is 
released for use by other programs or 
tasks. Return is to the highest priority 
program ready to run. 

SVC 12 : Supplies the supervisory support 
to reset flags to in the linkage control 
byte (displacement 57 in the supervisor 
communications region) . The user loads the 
address of a mask (1 byte, hexadecimal) 
into general register 1. This mask is 
ANDed with the linkage control byte. An 
SVC 12 returns directly to the interrupted 
program. No task selection is performed. 



SVC 13 : Supplies the supervisory support 
to set flags to 1 in the linkage control 
byte (displacement 57 in the supervisor 
communications region) - The user loads the 
address of a mask (1 byte, hexadecimal) 
into general register 1. This mask is ORed 
with the linkage control byte. An SVC 13 
returns directly to the interrupted 
program. No task selection is performed. 

SVC 14 : This is the normal end of job 
(EOJ) . Cancel code X' 10" is posted to the 
PIB for the program issuing the SVC 14. 
Refer to Figures 14-16 for the format of 
the PIB tables and to Chart 03 for the 
General Cancel routine. The next time the 
canceled program is selected on general 
exit, a branch is made to the SVC 2 routine 
to fetch the cancel B-transient program 
$$BEOJ3 if teleprocessing is supported, or 
$$BEOJ4 if teleprocessing is not supported. 
Job control is loaded by $$BEOJ to perform 
the end- of -job- step. 

SVC 15 : This is the same as SVC (EXCP) , 
with this exception: when the CHANQ table 
is full, the SVC is ignored. Return is 
directly to the interrupted program in this 
case. If the CHANQ table is not full, 
general register is zeroed and EXCP is 
issued (see SVC in this list). 

Note : The CHANQ table is full when the 
free list pointer (FLPTR) equals X'FF'. 
Refer to Figure 17 for the format of the 
CHANQ table and to Figure 32 for CHANQ 
operation. 

SVCs 16 through 21 and SVC 37 : These 
supervisor calls provide supervisory 
support for the STXIT and EXIT macros. 
They are optional, and the issuing program 
is canceled if supervisor was not generated 
with the applicable option. 

• SVC 16 stores the address of the user's 
program check (PC) routine and save 
area address in the PC option table. 

• SVC 17 provides a return from the 
user's PC routine to the program 
interrupted due to a program check. 

• SVC 18 stores the address of the user's 
interval timer (IT) routine and save 
area address in the IT option table. 
Only the timer supported program can 
issue SVC 18. If multitasking, only 
the maintask can process the 
interruption. 

• SVC 19 provides a return from the 
user's IT routine to the timer 
supported program. Only the timer 
supported program can issue SVC 19. 

• SVC 20 stores the address of the user's 
operator communications (OC) routine 
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and save area address in the OC option 
table. If multitasking, only the 
maintask can process the interruption, 

• SVC 21 provides a return from the 
user's OC routine to the program 
interrupted by the external interrupt 
key. 

The address of the user routine is 
specified in general register 0, and the 
address of the user 1 s save area is 
specified in general register 1 in all 
cases. Refer to Figure 13 for the format 
of the option tables. 

SVCs 16, 18, and 20 return directly to 
the interrupted program. SVCs 17, 19, and 

21 return either to the interrupted program 
or to the highest priority program ready to 
run. 

SVC 22 : Seizes the system and provides a 
release from such a seizure. The SVC 22 is 
ignored if supervisor was generated without 
the MPS option. The program issuing an SVC 

22 is canceled if the PSW protection key 
field does not equal 0. (Only job control 
and B- transient programs can issue an SVC 
22.) 

The first SVC 22 issued seizes the 
system and the next one issued releases the 
system. The last byte of register 
replaces the system mask. If register is 
negative, the protection key is replaced by 
the protection key of the PIK. 

The task selection mechanism is altered 
by the first SVC 22 so that only supervisor 
or quiesce I/O tasks and the program that 
issued the SVC 22 can be selected. The 
next SVC 22 issued restores the task 
selection mechanism. The contents of the 
last byte of general register are again 
used as the system mask. 

Return from each SVC 22 is directly to 
the interrupted program. 

Note ; 

• There is no way to cancel a program 
that has seized the system. 

• The program must have no pending I/O 
operations • 

• The program cannot issue supervisor 
calls while the system is seized. 

SVC 23 : Loads phase header. Retrieves the 
load address for a specified phase from the 
system core image directory or a private 
core image directory. The program issuing 
an SVC 23 is canceled if supervisor was 
generated without the MPS option or if the 
PSW protection key does not equal 0. (Only 



job control and B- transient programs can 
issue an SVC 23.) 

The user must specify the address of the 
core image phase name in general register 1 
and the address where the load address is 
to be stored in general register 0. The 
main fetch subroutine scans the core image 
directory and retrieves the load address. 
If the phase is found in the directory, the 
load address (3 bytes) is stored at the 
address specified by general register 0. 
If the phase is not found, the supervisor 
returns control to the interrupted program. 

SVC 24 : Stores the address of the user's 
timer event control block (TECB) and sets a 
timer interval. This SVC is optional, and 
the issuing program is canceled if 
supervisor is generated without IT option. 
Only the timer supported program can issue 
an SVC 24. Others are canceled. 

The address of the user's TECB is 
specified in general register 0, and the 
time interval is specified in general 
register 1. 

The traffic bit is reset in the TECB, 
and the TECB address is stored in the IT 
option table. Refer to Figure 13 for the 
format of the IT option table. 

Note : The TECB has the same format as a 
command control block (CCB) , but only the 
traffic bit is used. The traffic bit is 
set when a timer interrupt occurs. Refer 
to Figure 37 for the format of the CCB. 

The time interval is set, and the system 
time of day is updated as for an SVC 10. 
(See SVC 10 .) An SVC 24 returns directly 
to the timer supported program. No task 
selection is performed. 

The user causes the program to wait for 
the timer interrupt to occur by issuing an 
SVC 7. (See SVC 7 in this list.) 

SVC25 : Halts I/O on a teleprocessing 
device, or halts I/O on any device if 
issued by OLTEP. If the supervisor is 
generated without teleprocessing and 
without OLTEP, any issuing program is 
canceled. 

The address of any command control block 
(CCB) containing the symbolic address of 
the device to be halted must be supplied in 
register 1 before issuing the SVC 25. If 
the SVC 25 is used by a program other then 
OLTEP, an HIO instruction is issued to the 
device if: 

1. It is a teleprocessing device, and 

2. An I/O interrupt is pending for the 
device. 
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If OLTEP is the issuing program, an HIO 
instruction is issued to the device if 
there is I/O pending for the device. That 
is the only restriction on OLTEP* s use of 
SVC 25. 

The supervisor returns to the highest 
priority program ready to run. The device 
busy flag is reset at this time. Unless 
SVC 25 is issued by OLTEP or a 
teleprocessing device, this SVC is ignored 
and results in cancelation. If OLTEP was a 
supervisor option and teleprocessing was 
not, issuing as SVC 25 by a program other 
than OLTEP results in cancelation. 



SVC 26: Validate address limits. 



The 



program issuing an SVC 26 is canceled if 
the PSW protection key does not equal 0. 
(Only job control and B-transient programs 
can issue an SVC 26.) 



If all CCBs are checked and no traffic 
bits are posted, one of two courses is 
taken : 

• With MPS option - Cause user to become 
I/O-bound, disable for I/O interrupts 
only, and return to task selection. 

• Without MPS option - Set wait bit in 
SVC old PSW, disable for I/O interrupts 
only, and return to interrupted 
program. 

SVCs 30, 31, and 32 ; Reserved for QTAM. 
Refer to the QTAM PLM listed in the 
Preface . 

SVCs 33 and 34 : Reserved for internal 
macros COMRG and GETIME, respectively. 
Their use by other programs results in a 
branch to EXT01 (see Chart BG). 



The upper address must be specified in 
general register 2, and the lower address 
must be specified in general register 1. 
The upper address must be within main 
storage, and the lower address must be 
higher than the end of supervisor address, 
or the program is canceled (ERR25). Return 
is to the interrupted program. No task 
selection is performed. 

With MPS option, the PIK of the program 
issuing the SVC 26 must equal the storage 
protection key for both addresses or the 
program is canceled (ERR25). 

With batch operation, SVC 26 is ignored 
unless storage protection has been 
specified. 

SVC 27 : Same as SVC 25, except that SVC 27 
cannot be used by OLTEP. It can be used 
only to halt I/O on a teleprocessing 
device. The CCB is not dequeued if the CSW 
has been stored after an HIO command. 

SVC 28 : Provides return from user's 
stacker select routine to the MICR external 
interrupt routine in the supervisor. This 
SVC is optional and causes a cancel if 
issued at any point other than in a stacker 
select routine with MICR devices. 

SVC 29 : Provides supervisory support for 
the WAITM macro (except for MICR type 
devices) . If WAITM=YES has been specified 
in the FOPT macro, WAITM coding is 
generated to load general register 1 with 
the address of the ECB list name and to 
issue the SVC 29. However, when MICR type 
devices are used, SVC 47 is issued to 
identify the wait on the MICR CCB. 

All interrupts are disabled and the CCBs 
are all checked for the traffic bit. When 
a CCB is found with the traffic bit posted, 
SVC 29 returns to the interrupted program. 



SVC 35 : Protects a track from use by more 
than one task at a time. A X'FF' is moved 
to byte 2 of the SVC old PSW to indicate 
track hold. A requesting task not owning a 
held track is made inactive and must wait 
until the track is free. If more than 
sixteen holds on a track are attempted, the 
requesting task is canceled. 

Exits are to EXCP3 to execute the I/O, 
or to RESVC if the track is already held. 
At RESVC, the problem program old PSW is 
set to execute the SVC 35 again, and a 
branch to EXT03 is taken for task 
selection. See Figure 24 for the Track 
Hold Table. 

SVC 36 : Frees a track that is held by the 
task issuing the FREE. An attempt to free 
a track not owned by the requestor results 
in cancellation of that task. 

Exits on a successful FREE are to EXT03 
for task selection, or to the DETACH 
routine if the FREE was issued by that 
routine . 

SVC 37 : Establishes linka'ge from the 
supervisor to a problem program abnormal 
termination (AB) routine. It stores the 
routine's entry point and save area address 
in the AB table. (The save area is a 
72-byte area in which the old PSW and 
general registers 0-15 are stored.) Return 
is to the STXITing program. 

SVC 38 : Initializes a subtask. The main 
task's PIB and save area are copied to the 
subtask's PIB and save area. The subtask 1 s 
PIB flag is set to X'83' to indicate 
' ready- to- run. ' Bit of the maintask's Rl 
is set to to indicate a successful 
attach, and absolute priority is 
established for the subtask. A subtask 
attempting to issue an ATTACH is canceled. 
Exit is to EXT03 for task selection. 
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SVC 39 : Performs normal termination of a 
subtask. DETACH may be issued by either 
the subtask being terminated or by the main 
task. 

The subtask* s PIB is set inactive (byte 
= X f 80'), and its ECB (see Figure 34) is 
posted for termination. This routine calls 
the free routine to free any tracks held by 
this subtask, and a waiting task is removed 
from the wait state. Exit is to EXT03 for 
task selection. 

SVC 40 : Used for intertask communication. 
POST may be issued by either a maintask or 
a subtask. It is issued so that a task is 
aware of the termination of an event. 
Normal completion of the specified event is 
posted in the ECB (byte 2, bit 0=1). If 
the SAVE= parameter is present, only the * 
task waiting for this ECB is taken out of 
the wait state; otherwise, all waiting 
tasks are removed from the wait state. 
Exit from this routine is to EXT03 for task 
selection. 

SVC 41 ; Informs the system that a resource 
(shared data area) is now available for use 
by another task. A task may issue the DEQ 
macro only to a resource that it currently 
owns. If it attempts to issue the DEQ 
macro to some other resource, the task is 
canceled. 

If any other tasks are waiting for the 
resource, the highest priority task ready 
to run is removed from the wait state and 
gains control. If no other task is waiting 
for the resource, control returns to the 
task that issued the DEQ. 

If a task terminates without DEQuing all 
of its ENQued resources, either in its 
normal coding or in its abnormal 
termination exit routine, any task 
subsequently attempting to ENQ the resource 
is canceled. See Figure 35 for the 
Resource Control Block (RCB) . 

Normal exits are to EXT01 or EXT03. 

SVC 42 : ENQ prevents tasks from 
simultaneous manipulation of a shared data 
area (resource). This is accomplished, 
using the TS instruction, by setting to 
ones all bits of byte of the specified 
resource control block (RCB) . Then the 
event control block (ECB) address is placed 
in bytes 4-7 of the RCB. 

A task attempting to ENQ a resource that 
is already engueued by another task is 
placed in a queue and put in a waiting 
condition. The old PSW is set to reexecute 
the SVC 42 and task selection is performed. 

A task is canceled if it attempts to 
nest ENQ (s) of a resource or if it attempts 



to ENQ a resource that is still owned by a 
terminated task. 



When a task is finished with a resource, 
it should inform the system by issuing the 
DEQ macro. If it does not, tasks 
subsequently requesting that resource are 
canceled. See Figure 35 for the Resource 
Control Block. 



SVC 43 ; Supplies supervisory support for 
the creation and updating of SDR records 
for devices not explicitly supported by the 
system. The address of the compressed SDR 
record area must be supplied in general 
register 1 before the SVC is issued. The 
SDR record area must be 22 bytes long: 2 
bytes reserved for the SDR processor, 1 
byte initialized to zeroes, and a 19 byte 
SDR record with the 16 error counters 
compacted to 8 bytes. The SVC 43 causes a 
branch to the SDRSDR routine in the 
supervisor to complete processing of the 
record. Immediately following the SVC, the 
WAIT macro must be issued on the address in 
register 1. 



Example : 



LA 1,SDRAREA 

SVC 43 

WAIT (1) or SDRAREA 



This SVC is available only with the I/O 
Error Logging option (ERRLOG) . See Chart 
08 for the SDRSDR update routine. 



SVC 44 : Supplies supervisory support for 
external creation of OBR records for 
devices not explicitly supported by the 
system. The address of the OBR record area 
must be supplied in general register 1 
before the SVC is issued. The OBR record 
area must be 83 bytes long: 2 bytes 
reserved for the OBR processor, 1 byte 
initialized to zeroes, and an 80 byte OBR 
record. The SVC 44 causes a branch to the 
SDROBR routine in the supervisor to write 
the OBR record. Immediately following the 
SVC, the WAIT macro must be issued on the 
address in register 1. 



Example: 

LA 1,0BRAREA 

SVC 44 

WAIT (1) or OBRAREA 

This SVC is available only with the I/O 
Error Logging option (ERRLOG) . See Chart 
08 for the SDROBR update routine. 
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SVC 45: 



Provides emulator interface for 



CPU Models 30 and 40 f or Sysstem/370 models. 
On System/370, this SVC serves two 
purposes : 

1. When register 1 contains zero, SVC 45 
sets communication region byte 134 to 
X f 40 f f indicating that the emulator is 
active. 

2. When register 1 contains a PUB 
address, SVC 45 switches the parity 
bit in the PUB, 

SVC 46 ; Provides OLTEP with the facility 
to operate in the supervisory state. In 
the initial issuing of the SVC, register 1 
contains an entry point in OLTEP, The next 
time the SVC is issued, register 1 is 
zeroed out, forcing task selection, 

SVC 47 ; Provides identification to the 
supervisor for MICR type device waits. The 
SVC results in exiting to task selection 
(EXT03) rather than reissuing the SVC 
(RESVC) as is done when SVC 29 is issued, 

Reserved for future use. 

Reserved for future use. 

Reserved for LIOCS error recovery. 

Provides OLTEP with the ability to 
find the length of a core image library 
without loading the phase. Registers and 
1 must be initialized before issuing 



SVC 


48; 


SVC 


49; 


SVC 


50; 


SVC 


51; 



SVC 51. Register must be pointed at a 
twelve-byte save area for the phase header, 
and register 1 must be pointed at the 
eight-byte phase name. The first 12 bytes 
of the phase header are moved to the save 
area. The save area is not altered if the 
phase is not in the core image library. 
If any program except OLTEP issues an 
SVC 51, that program is canceled. 



FLPTR 



CHANQ 



LUBID 



REQID 



•03' 




// n 

-A 


'FF' 


CCB address 












'02' 


CCB address 








'FF' 


CCB address 








»05' 








PUBs 


'FF' 


CCB address 






•00' 


•06' 








•01 ' 


'FF' 








■04' 


'09' 


CCB address 






'07' 


■FF' 


CCB address 






•08' 


'FF 1 


CCB address 






(CHANQ 
aointer) 


(Chair 
field) 


i 




(LUB No.) 


(RID) 



Figure 32. Example of the CHANQ Table 
Operation 
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Macro Supported 


SVC 


Function 


Dec. 


Hex. 


EXCP 








Execute channel programs. 


FETCH 


1 

2 
3 


1 
2 

3 


Fetch any phase . 

Fetch a logical transient (B -transient). 

Fetch or return from a physical transient (A -transient) . 


LOAD 


4 


4 


Load any phase . 


MVCOM 


5 


5 


Modify supervisor communications region. 


CANCEL 


6 


6 


Cancel a problem program or task. 


WAIT 


7 


7 


Wait for a CCB or TECB. 




8 


8 


Transfer control to the problem program from a logical transient (B -transient) . 


LBRET 


9 


9 


Return to a logical transient (B - transient) from the problem program after an 
SVC 8. 


SETIME 


10* 


A 


Set timer interval . 




11 
12 

13 


B 
C 

D 


Return from a logical transient (B -transient) . 

Logical AND (Reset) to second job control byte (displacement 57 in communi- 
cations region). 

Logical OR (Set) to second job control byte (displacement 57 in communications 
region). 


EOJ 


14 


E 


Cancel job and go to job control for end of job step. 




15 


F 


Same as SVC except ignored if CHANQ table is full . (Primarily used by ERP). 


STXIT (PC) 


16* 


10 


Provide supervisor with linkage to user's PC routine for program check interrupts. 


EXIT (PC) 


17* 


11 


Return from user's PC routine . 


STXIT (IT) 


18* 


12 


Provide supervisor with linkage to user's IT routine for interval timer interrupts. 


EXIT (IT) 


19* 


13 


Return from user's IT routine. 


STXIT (OC) 


20* 


14 


Provide supervisor with linkage to user's OC routine for external or attention 
interrupts (operator communications). 


EXIT (OC) 


21* 


15 


Return from user's OC routine. 




22* 
23* 


16 
17 


The first SVC 22 seizes the system for the issuing program by disabling multi- 
program operation. The second SVC 22 releases the system (enables multiprogram 
operation). 
Load phase header. Phase load address is stored at user's address. 


SETIME 


24* 


18 


Provide supervisor with linkage to user's TECB and set timer interval . 




25* 

26* 
27* 


19 

1A 
IB 


Issue HALT I/O on a teleprocessing device, or HALT I/O on any device if issued 

byOLTEP. 

Validate address limits. 

Special HIO on teleprocessing devices. 



* = optional 



Figure 33 • DOS Supervisor Calls (Part 1 of 2) 
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Macro Supported 


SVC 


Function 


Dec. 


Hex. 


EXIT (MR) 


28* 


1C 


Return from user's stacker select routine (MICR type devices only). 




29* 


ID 


Provide return from multiple wait macros WAITF and WAITM (except MICR type 
devices). 


QWAIT 


30* 


IE 


Wait for a QTAM element. 


QPOST 


31* 


IF 


Post a QTAM element. 




32 
33 
34 


20 
21 
22 


(Reserved) . 

Reserved for internal macro COMRG . 

Reserved for internal macro GETIME . 


HOLD 


35* 


23 


Hold a track for use by the requesting task only. 


FREE 


36* 


24 


Free a track held by the task issuing the FREE. 


STXIT (AB) 


37* 


25 


Provide supervisor with linkage to user's AB routine for abnormal termination of 
a task . 


ATTACH 


38* 


26 


Initialize a subtask and establish its priority. 


DETACH 


39* 


27 


Perform normal termination of a subtask. It includes calling the FREE routine to 
free any tracks held by the subtask. 


POST 


40* 


28 


Inform the system of the termination of an event and ready any waiting tasks. 


DEQ 


41* 


29 


Inform the system that a previously enqueued resource is now available. 


ENQ 


42* 


2A 


Prevent tasks from simultaneous manipulation of a shared data area (resource). 




43* 

44* 

45* 

46* 

47* 

48 

49 

50 

51* 


2B 
2C 
2D 
2E 
2F 
30 
31 
32 
33 


Provide supervisor support for external creation and updating of SDR records. 

Provide supervisor support for external creation of OBR records. 

Provide emulator interface. 

Provide OLTEP with the facility to operate in supervisory state. 

Provide return from wait multiple WAITF for MICR type device. 

(Reserved) 

(Reserved) 

Reserved for LIOCS error recovery. 

Return phase length at OLTEP request. 



: optional 



Figure 33. DOS Supervisor Calls (Part 2 of 2) 
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i ~ T T T "1 

| Reserved | Reserved | * | Reserved | 

i | __[ j_ j 

Byte 1 2 3 



* Byte 2 

Bit 0: Turned on (X'SO") at normal 
termination of subtask. 

Bits and 1: Turned on (X'cO") if the 
subtask is abnormally 
terminated. 

Bits 2-7: Reserved, 

Note : Other blocks that may be used as 
ECBs are CCBs, TECBs, and MICR 
CCBs since posting is done in 
bit of byte 2 of the block. 

Figure 34. Event Control Block (ECB) 



|| || ECB Address | 

| * j Unused | ** | of Current | 
| | II Resource Owner j 

| X X X X | X | XXX | 

Byte 123 4 5 67 

♦Byte 0: Availability byte - All ones when resource is in use. 

- All zeros when not in use. 

**Byte 4: Flag byte: Bit = l f another task waiting for the resource. 

= t no other task waiting for the resource . 

Note : The address of the RCB is passed 
in register 1. 

Figure 35. Resource Control Block (RCB) 
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Message 
Code 

0S02I 



18 

19 
1A 
IB 
1C 
ID 
IE 
IF 
20 

21 

22 

23 
2«l 
25 

26** 

27 

28 

30 

31 



-f 



0P74I 

0P73I 

0P82I 

0S14I 

0S12I 

0S13I 

0P81I 

0S03I or 

0S11I 

0S0UI or 

0S09I 

0S05I or 

OS 06 1 

0S02I 

0S01I 

0P77I 

0P71I 

0P70I 



0P7 2I 
0P75I 






Descriptive Part of Message 
(or Condition) 

Normal EOJ 

(Same as 23 but causes dump 

because subtasks were attached 

when maintask issued CANCEL 

macro) 

(Eliminates cancel message 

when maintask issues DUMP 

macro with subtasks attached) 

I/O Operator Option 

I/O Error 

Channel Failure 

CANCEL ALL Macro 

Maintask Termination 

Unknown ENQ Requestor 

CPU Failure 

Program Check 

Illegal SVC 

Phase Not Found 

Program Request 
Operator Intervention 
Invalid address or insufficient 
core allocation to a partition. 
SYSXXX Not Assigned 
(unassigned LUB code) 
Undefined Logical Unit 
(invalid LUB code in CCB) 
(QTAM cancel in progress) 
Reading Past /& Statement 
(on SYSRDR or SYSIPT) 
I/O Error Queue Overflow 
(error queue overflow 
or no CHANQ entry avail- 
able for ERP) 



Label 



ERR10 



ERRGO 
ERR1C 
ERR ID 
ERR1E 
ERRGO 
ERR20 

ERR21 

ERR22 

ERR23 
ERR24 
ERR25 

ERR26 

ERR27 

EXT 02 
ERR30 

ERR31 






Figure 36. Cancel Codes and Messages (Part 1 of 2) 
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Cancel 
Code (hex) 



+ 



Message 
Code 



Descriptive Part of Message 
(or Condition) 



Label 



32 

33 

34 



35 
40 
80 
FF 
FF* 



0P76I 

0P79I 
0P84I 



0P851 



0P78I 
0P83x 



Invalid DASD Address (disk) 
Irrecoverable I/O Error (tape) 
No Long Seek (disk) 
I/O Error during fetch 
(unrecoverable I/O error 
during fetch of non$ phase) 
Job control open failure 
(load $$BEOJ) 
(cancel occurred in LTA) 
Unrecognized Cancel Code 
Supervisor Catalog Failure 



ERR32 

ERR33 
ERRGO 



EXT02 
EXT02 



±. 



H 



All cancel-codes except in connection with DUMP-macro (code=X f 00* 
is not a true cancel-condition) initially have a value X f 4 f 
higher than indicated above, but the X'40" bit is stripped by the 
SUPVR before fetching the Terminator. In addition to recognizing 
the cancel-codes above, the Terminator also recognizes the same 
codes with the X^O' bit on. The X*80' bit is tested for by 
$$BEOJ and subsequently reset. 

♦This cancel code is not significant in case of a supervisor 
catalog failure, because the system is placed in a wait state 
without any further processing by the Terminator. Thus, there 
is no conflict between this cancel code and the preceding X'FF' 
cancel code. 
**If the CCB is unavailable, the logical unit is SYSxxx. 



Figure 36. Cancel Codes and Messages (Part 2 of 2) 
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PHYSICAL INPUT/OUTPUT CONTROL SYSTEM (PIOCS) 



Physical IOCS is that portion of the 
resident supervisor that: 

• Builds a schedule of I/O operations for 
all devices on the system (CHANQ 
table) . Refer to Channel Scheduler on 
Chart 04 and to Figure 32 for CHANQ 
operation, 

• Starts the actual I/O operations on a 
device (SIO). Refer to Actual I/O on 
Chart 04. 

• Schedules the starting of all I/O 
operations and monitors all events 
associated with I/O. Refer to I/O 
Interrupt Processor on Chart 04. 

• Performs error recovery procedures 
(ERP) . Refer to Unit Check, Quiesce 
I/O, ERP Exits, and Resident Disk Error 
Recovery on Chart 06 and 07. Figures 
37 through 41 illustrate: command 
Control Block (CCB) , Channel Command 
Word (CCW) , Program Status Word (PSW) f 
Channel Address Word (CAW) , and Channel 
Status Word (CSW) . See Figures 42 and 
43 for CSW testing and error recovery 
block layout, respectively. 



that were set on by the problem program 
are left on. 



3. CSW Status Bits (bytes 4, 5 ) : 

Contains the CSW status information, 
which is stored in these two bytes by 
PIOCS before control is returned to 
the problem program. 

Note : The particular bits that are 
turned on in bytes 2 through 5 indicate 
the conditions that were detected by 
the problem program and PIOCS. 



**• Symbolic Unit Address (bytes 6, 7 ) : 
Contains the 2- byte hexadecimal 
representation of SYSnnn. This value 
represents the location of the logical 
unit in the LUB table (see Figure 23) 
and is placed in the CCB by the 
problem program. 



Byte 8 : Is not used in EBCDIC files, 
and must then contain hexadecimal 0. 

Contains the buffer offset (block 
prefix length) in ASCII files 



Input (F, V, U) 
Output (F, U) 
Output (V) 



x'OO'' - x f 63 B 

x"00« 

x'00 f or x'04" 



COMMAND CONTROL BLOCK 



The CCB establishes communication between 
the problem program and physical IOCS. The 
CCB is two double words in length with 
eight major fields, as shown in Figure 37. 
All data in the CCB is in the hexadecimal 
format. The eight fields of the CCB are 
listed and described as follows: 



Count Field (bytes 0, 1) : Contains 
the residual count, which is stored in 
these two bytes by PIOCS when the CCB 
is removed from the queue. 



Transmission Information (bytes 2, 3) : 
Used for communication between PIOCS 
and the problem program. 

Note : Bytes 2 through 5 are ANDed off, 
by PIOCS, when the CCB is placed in the 
queue. However, the communication bits 



CCW Address (bytes 9-11) : Contains 
the address of the CCW that is 
associated with this CCB. This 
address is placed in the CCB by the 
problem program. 



Byte 12 : X"80 f -CCB being used by ERP. 
X" 40 "-channel appendage routine for a 
teleprocessing device. X f 20 "-sense 
information desired. X" 10" -message 
writer use. X'08"-EU tape error 
indicator. X'01"-seek separation or 
console buffering option specified. 



CCW Address in CSW (bytes 13-15) : 
Contains the CCW address from the CSW. 
This address is stored by PIOCS before 
control is returned to the problem 
program. A CCB that has been queued, 
by PIOCS, to service a problem program 
I/O request cannot be used for a 
second problem program I/O request 
until the first request has been 
completed . 
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Note : Bytes 13-15 contain the address desires sense information to be 
of the channel appendage routine when returned on unrecoverable I/O errors, 

bit X'lO" is set in byte 12. The macro expansion also turns on bit 

2 (X^O") in byte 12 of the CCB. User 
handles all error or exceptional 
9. Optional-Sense CCW (bytes 16-23) : conditions except program check. 

Bytes 16-23 are appended to the CCB by protection check, channel control 
the CCB macro expansion when the user check, and interface control check. 
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w 
o 

H 
H 
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o 
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o 



CO 
CO 

(+ 

B 



oo 



(D 



O 
O 



Cu 

O 


ft 

H 
O 



to 

H 
O 
O 

?? 



o 
o 



Bytes - 



Count 



Transmission 
Information 



CSW Status Bits 
4 5 



Symbolic Unit 
Address 



Reserved for 
Logical IOCS 



CCW Address 
9 11 



Reserved for 
Physical IOCS 
12 



CCW Address 
in CSW 
13 15 



Optional 
Sense CCW 



16 



Residual Count 



Transmitting 
Information 
Between Physical 
IOCS and 
Problem Program 



1 (Note 1) 


^~~ - - _^ l 


1 Byte 4 


Byte 5 ^" — -_J 


| BIT DESIGNATION 


BIT DESIGNATION j 


| 32 Attention 


40 Program - control led . 


| 33 Status modifier 


interruption . 


1 34 Control unit end 


41 Incorrect length , 


, 35 Busy 


42 Program check i 


| 36 Channel end 


43 Protection check 1 


1 37 Device end 


44 Channel data check ' 


1 38 Unit check 


45 Channel control check ' 


39 Unit exception 


46 Interface control check . 


L^ 


47 Chaining check , 


~ "-»•>. ! 



Hexadecimal | Buffer Offset: 

Representation I ASCII Input Tapes| 
ofSYSnnn ' X'OO'-X^' 

SYSRDR -0000' 

SYSIPT =0001 ' ASCII Output 

SYSPCH = 0002 ' Tapes Fixed: 

SYSLST =0003'X'00' 



SYSLOG = 0004 



SYSLNK 


= 0005 ' 


SYSRES 


= 0006 1 


SYSSLB 


= 0007 , 


SYSRLB 


= 0008 


SYSUSE 


= 0009 ' 


SYSREC 


= oooa' 


SYSCLB 


= 000B | 


SYS000 


= 0100 


SYS001 


= 0101 ' 


SYS221 


= 01 DD' 



Variable: X'00'or 
X'04' 



Undefined: X'00' 



Address of CCW 
Associated with 
thisCCB 



X'80'-CCB being 
used by ERP 

XMO'-Channel 
Appendage 
Routine Present 
for Teleprocessing 
Device 

X'20'- Sense 

Information 

Desired 

X' 10' -Message 
Writer 

X'08'-EU Tape 
Error 

X'02'-Tape ERP 
Read Opposite 
Recovery 

X'Ol'-Seek 
Separation or 
Console Buffering 



Address of CCW 
in the CSW 
Stored at 
Channel End, 
or Address of 
the Channel 
Appendage 
Routine for 
Teleprocessing 
Devices 



.2$ 



8 Bytes 
Appended to the I 
CCB when Sense I 
Information is 
Desired 



Byte 2 

















Return Tape Read 






Traffic Bit 
(Wait) 


End -of- File 
(/*or/&) ' 

UCSB Parity 
Check (Line 
Complete) 


Unrecoverable 
I/O Error 


Accept 

Unrecoverable 

I/O 


Return DASD 
Data Checks 
2671 errors, or 
1017/1018 
errors to the 
user 


Post at 
Device End 


Data Check, 1018 
Data Check, 2540 
or 2520 Equipment 
Check, DASD 
Data Checks on 
Read or Verify 
Command, or 321 1 


User Error 
Routine 




(Note 5) 


(Note 2) 








(Note 5) 


Passback Requested 
(Notes 3 & 6) 









1 


2 


3 


4 


5 


6 


7 




On By-*- 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. 


Pr.Pr. | 











Byte 


3 










DASD- 


DASD- 


DASD- 


2540, 2520- 


Non -Recovery 


No -Record - 


Carriage 


Command 




Data Check in 


Track Overrun 


End of Cylinder 


Equipment Check 


Questionable 


Found Condition 


Channel 9 


Chaining 




Count Area 


MICR- 


MICR- 


Tape- 


Condition: 


(Retry on 2311, 


Overflow or 


Retry from 




MICR- 


Intervention 


(Note 4) 


Read Data Check 


Card - 


2314, or 2319) 


Verify Error 


the next CCW 




SCU Not 


Required 


1287/1288- 


DASD- 


Unusual 




for DASD 


to be executed 




Operational 


1285/1 287- 


Hopper Empty 


Any Data Check 


Command 










1285/1287/1288 


Key board 


in Document 


1285/1287 


Sequence 




1287 Document 






Data Check 


Correction in 
Journal Tape 


Mode 


Equipment Check 
1017/1018 


DASD- 
No Record Found 




Mode - Late 
Stacker Select 






Print Check/ 


Mode 


Line Position 


Data Check 


1285/1287/1288- 










Equipment Check 


1017- 


Error 




Document Jam 




1288 -End of 








Broken Tape 


(Note 7) 


Print Check 
Data Check 


or Torn Tape 




Page 








Print Quality/ 






UCSB Parity Check 












Equipment Check 






(Command Retry) 








p.. 





1 


2 


3 


4 


5 


6 


7 




Set On By-» 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


PIOCS 


Pr.Pr. 



PIOCS = Physical IOCS 

Pr. Pr. = Problem Program 
Note 1 . Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and device end results as a separate interrupt, device end will be ORed into CCB byte 4. 
Note 2. Indicates /* or /& statement encountered on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is also on. 
Note 3. DASD data checks on count not returned. 

Note 4. For 1255/1259/1270/1275/1412/1419, disengage. For 1275/1419D, I/O Error in external interrupt routine (channel data check or busout check). 
Note 5. The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in byte 3 will be set on 

at device end. Also see Note 1 . 
Note 6. 1018 ERP does not support the Error Correction Function. 
Note 7. This error occurs as an equipment check, data check, or FCB parity check. 



Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 11 


12 13 14 15 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33 34 35 36 


37 38 39 


40 41 42 43 44 45 46 47 


Command Code 




Data Addres 




Flags 





( Ignored) 


* 




A 


B 


C 


D 


E 



FIELD 


NAME 


DESCRIPTION 


A 


Command Code 


Bits 0-7: 

Specify the operation to be performed. 
(See Part 2 of this Figure) 


B 


Data Address 


Bits 8-31: 

Specify the location of a byte in main 
storage. It is the first location referred 
to in the area designated by the CCW. 


C 


Flags 


Bits 32-36: 

Specify the flag bits used in conjunction 
with the CCW, 

Bit 32- 

Chain-Data (CD) causes the address 
portion of the next CCW to be used with 
the current CCW. tNote 

Bit 33- 

Chain-Command (CC) causes the 
command code and data address of the 
next CCW to be used. The chain data 
flag (bit 32) takes precedence over this 
flag. 

Bit 34- 

Suppress Length Indication (SLI) causes 
a possible incorrect length indication to 
be suppressed. The chain data flag 
(bit 32) takes precedence over this flag. 

Bit 35- 

Skip (SKIP) suppresses the transfer of 
information to main storage. 

Bit 36- 

Program Control Interruption (PCI) causes 
the channel to generate an interrupt 
when the CCW is fetched. 


D 


Reserved 


Bits 37-39: 

(Must contain zeros)* 


E 


Ignored 


Bits 40-47: 
Not checked 


F 


Count 


Bits 48-63: 

Specify the number of bytes in the 
operation 



*The transfer in channel command (TIC) is the one exception to this statement. 
tNote: Chain data cannot be done on 360/30 if a highspeed device is being used. 
Excmple- 2311,2400 Model 3. 



Figure 38. Channel Command Word (CCW) (Part 1 of 2) 
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* 


Count 


* 






F 
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CHANNEL COMMAND CODES 






Command Code assignments are listed in the following table. The symbol 
X indicates that the bit position is ignored; M identifies a modifier bit. 


CODE 




COMMAND 


MMMM 10 
XXXX 1 00 

MMMM 110 
MMMM MMO 1 
MMMM MMl 
MMMM MMl 1 




Sense 

Transfer in channel 

Read backward 

Write 

Read 

Control 



CHANNEL COMMAND CODES 



DASD, CHANNEL COMMAND CODES (see A26-5988) 









Multiple Track 












(M-T) Off 




M-T On t 


8-Bit Code 








Command for CCW 


Count 


0123 4567 


Hex Dec 


Hex Dec 


Control 


No Op 


X 


0000 0011 


03 


03 






Seek 


6 


0000 0111 


07 


07 






Seek Cylinder 


6 


0O00 1011 


0B 


11 






Seek Head 


6 


0001 1011 


IB 


27 






Set File Mask 


1 


oooi mi 


IF 


31 






Space Count 


X 


oooo mi 


OF 


15 






Transfer in Channel 


X 


XXXX 1000 


X8 








Recalibrate (2311 only) 




0001 0011 


13 


19 






Restore (2321 only) 


X 


0001 0111 


17 


23 




Sense 


Sense I/O 


4 


0000 0100 


04 


04 




Switching 


Release Device 


X 


1001 0100 


94 


148 






Reserve Device 


X 


1011 0100 


B4 


180 




Searchf 


Home Address EQ 


4 (usually) 


0011 1001 


39 


57 


B9 185 




Identifier EQ 


5 (usually) 


0011 0001 


31 


49 


Bl 177 




Identifier HI 


5 (usually) 


0101 0001 


51 


81 


Dl 209 




Identifier EQ or HI 


5 (usually) 


0111 0001 


71 


113 


Fl 241 




Key EQ 


1 to 255 


0010 1001 


29 


41 


A9 169 




Key HI 


1 to 255 


0100 1001 


49 


73 


C9 201 




Key EQ or HI 


1 to 255 


0110 1001 


69 


105 


E9 233 




Key & Data EQ* A 




0010 1101 


2D 


45 


AD 173 




Key &. Data HI* 




0100 1101 


4D 


77 


CD 205 




Key & Data EQ or HI* 




0110 1101 


6D 


109 


ED 237 




Continue Scan EQ* I 


Note 1 


0010 0101 


25 


37 






Continue Scan HI* 




0100 0101 


45 


69 






Continue Scan EQ or HI* 




0110 0101 


65 


101 






Continue Scan No Compare* 




0101 0101 


55 


85 






Continue Scan Set Compare*J 




0111 0101 


75 


117 




Readf 


Home Address 


5 


0001 1010 


1A 


26 


9A 154 




Count 


8 


0001 0010 


12 


18 


92 146 




Record R0 ") 


Number 


0001 0110 


16 


22 


96 150 




Data 


of bytes 


0000 0110 


06 


06 


86 134 




Key & Data I 


trans- 


0000 1110 


0E 


14 


8E 142 




Count, Key & Data J 


ferred 


0001 1110 


IE 


30 


9E 158 




Initial Program Load (1PL) J 




0000 0010 


02 


02 




Write 


Home Address 
Record R0 


5 (usually) 
8+KL+DL of 


0001 1001 


19 


25 








R0 


0001 0101 


15 


21 






Count, Key & Data 


8+KL+DL 


0001 1101 


ID 


29 






Special Count, Key & Data* 


8+KL+DL 


0000 0001 


01 


01 






Data 


DL 


0000 0101 


05 


05 






Key & Data 


KL&DL 


0000 1101 


0D 


13 




• Special F 


eature Note 1. Includes mask 


bytes in search 


argument. 






t M-T On = 


M-T Off except, during Search 


and Read bit 


= 1 in M-T On. 






X * not sign 


ificant; KL = Key Length DL = 


Data Length; EC 


= Equal; HI = High 





Command for CCW 



Read Inquiry BCD 

Read Reader 2 BCD 

Write BDC. Auto Carriage Return 

Write BDC, No Auto Carriage Return 

No Op 

Sense 

Alarm 



1403 or 
1443 



Carriage 
Control 



2400 



Read. Feed. Select Stacker SS Type AA 

Read Type AB 

Read, Feed (1400 compatability mode only) 
Feed. Select Stacker SS Type BA 

PFR Punch. Feed, Select Stacker SS Type BA 

Punch, Feed, Select Stacker SS Type BB 



SS Stacker 



Data Mode 



EBCDIC 
Column Binary 



Read 

Read 

Read 

Read 

Write 

Write 

Write 

Write 

Control 

Control 

Control 

Sense 

Sense 



M 


M 


M 


M 








X 




1 





X 





1 


1 
1 


X 

X 










X 




1 





X 






1 
1 


1 
1 




X 
X 






1 


1 
1 


1 




1 

1 



Eject and SSI 

Eject and SSI 

Eject and SS2 

Eject and SS2 

SSI 

Eject and SSI 

SS2 

Eject and SS2 

Eject and SSI 

SS2 

Eject and SS2 

Punch diagnostic J 

Read diagnostic 



Read 
Write 
Control 
No Op 
Sense 



1 2 3 4 5 6 7 



is EBCDIC mode 

is Column Binary Mode 



Write, No Space 

Write, Space 1 After Print 

Write, Space 2 After Print 

Write, Space 3 Aftcf Print 

Write, Skip To Channel N After Print 

Diagnostic Read (1403) 

Diagnostic Read (1443) 

Test I/O 

Sense 



Space 1 Line Immediately 
Space 2 Line Immediately 
Space 3 Line Immediately 
Skip To Channel N Immediately 
No Op 



Allow buffer loading 
Load buffer (no folding) 
Load buffer (folding) 
Block data check latch 
Reset block data check latch 



Head Backward (Overrides Data Co 



Write 
Read 



N 




N 




N 

1 


IbUObpi P.1-. ** 
800 bpi NRZ1 



Control 
Codes 



RKW 

RUN 

LRG 

WTM 

BSR 

BSI 

I SR 

FSF- 



•9 track op. forces 800 BPI and odd 
parity; also, it overrides 7 track but 
does not reset 7 track. Load/Sys 
Reset forces 7 track to 800 BPI, 
odd parity, data converter on. 
translator off. 

** Reset condition 

*• Set 9 Track mode, Models 4-6 





7 Track 


D 


D 


Density 








:ou 





1 


55() 


1 
1 




1 


800** 



M M M (Mode Modifiers) 



U No Op 



0_ 2 N °l u <ed 

I - Reset Condi tiorT 



0_ I 1 Nine-track only 

10 " 



J^ o_i 

1 1 Reset Condition 
— — 



Figure 38. Channel Command Word (CCW) (Part 2 of 2) 
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2! 
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H 
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►a 


13 
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CO 


2J 


H* 
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ft 




to 





Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 11 


12 13 14 15 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33 


34 35 


36 37 38 39 


40 4142 43 44 45 46 47 


48 49 50 51 52 53 54 55 


56 57 58 59 60 6162 63 


System Mask 


Key 


CPU Mask 


Interruption Code 


ILC 


CC 


Prog. Mask 


Instruction Address 


A 


B 


C 


D 


E 


F 


G 


H 



FIELD 


NAME 


DESCRIPTION 


A 


System Mask* 


Bits 0-7: 

Are associated with the I/O channels 
and external signals as follows: 

Bit Interruption source 

Multiplexor channel 

1 Selector channel 1 

2 Selector channel 2 

3 Selector channel 3 

4 Selector channel 4 

5 Selector channel 5 

6 Selector channel 6 
1 Timer 

7 \ Interrupt key 

' External signal 
*A one-bit equals ON and permits 
an interrupt. 


B 


Protection Key 


Bits 8-11: 

Form the CPU protection key. The key 
is matched with a storage key whenever 
a result is stored. If the protection 
feature is not implemented, bits 8-1 1 
must be zero when loaded and are zero 
when stored. 


C 


CPU Mask 
(AMWP) 


Bits 12-15: 

Form the CPU mask as follows: 

Bit Meaning 
/.» ,~ [if 1 - generate extended ASCII code 
{ } [if - generate EBCDIC 

, ..-Hf 1 - permits machine check interrupt 
' [jf - prohibits machine check interrupt 

(W\ 14p^ ' ~ *^ e ^^ ' s ' n ^ e wa '* sia * e 
* [if - the CPU is in the running state 

,.,.- |lf 1 - the CPU is in the problem mode 

[if - the CPU is in the supervisor mode 


D 


Interruption 
Code 


Bits 16-31: 

Identify the cause of the interruption. 
(See NOTE for specific interruption 
codes"T) 



FIELD 


NAME 


DESCRIPTION 


E 


Instruction 
Length Code 


Bits 32 and 33: 

Indicate the length, in halfwords, of 
the instruction last executed, as 
follows: 

00(0) Not available (unpredictable) 
01 (1) 1 halfword 
10(2) 2 halfwords 
11 (3) 3 halfwords 


F 


Condition Code 


Bits 34 and 35: 

Indicate the last condition code setting. 
All instructions do not set a condition 
code. 

00 Condition code 

01 Condition code 1 

10 Condition code 2 

1 1 Condition code 3 


G 


Program 
Mask** 


Bits 36-39: 

Form the program mask for the following 
program exceptions. 

Bit Exception 

36 Fixed-point overflow 

37 Decimal overflow 

38 Exponent underflow 

39 Significance 

**A one-bit equals ON and permits a 
program check interrupt for a specific 
exception. 


H 


Instruction 
Address 


Bits 40-63: 

Indicate the address of the leftmost byte 
of the next instruction to be executed. 



SOURCE INTERRUPTION CODE 
IDENTIFICATION PSW BITS 16-31 


MASK ILC 

BITS SET 


EXE- 
CUTION 


Input/Output (old PSW 56, new PSW 120, 


priority 4 ) 


Multiplexor channel 00000000 aaaaaaaa 
Selector channel 1 00000001 aaaaaaaa 
Selector channel 2 00000010 aaaaaaaa 
Selector channel 3 00000011 aaaaaaaa 
Selector channel 4 00000100 aaaaaaaa 
Selector channel 5 00000101 aaaaaaaa 
Selector channel 6 000001 10 aaaaaaaa 



1 

2 
3 
4 
5 
6 


X 

x 
x 

X 
X 
X 
X 


complete 
complete 
complete 
complete 
complete 
complete 
complete 


Program (old PSW 40, new PSW 104, priority 2) 




Operation 00000000 00000001 
Privileged operation (K)000000 00000010 
Execute 00000000 000000 1 1 
Protection 00000000 00000100 

Addressing 00000000 00000101 

Specification 00000000 00000 1 10 
Data 00000000 00000111 
Fixed-point overflow 00000000 00001000 
Fixed-point divide 00000000 00001001 


36 


1,2,3 

1,2 

2 

0,2,3 

0,1,2,3 

1,2,3 
2,3 
1,2 
1,2 


suppress 
suppress 
suppress 
suppress/ 
terminate 
suppress/ 
terminate 
suppress 
terminate 
complete 
suppress/ 
complete 
complete 
suppress 
terminate 
complete 
complete 
suppress 


Decimal overflow 00000000 0000 1010 
Decimal divide 00000000 0000 1011 
Exponent overflow 00000000 00001 100 
Exponent underflow 00000000 (K)001 101 
Significance 00000000 0000 1110 
Floating-point divide 00000000 00001 1 1 1 


37 

38 
39 


3 
3 

1,2 
1,2 
1,2 
1,2 


Supervisor Call (old PSW 32, new PSW 96, priority 2) 


Instruction bits 00000000 r r r r r r r r 




1 


complete 


External (old PSW 24, new PSW 88, priority 3) 




External signal 1 00000000 xxxxxxx 1 
External signal 2 00000000 xxxxxx 1 x 
External signal 3 00000000 xxxxx lxx 
External signal 4 00000000 xxxxlxxx 
External signal 5 00000000 xxx 1 xxxx 
External signal 6 00000000 xxl xxxxx 
Interrupt key 00000000 x Ixxxxxx 
Timer 00000000 Ixxxxxxx 


7 
7 
7 
7 
7 
7 
7 
7 


X 
X 
X 
X 
X 
X 
X 
X 


complete 
complete 
complete 
complete 
complete 
complete 
complete 
complete 


Machine Check (old PSW 48, new PSW 


112 


priority 1) 


Machine malfunction 00000000 00000000 


13 


X 


terminate 


a Device address bits 

r Bits of Ri and Rj field of supervisor call 

x Unpredictable 




Mask bits 0-7 refer to the system mask. 
Mask bits 36 - 39 refer to the program mask. 





Byte 
Bit 

Name 
Field 






1 


2 


3 





1 


2 


3 


4 


5 


6 


7 


8 


9 


1011 


12 13 1415 


16 17 18 1920 21 2223 


2425 26 27 28 2930 31 


Key 







Command Address 








A 


B 


C 



FIELD 


NAME 


DESCRIPTION 


A 


Protection Key 


Bits 0-3 form the storage protection key for all commands associated with START I/O. 
This key is matched with a storage key whenever data is placed in storage. 
(Must contain zeros whenever storage protection is not implemented.) 


B 


Reserved 


Bits 4- 7 (Must contain zeros.) 


C 


Command Address 


Bits 8- 31 Designates the location of the first CCW in main storage associated with the START I/O. 
(The three low order bits, 29- 31, must be zeros, specifying a CCW address on integral 
boundaries of a double word.) 



Figure 40. Channel Address Word (CAW) 
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Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 


6 


7 





1 


2 


3 


4 


5 


6 


7 


8, 


9 


10 11 12 13 14 15 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33 34 35 36 37 38 39 


40 41 42 43 44 45 46 47 


48 49 50 5152 53 54 55 


56 57 58 59 60 6l|62 63 


Key 







Command Address 






Status 






Count 




* 










m 


A 


B 


C 


D 


E 



FIELD 



NAME 



Protection Key 
Reserved 

Command Address 
Status 



Count 



DESCRIPTION 



Bits 0-3 form the storage protection key used in the chain of operations at the subchannel . 

Bits 4- 7 (Must be zeros.) 

Bits 8-31 form an address that is eight higher than the address of the last CCW used. * 

Bits 32-47 identify the conditions in the device and channel that caused the CSW to be stored. 

Bits 32-39 are obtained over the I/O Interface and indicate conditions detected by the device or the control unit. 

Bits 40-47 are provided by the channel and indicate conditions associated with the subchannel. 

Each status bit represents one type of condition as follows : 



DEVICE OR CONTROL UNIT 


Bit Position 


Designated Condition 


32 


Attention 


33 


Status Modifier 


34 


Control Unit End 


35 


Busy 


36 


Channel End 


37 


Device End 


38 


Unit Check 


39 


Unit Exception 



CHANNEL/SUBCHANNEL 


Bit Position 


Designated Condition 


40 


Program -Control led Interrupt 


41 


Incorrect Length 


42 


Program Check 


43 


Protection Check 


44 


Channel Data Check 


45 


Channel Control Check 


46 


Interface Control Check 


47 


Chaining Check 



Bits 48-63 form the residual count for the last CCW used. 



This address is not 8 higher on a command reject. 



Bit 



| Status 

h 

45 

46 



(. 

38 
42 
43 
44 
47 
j. 

32 



Status Condition 



Unit check 
Program check 
Protection check 
Channel data check 
Channel chaining check 

Attention 



h 



Channel control check 
Interface control check 



I 
-+- 



Action 



35 [Device busy 

36 | Channel end jsee Charts CP and CQ for actions 

taken. Attempts to reschedule 
the channel (No attempt is made 
for the multiplex channel unless 
this is a burst-multiplex 
device) • 

See Chart CL for actions taken. 
Attempts to reschedule the 
channel (If the multiplex channel 
is being rescheduled. If the 
device on the multiplex channel 
is a burst-multiplex device , both 
channel and device are 
rescheduled.) 



37 j Device end 

34 Control unit end 






Enter wait state with all 

interrupts masked off. 
Note: System/370 CCH 
interrogates these bits for 
attempted recovery through the 
RMS function. 



Exit to unit check on Chart 06 
for error recovery. 



For attention from a 1052 , 
include attention task in task 
selection and take general exit 
(EXT03). Attention interrupts 
are ignored if: 

1. System reallocation or 
condense is in operation. 

2. Attention is not from a 1052 

1 

Skip channel end test 



-I 



33 and 35 



Control unit busy 



Reset device to available. The 
status is not tested unless 
neither channel end, device end, 
nor control unit end has 
occurred. 






Figure 42. CSW Testing in I/O Interrupt Processor 
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Displacement 

from ERBLOC 

in Decimal 



Length 
in Bytes 



Label 



Description 



-2 



2 

4 

6 

8 

10 

12 

14 

16 

18 

20 

22 

30 



nx-22 



ERRQ 
ERBLOC 



YCHANQ 

FULQUE 
ERQPTR 
RIK 



AT NEXT 
SVG3NM 

ERQUE 



Address of first error queue entry in table (ERQUE). 

Address of retry ERP exit (EXRTY). 

Address of ignore ERP exit (EXIGN). 

Address of DISWHY (retry) ERP exit (EXWHY). 

Address of the channel queue table (CHANQ). 

Address of cancel ERP exit (EXCAN). 

Address of last entry in error queue table. 

Address of last entry queued to table (initially ERQUE - 22). 

Requestor I/O key (RIK). 

Address of cancel attention exit (ATNCNL). 

Address of attention dequeue exit (PUBDEQ). 

Address of attention exit (EXT02). 

A - transient phase name field ($$ANERxx, where xx = any 

alphameric characters. 

n x 22 bytes error queue entries, where n = 3 when SP = NO, and n = 5 

when SP = YES. 



Error Queue Entry (22 bytes) 



Bytes 



csw 

0-7 


Pub Address 
of Device 
in Error 

8-9 


Flag 

Byte 

(see below) 

10 


Message 
Number 

(D 

11 


Sense 
Data 

© 

12-17 


Disk Seek 
Address 

18-21 


xxxxxxxx 


XX 


X 


X 


XXXXXX 


XXXX 



Flag Byte 



Notes: 



Bit 


Designation 





Unused 


1 


Intervention required 


2 


Pqssback*-{3) 


3 


Allow ignore 


4 


DASD in error 


5 


Allow retry 


6 


No CCB available 


7 


Unused 



(1) See Figure 46 for Physical Transient error messages. 

(2) See the following section, Physical Transient Programs, I/O Error Recovery Procedures and Sense Data. 
(3 J Put on by device ERP when user wants control returned on error. 



Bytes 98 and 99 (X'62 1 - X'63') of the communications region contain the address of the error block. Label ERBLOC identifies 
the first byte of the table. The address of the first error queue entry is at ERBLOC - 2. 

Figure 43. Error Recovery Block (ERBLOC) and Error Queue Entry 
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PHYSICAL TRANSIENT PROGRAMS (CHARTS 11-15) 



Physical transient programs are commonly 
referred to as A-transients. These 
infrequently-used sections of the 
supervisor reside in the core image library 
and are fetched by the resident supervisor 
(SVC 3) only when needed. Each program 
phase name begins with the prefix 
characters $$A. These phases are loaded 
singly into the A-transient area- See 
Figure 2 for supervisor storage 
organization- The A-transient functions 
within DOS: 



Note ; Although the disk error recovery 
procedure is not an A-transient, the sense 
data and action-taken information is 
included here to consolidate the sense data 
in this section of the manual . The disk 
ERP is part of the supervisor nucleus. See 
Chart 06. 



MESSAGE WRITER 



1. Provide device- dependent Error 
Recovery Procedures (ERP) . 



2- Issue messages associated with ERP 
operations. Message Writer. 



The message writer is a group of eight 
A-transients that build error messages, 
issue the message, analyze operator 
responses, and select the proper exit. See 
Figure 46 for a listing of the error 
messages. 



3. Process 1052 attention requests. 
Physical Attention Routines. 



Build and write OBR/SDR records. 



PHYSICAL ATTENTION ROUTINES 



The Physical Transient Overlap option 
allows user processing to continue during 
FETCH (SVCs 1, 2, and 3), LOAD (SVC 4), 
MVCOM (SVC 5), and ERP I/O operations. 
Otherwise, no task is selected while FETCH, 
LOAD, MVCOM, and ERP are processing. 

Figure 44 illustrates each A-transient 
in terms of phase name, function, and 
program level chart identification. 



ERP 



To understand the error recovery procedures 
detailed in the flowcharts, you should be 
familiar with the sense information that 
corresponds to the individual I/O devices 
supported by this system. 

Figure 45 illustrates the unit record 
equipment supported by ERP and also 
indicates the sense bits associated with 
each device. This figure is followed by 
ERP descriptions with their corresponding 
messages. 



The physical attention routines are three 
A-transients fetched by the supervisor when 
an attention interrupt has been determined. 
The attention key signals operator 
communication with the system. If the 
operator chooses to initiate a foreground 
program or to use the nonresident attention 
routine facilities (other B-transients) the 
physical attention transients get the 
$$BATTNA root phase. If the operator is 
satisfying an operator intervention 
condition or canceling the job, the 
physical attention transients process the 
attention interrupt- When the physical 
attention routines are processing the 
interrupt, they perform parameter passing 
by using a common area called the 
interphase communications area . Figure 47 
illustrates this area and its relationship 
to the entire A-transient area. 



OBR/SDR A-TRANSIENTS 



OBR/SDR Record Builder 



Note : Registers 1-8 cannot be used by 
error recovery phases. The contents of 
these registers may be destroyed should 
an interrupt cause a return to the 
supervisor. 



The record builder routines are three 
A-transients that build and write on disk 
formatted OBR records, and update SDR disk 
counters. See Chart 12. 
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List, Passer 



OBR/SDR Message Writer 



This A-transient passes a device to the SDR 
routine in the supervisor whenever an I/O 
error occurs. The list is a string of 
constants that map into some or all of the 
sixteen counters that are maintained by 
OBR/SDR support. See Figure 4 8 for 
examples of SDR device lists. 



The OBR/SDR message writers are two 
A-transients that build and issue error 
messages in the event of an error while 
recording on the recorder file. These 
transients exit to the supervisor. See 
Figure 49 for a listing of the error 
messages . 



h 



Phase Name 



$$ANERRA 
$$ANERRB 
$$ANERRC 

$$ANERAK 
$$ANERAL 
$$ANERAM 
$$ANERAN 
$$ANERAP 
$$ANERAQ 
$$ANERAR 
$$ANERAS 
$$ANERRD 
$$ANERRE 
$$ANERRL 
$$ANERRF 



Error Recovery Monitor 



h 



$$ANERRG 
$$ANERRH 
$$ANERRI 
$$ANERRJ 
$$ANERRK 

$$ANERAE 
$$ANERAB 
$$ANERRN 
$$ANERR0 
$$ANERRP 
$$ANERRQ 
$$ANERRR 
$$ANERRS 



h 



$$ANERAI 
$$ANERAJ 



Function 



Program 
Level 
Chart ID 



Tape (2400) Error Recovery 



13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 



Data Cell (2321) Error Recovery 






Message Writer 

Note ; $$ANERRM is also an 
initial message writer 
phase , 



1017/1018 Paper Tape 
Error Recovery 



11 
11 
11 



11 
11 
11 
11 
11 



14 
14 
14 
14 
14 
14 
14 
14 



12 

12 



-i 



— j 



Figure 44. A-Transient Programs (Part 1 of 2) 
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H- 



Phase Name 



Function 



Program 
Level 
Chart ID 



$$ANERRT 



MICR type devices (Single 
Address Adapter) Error Recovery 



12 



+ 



$$ANERRU 
$$ANERRV 



Unit Record Error Recovery 



11 
11 



-+ 



$$ANERRW 

$$ANERRX 

$$ANERR9 
h 



1419/1275 (Dual Address Adapter) 
Error Recovery 

Paper Tape Error Recovery 



12 
12 



Optical Reader Error Recovery 



11 



$$ANERR6 
$$ANERR7 
$$ANERR8 

$$ANERRZ 
$$ANERRY 
$$ANERR0 



Tape Cartridge Reader (2495) 
Error Recovery 



Physical Attention 



11 
11 
11 

15 
15 
15 



-H 



h 



+ 



$$ANERR1 



Modify Communications Region 



None (See 
Chart TG) 



*$$ANERRM 
$$ANERAA 
$$ANERAC 
j. 

$$ANERAD 

$$ANERAF 
$$ANERAG 



OBR/SDR Record Builder 



13 
13 
13 



List Passer 

OBR/SDR Message Writer 



11 



-H 



h 



$$ANERSA 
$$ANERSB 



3211 Printer ERP 



13 
13 

12 
12 



I- 



$$ANERSC 



j 3211 Printer OBR Record Builder j 



12 



L 



*$$ANERRM is also the initial message writer phase 



Figure 44. A-Transient Programs (Part 2 of 2) 
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ERQUE 
Device 



DASD 



Tapes 



Reader 
Punch 



Printers 



Printer 
Keyboard 



Paper Tape 
Readers 



Paper Tape 
Punch 



Optical 
Reader 



MICR 



TCR 



2311, 2314, 
2319, 2321 



2400T7 
2400T9 
3420 



1442, 2501, 
2520, 2540 



1403, 1404, 
1443 



3211 



1052, 3210, 
3215 



2671 
1017 



1016 



1285, 1287, 
1288 



1412, 1419, 
1255, 1259, 
1270, 1275 



2495 



Sense Bytes 
Byte Bit 






© 



= fcef&ef- J 






"*• "'f-y'^yy^'j'??. 






3££&ku& 



© 



;p<rfa:Chick! 









(D 



Buffer 
Parity Check 



Idverruir':: '/ 



Track 

Condition 

Check 



® 



Load 
Check 



Non- 
Recovery 



Auto 
Select 



Partition 
Check 



Seek Check 



Data 

Converter 

Check 



! Channel 9i 
Overflow 



® 



Keyboard 
Correction 



© 



Byte 1 Bit 



Data Check 
in Count 



Command 
Retry 



© 



Track Overrun 



Print 
Check 



End- of - 
Cylinder 



Print 
Quality 



Line 
Position 



No Record 
Found 



At Load 
Point 



Forms 
Check 



Invalid Font 

© 



File Protected 



fmvfo Command 
j^Hf Suppress 



Missing 
Address 
Marker 



File Protect 
Ring Present 



Mechanical 
Motion 



Tape Not 
ilP Compatible 



Notes: N/A = Not Applicable 

Qj Command Reject or Disengage Failure (1412/1419); Command Reject or Control Command (1270/1275). 

® UCB Parity Check (1403 only). 

Q[) Unusual Command Sequence (2540 read only). 

^Q Applies for 1287 to indicate tape (set to 1) or document (set to 0) mode. 

Qi) Applies for 1287 in the document mode only. 

(6J SIO- Batch numbering switch off; TIO- Document Spacing Error (1287). 

(7) Applies for 1017 only; Broken Tape. 

(b) Only if Error Correction Feature present. 

Figure 45. Sense Information for Devices Supported by Device Error Recovery 
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1— T - - - T 


"1 


| MESSAGE CODE 


10-CHARACTER 






| (IN HEX) 

L m \ 


MESSAGE 

i 


ERROR 


j 


\ 1 


v 


.,. „ , _ , „ ... .. ,„ L , _ 

r 


1 


| 08 


C'INTERV REQ f 


OPERATOR INTERVENTION REQUIRED 




| 09 


C'BUSOUT CHK' 


BUS OUT CHECK 




| 10 


C EQUIP CHK ' 


EQUIPMENT CHECK 




1 11 


C'DATA CHECK' 


DATA CHECK 




1 12 


C f VERIFY CHK' 


VERIFY CHECK 




1 13 


C'ADDR MRKER' 


MISSING ADDRESS MARKER 




1 I 1 * 


C f OVERRUN ' 


OVERRUN 




1 15 


C'SEEK CHECK' 


SEEK CHECK 




1 16 


C'DTA CHK CT' 


DATA CHECK IN COUNT FIELD 




1 17 


C'FILE PROT ' 


VIOLATED FILE PROTECTION 




| 18 


C'COMM REJCT' 


COMMAND REJECT 




| 19 


C'UNDETR ERR' 


UNDETERMINED ERROR 




| 20 


C'ERR ON REC 


ERROR DURING RECOVERY ATTEMPT 




1 21 


C'NRF-MADDMK' 


NO RECORD FOUND S MISSING ADDRESS MARKER 




| 22 


C'BALST CELL' 


BALLAST CELL ACCESSED ON 2321 




| 23 


C'BLNK STRIP' 


ACCESSED *A PREVIOUSLY UNUSED STRIP 




| 24 


C'PROG CHECK' 


I/O PROGRAM CHECK 




1 25 


C'PROT CHECK' 


STORAGE PROTECTION CHECK 




1 26 


C'INVAL SEEK' 


SEEK ADDRESS NOT VALID 




| 27 


C'UNKNWN DEV 


DEVICE IN ERROR NOT RECOGNIZED 




| 28 


C'CHAN DTCHK' 


CHANNEL DATA CHECK 




| 29 


C'BK INTO LP' 


BACKSPACE INTO LOADPOINT 




| 30 


C'CONVRT CHK* 


TAPE CONVERT CHECK 




1 31 


C'DVC NOT OP' 


DEVICE NOT OPERATIONAL 




J 32 


C'NON COMPAT' 


NONCOMPATIBLE TAPE ON DRIVE 




| 33 


C'BUF PARITY' 


PARITY ERROR IN PRINTER BUFFER 




| 34 


C'BCH NM OFF' 


BATCH NUMBERING SWITCH OFF ON MICR 




1 35 


C'NON RECOV ' 


NON- RECOVERY ON 1285 




1 36 


C'NO REC FND' 


NO RECORD FOUND 




| 37 


C'DISEN FAIL' 


DISENGAGE FAILURE ON MICR 




1 38 


C'INVLD FONT' 


INVALID FONT ON 1287 IN DOCUMENT MODE 




| 39 


C'POSN CHECK' 


POSITION CHECK ON 2495 TCR 




| 40 


C'BROKN TAPE' 


BROKEN TAPE ON 1017 




| 41 


C'LOAD CHECK' 


BUFFER LOAD CHECK ON 3211 





Figure 46. Physical Transients Error Messages 



Physical Transient Programs 95 



552- Byte Physical Transient Area 


jialf f • i; Ij. j \ : ;. : ■ ; j .?; , ^|i>|l;p^;| £$f§f ? §||ff; 1 


i^:So:§::^ B C D E F G H J 



The labels which are associated with these bytes are 
as designated below. Byte A is the first byte of the 
Physical Transient Area, Byte J is the last. Bytes B through 
H constitute the interphase communications area. When phases 
Z, Y and are fetched or refetched, these bytes (B through H) 
are not overlaid and remain with information for the other phases. 



Byte 
A 



Label 

IJBPAR1 
IJBPAR2 
IJBPAR3 

PARLTK 
PARCOMM-1 

IJBPAR1+504 

PARCOMM 

IJBPAR2+504 

PARCOMM2 

PARCOMMC 

PARCOMMD 

PARCOMMI 
PARCOMMJ 
PARCOMMC+3 
PARCOMMD+3 



Phase 

Z 
Y 




Y 

Z 
Y 

Z 
Y 



Note: Bytes C, D and E 
are used to indicate the 
program(s) F1,F2 or BG, to be 
canceled. 

Bytes F, G and H 
indicate the programs 
which use devices which 
require operator intervention. 

Byte B indicates if a 
canceled program has 
fetched a logical transient. 



D,E, 
G,H 



Addressed by incrementing or decrementing one of these labels. 



Figure 47. Interphase Communication Area 
(For A-Transients $$ANERRZ, Y, 
and 0) 
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CO 

O 
0> 



Hi 
H 

w 

§ 

ft 

o 

vQ 






00 



CO 

o 

D 
fl> 
< 

O 
fl) 

tr« 
H- 
03 
ft 

W 
X 

6 

H 
(X) 



x:::;:::c 


LIST FOR UNSUPPORTED 
EQU 


DEVICE "" 


TAPE 


LIST FOR 2400 TAPE 
EQU ;c 




SERIES -" 


UNSUP 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK SENSE, 0, 5 


OVERRUN 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK END 


END OF LIST 




SDRMSK SENSE, 0,5 


OVERRUN MASK 


LUNSUP 


EQU --UNSUP 


LENGTH OF LIST 




SDRMSK SENSE, 0,6 
SDRMSK SENSE, 0,7 
SDRMSK SENSE, 3,0 


WORD COUNT ZERO 

DATA CONVERTER CHECK 

R/W VERTICAL REDUNDANCY' CHECK 




LIST FOR CHARACTER READER DEVICES 1285/1287/1412/1419 "" 




SDRMSK SENSE, 3, 1 


LONGITUDINAL REDUNDANCY CHECK 










SDRMSK SENSE, 3,2 


SKEW MASK 










SDRMSK SENSE, 3, 3 


CYCLIC REDUNDANCY CHECK 


CHAR 


EQU - 






SDRMSK SENSE, 3, 4 


SKEW REGISTER VRC MASK 




SDRMSK SENSE, 0,0 


COMMAND REJECT 




SDRMSK SENSE, 1,0 


NOISE MASK 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK END 


END OF LIST 




SDRMSK SENSE, 0,5 


OVERRUN 


LTAPE 


EQU --TAPE 


LENGTH OF LIST 




SDRMSK END 


END OF LIST 








LCHAR 


EQU --CHAR 


LENGTH OF LIST 
















LIST FOR DASD 2 311/2314/2321 :: - 




LIST FOR UNIT RECORD 


DEVICES "" 


DASD 


EQU - 

SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 


UNIT 


EQU " 






SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 




SDRMSK SENSE, 0,5 


OVERRUN 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 




SDRMSK SENSE, 0,6 


TRACK CONDITION 




SDRMSK END 


END OF LIST 




SDRMSK SENSE, 0,7 


SEEK CHECK 


LUNIT 


EQU -"-UNIT 


LENGTH OF LIST 




SDRMSK SENSE, 2,0 
SDRMSK BYPASS 
SDRMSK SENSE, 2, 2 


UNSAFE 

BYPASS THIS COUNTER 

SERIALIZER/DESERILIZER 




LIST FOR 1052 CONSOLE 






SDRMSK SENSE, 2, 3 
SDRMSK SENSE, 2, 4 


CONTROL UNIT TAG LINE 
ALU CHECK 












SDRMSK BYPASS 


BYPASS THIS COUNTER 


CONSL 


EQU " 






SDRMSK SENSE, 1,6 


MISSING ADDRESS MARKER 




SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 




SDRMSK END 


END OF LIST 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 


LDASD 


EQU --DASD 


LENGTH OF LIST 




SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 










SDRMSK SENSE, 0,5 


OVERRUN 










SDRMSK END 


END OF LIST 




2495 TAPE CARTRIDGE 


READER " 


LCONSL 


EQU --CONSL 


LENGTH OF LIST 


CARTAP 


EQU » 






LIST FOR 2540 READER, 


PUNCH "" 




SDRMSK SENSE, 0, 1 
SDRMSK SENSE, 0,2 
SDRMSK SENSE, 0,6 


INTERVENTION REQUIRED 
BUS-OUT CHECK 
POSITION CHECK 


RDPCH 


EQU " 






SDRMSK END 






SDRMSK SENSE, 0, 1 


INTERVENTION REQUIRED 


LCARTAP EQU --RPPCH 


LENGTH OF LIST 




SDRMSK SENSE, 0,2 


BUS-OUT CHECK 










SDRMSK SENSE, 0,3 


EQUIPMENT CHECK 










SDRMSK BYPASS 


SKIP THIS COUNTER 










SDRMSK SENSE, 0,6 


UNUSUAL COMMAND SEQUENCE 










SDRMSK END 


END OF LIST 








LRDPCH 


EQU "-RDPCH 


LENGTH OF LIST 












T T~ " 

| MESSAGE | RECORDER FILE 

PHASE | CODE | ERROR MESSAGE 

J. + + - 



^ 



j$$ANERAFJ0T01I j OCUU SDR RECORD 

I j OVERFLOWED 

I I 

J0T02I j SDR AREA FULL OCUU... 

I I 

J0T03I j ERROR ON RECORDER FILE 

| | AT CCHHR 

I I 

|$$ANERAG|0T00I JLAST TRACK ON RECORDER 

| j FILE 

|OT0ai | CHANNEL QUE FULL 

j | NO RECORD 



I/O ERROR LOGGING (ERRLOG) 



The Error Log function records two types of 
I/O errors. The Outboard Recorder (OBR) 
records pertinent data when a hard I/O 
error occurs. A hard I/O error is one 
which cannot be retried or cannot be 
corrected after a standard number of 
retries. The Statistical Data Recorder 
(SDR) records the cumulative error status 
of an I/O device. The data recorded by OBR 
and SDR may be processed and displayed by 
the Environment Record Editing and Printing 
(EREP) program. For the internal logic of 
the EREP program, refer to the System 
Service Program PLM, listed in the Preface . 



Figure 49. Physical Transients Error 
Messages for OBR/SDR 



ERROR LOGGING AND RECOVERY 



Error logging and recovery procedures are 
done by the I/O Error Logging (ERRLOG), 
Machine Check Recording and Recovery 
(MCRR) , and Machine Check Analysis and 
Recovery (MCAR) functions. These routines 
collect information about the reliability 
of the hardware. The environment records 
produced facilitate diagnosis and repair of 
a system and thus reduce interruptions due 
to hardware failure. 

The system recovery portion of the MCRR 
function on System/ 360 reduces the number 
of conditions which cause the system to 
enter an uninterruptible wait state. 
System recovery is accomplished by 
canceling all affected tasks. 

MCAR functions only when the MODEL 
option equals a System/370 CPU. If ERRLOG 
is not specified, MCAR forces the 
ERRLOG=YES option at system generation. 
MCAR gathers reliability information on 
SYSREC and contains error recovery 
procedures to minimize system hard waits. 

If ERRLOG=RDE (Reliability Data 
Extractor) is specified, users of 
System/370 systems can gather additional 
data about hardware reliability. RDE 
writes IPL and EOD (End Of Day) records on 
SYSREC. These records indicate the reason 
for IPL and identify the RDE data on 
SYSREC. 

For more information about MCAR, see the 
section Recovery Management Support for 
System/370 . 



Outboard Recorder (OBR) 



OBR creates records when I/O errors occur 
which cannot be corrected by standard 
programmed error recovery procedures. The 
OBR records are built and written on the 
Recorder File (SYSREC) by two A-transients, 
$$ANERRM and $$ANERAA. Figure 49 shows the 
information contained in the OBR record. 
See Chart 12 for the OBR record builder and 
record writer A-transients . 



Statistical Data Recorder (SDR) 



SDR records the cumulative error status of 
each I/O device on the system. Sixteen 
half-byte counters are retained in core 
storage for each device. Each half-byte 
counter corresponds to one of the sixteen 
2-byte error counters of the SDR record. 
These in-core counters are updated when an 
I/O error occurs. Figure 51 shows the SDR 
record format. 

Whenever an OBR record is written onto 
the Recorder File, the SDR, record for the 
device in error is also updated. When the 
SDR update routines are processing, they 
pass parameters in a common area, the SDR 
Communications Region. Figure 26 
illustrates this region. SDR routines in 
the SEND macro expansion update internal 
counters and record information, and 
schedule Recorder File updates. 

The counter update routine uses a device 
list passed by the A-transient $$ANERAD 
just before the ERP A-transient processing 
begins. Figure 48 display the SDRMSK 
device lists that are passed to the SDR 
processor whenever an error occurs on a 
given device. (SDRMSK is an internal macro 
that generates the device list entries used 
by the SDR processor. It is not documented 
in this manual . ) 
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The first two in-core counters, which 
record, read, and write data check 
occurrences, are handled by the SDR 
processor itself and have no corresponding 
entry in the SDRMSK list. The SDR 
processor tests the CSW bit that 
corresponds to data check and examines the 
OP code of the CCW in question to determine 
if it is a read or write command. 



The first entry in the SDRMSK list 
corresponds to the third in-core counter, 
second to the fourth, third to the fifth, 
and so on. SDRMSK Sense 0,1 means that 
this 1-byte generated entry corresponds to 
sense byte 0, bit=l of the device 
associated with that list. 

The updated SDR record is written on the 
Recorder File (SYSREC) by the A-transient 
$$ANERAC when thirteen errors have occured 
on a device. Chart 08 gives a description 
of the SDR update routines. See Charts 09 
and 10 for $$ANERAD and $$ANERAC. 



Writing OBR/SDR Records 



It is possible to write or update SDR 
records and write OBR records for devices 
not explicitly supported by the system by 
using the SVCs 43 and 44. 

The address of the compressed SDR record 
area must be supplied in general register 1 
before the SVC 43 is issued. SVC 43 causes 
a branch to the SDRSDR routine in the 
supervisor to complete processing of the 
record. Immediately following the SVC, the 
WAIT macro must be issued on the address in 
register 1. 



Example : 



LA 1,SDRAREA 

SVC 43 

WAIT (1) or SDRAREA 



The SDR record area must be 22 bytes long 
and have three fields. The first field is 
reserved for the SDR processor. The second 
field must be initialized as zeros. During 
write, the SDR processor posts status, 
operation complete, or I/O error. The WAIT 
macro tests for operation complete. The 
third field is the updated SDR record. The 
counters field of the record must be in 
compacted format, meaning 16 half -byte 
error counters for a total of 8 bytes in 
length. Figure 51 shows the SDR record 
format with the 16 error counters in 
expanded form. The SDR processor expands 
the field to 16 two-byte areas on the disk. 



FIELD SIZE 
2 



CONTENTS 



1 2 Bytes Reserved for SDR processor 

2 1 Byte X'00" Initially 

X'80' Posted for operation 

complete 

X , 20 i Posted for I/O error 

during write 

X'lO* Posted if SVC 43 is 

issued with Recorder file 

off.* 

3 19 Bytes SDR record with compacted 

error counters field - 16 
half-byte counters. 

AREA SIZE - 22 Byte Total 

♦This bit must be interrogated by the 
issuer of the SVC 43. If this bit is 
on, the SDR record was not written. 



The address of the OBR record area must 
be supplied in general register 1 before 
the SVC 44 is issued. SVC 44 causes a 
branch to the SDROBR routine in the 
supervisor to write the OBR record. 
Immediately following the SVC, the WAIT 
macro must be issued on the address in 
register 1. 



Example: 



LA l,OBRAREA 

SVC 44 

WAIT (1) or OBRAREA 



The OBR record area must be 83 bytes long 
and have 3 fields. The first field is 
reserved for the OBR processor. The second 
field must be initialzed as zeroes. During 
write, the OBR processor posts status, 
operation complete, or I/O error. The WAIT 
macro tests for operation complete. The 
third field is the OBR record. Figure 50 
shows the OBR record format. 



FIELD SIZE 



CONTENTS 



L 2 Bytes Reserved for OBR processor 
I 1 Byte X"00* Initially 

X^O' Posted for operation 

complete 

X f 20 f Posted for I/O error 

during write. 

X f 10 f Posted if SVC 44 is 

issued with Recorder file 

off.* 
* 80 Bytes OBR record. 

AREA SIZE - 83 Byte Total 

♦This bit must be interrogated by the 
issuer of the SVC 44. If this bit is 
on, the OBR record was not written. 
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,. 

IBM 3211 FORMAT 



GENERAL FORMAT 



FIELD 



Record Type 
Date 

Time 

Program ID 
First CCW 
Failing CCW 
Channel £ Unit 
csw 
Sense 

Seek Address 
Device Type 

Poll Characters 
Logical Unit 
Volume ID 
Reserved 
Guard Byte 



SIZE CONTENT/DESCRIPTION 

1 Byte X'01 f identifies OBR record. 
4 Bytes In packed decimal form: 

OOYYDDDF = (Year, Julian Date f Zone) 
4 Bytes System time of day. 

8 Bytes Name of JOB (in a Batched partition) , or program name. 
8 Bytes First CCW of failing chain. 
8 Bytes CCW on which error occurred . 

2 Bytes 
8 Bytes 

6 Bytes Device sense bytes. 

6 Bytes Reserved for new sense. 

6 Bytes BBCCHH 

4 Bytes Device type as stored in PUB table, mode setting, and 

characteristics. 
4 Bytes 
2 Bytes 
6 Bytes 
2 Bytes 
1 Byte 



X'FF" 



RECORD CAPACITY - 80 Bytes Total 

Note: Device Type Records/Track 
2311 25 

2314 40 






FIELD 

Record type 
Date 

Time 

Job ID 

First CCW 

Failing CCW 

Channel S Unit 

CSW 

Sense 

Device type 
Logical unit 
Parity error 

locations 
Contents of 

parity error 

locations 
Flag 



SIZE 
1 Byte 
4 Bytes 



4 Bytes 
8 Bytes 
8 Bytes 
8 Bytes 
2 Bytes 
8 Bytes 
6 Bytes 
6 Bytes 
4 Bytes 
Bytes 



8 Bytes 
8 Bytes 



CONTENT/DESCRI PTI ON 

X'01 f identifies OBR record. 

Format is 00YYDDDZ (Year, Julian Date, Zone in packed 

decimal) . 

System time of day. 

Program name, or job in batched partition. 

First CCW in failing chain. 

CCW on which error occurred. 

Failing device address. 

Six sense bytes produced by 3211. 

Reserved. 

First two bytes taken from bytes 4, 5 of 3211 PUB entry. 

Up to 8 parity error locations in the print line buffer 
(one byte per location, X f 01' to X'96'). 
Contents of positions referenced in parity error locations. 



1 Byte Flag contains: 



Device ID 
Guard byte 



l 



1 Byte 
1 Byte 



X'40* - 8 or fewer parity error locations, 

X f 41' - 8 or fewer parity error locations, but locations 

are unobtainable. 
X"42' - Number and contents of parity error locations are 

unobtainable. 
X*5C' .- More than 8 parity error locations. 
X*5D' - More than 8 parity error locations, but contents 
are unobtainable. 
X'FF* = 3211 OBR record indicator. 
X'FF" designates end of record. 



Figure 50. OBR Record Formats 
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KEY 



DATA 



FIELD 



SIZE 



Channel £ Unit 2 Bytes 



Poll Characters 

FIELD 

Type 



4 Bytes 
SIZE 
1 Byte 



Characteristics 1 Byte 



Counters 
Reserved 
Guard 



16x2 Bytes 
2 Bytes 
1 Byte 



DESCRIPTION 

Last Record X'FFFE" 

Available Record X f FFFF f 

DESCRIPTION 

Device Type from 

PUB Table 

X'40' if Switchable Device 

X'02' if Burst on MPX Channel 

X'01" if 7 Track Tape 

Error Counters 

X'FF' 



RECORD CAPACITY - 43 Bytes Total 



Note; 



Device Type 
2311 
2314 



Records/Track 
29 
38 



♦The SDR processor expands each of the sixteen half-byte in core 
counters into two byte counters on the disk. There can be thirteen 
errors on a device before updating the disk; the capacity of the 2 
byte expansion is 32767 errors before overflow is reached. 

Figure 51. SDR Record Format 



MACHINE CHECK RECORDING AND RECOVERY (MCRR) 



The SYSGEN option MCRR is valid for only 
System/360. The Disk Operating System 
provides System/370 a similar, but 
automatic, function. See the Recovery 
Management Support for System/370 section. 



The MCRR function records system error 
information after a machine check, channel 
control check, interface control check, or 
channel data check occurs. MCRR then 
cancels the damaged task or tasks. No 
attempt is made to recover on any error 
involving the MCRR function. The recorded 
data can be processed and displayed by the 
Environment Record Editing and Printing 
(EREP) program. For information regarding 
the internal logic of the EREP program, 
refer to the System Service Program PLM, 
listed in the Preface of this manual. 



The MCRR function builds two types of 
records on the Recorder File (SYSREC) . 
Whenever a log-out occurs as a result of a 
channel failure, the routine builds model 
dependent Channel Inboard Error records and 
cancels the damaged task(s). The 
A-Transient $$ANERAA writes the CIE record. 
When a machine check occurs, the routine 
builds model dependent CPU Machine Check 
records, and cancels the damaged task(s). 
The A-Transient $$ANERAA writes the CPU 
record. Figure 53 shows the format of the 
two record types. See Chart 10 for a 
description of the MCRR routine. 



If another MCRR condition occurs while 
the MCRR routine is in progress, the system 
enters a hard wait after posting the SEREP 
cancel code in low core. 
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MCRRPSW1 (See Note) 



(Hexadecimal Displacement) 
(Decimal Displacement) 


8 

8 


10 
16 


14 
20 


MCRR | PSW 

Reentrant 
• Address of 
1 MCRR Routine 

I 


MCRR , PSW 

| Address of 
I MCRR Routine 


Address of 
Channel 
Failure 
Routine 


Address of 
Machine 
Check 
Routine 


xxxxxxxx 


XXXXXXXX 


XXXX 


XXXX 



Key to displacement: 

Machine Check Recording and Recovery PSW. Loaded to enable machine check interrupts. Second word (displacement 4-7) 
contains reentrant address (MCRETURN) to MCRR routine. 

8 Machine Check Recording and Recovery PSW. Loaded to enable machine check interrupts. Second word (displacement 12-15) 
contains initial address (MCRRRTN) of the MCRR routine. 

16 Address of channel failure routine (MACHEK1). 

20 Address of machine check routine (MACHEK). 

Note; MCRRPSW1 is the label of the first byte of the MCRR Linkage Table. 



Figure 52. Machine Check Recording and Recovery (MCRR) Linkage Table 
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p — . — — — 






~" '" ■" " — " "" —i 


| Record 1: 








I ENTRY 


SIZE 


CONTENT/DESCRIPTION I 


| Record ID 


1 


Byte 


X f 02" CIE Record ID | 


| Record Number 


2 


Bytes 


X'nnNN" n of N records j 


| Model Number 


1 


Byte 


X'30' r X^O', or X"50" | 


| Date 


4 


Bytes 


In packed decimal form | 
00YYDDDF = (Year, Julian Date, Zone) | 


| Time 


4 


Bytes 


System time of day | 


| Program ID 


8 


Bytes 


C'XXXXXXXX' Job name | 


1 10 Active Devices 


20 


Bytes 


X"cuu f First 10 active devices on j 
Channel j 


| First CCW 


8 


Bytes 


First CCW of failing chain | 


| Failing CCW 


8 


Bytes 


CCW on which error occurred | 


| CSW 


8 


Bytes 




| Failing Device 


2 


Bytes 


X'cuu" | 


| Log-Out 


12 


Bytes 


Mod 30 core bytes X^O'-X'SB' j 

Mod 40 core bytes X'SO'-X'SB' | 

Mod 50 core bytes X'SO'-X^B 1 | 

or X'SS'-X^S" | 


I Indicator 


1 Byte 


X'01" OBR full log bit - Mod 50 only | 








Unused Models 30 & 40 | 


| End of Record 


1 Byte 


X'FF' j 


L 


RECORD CAPACITY - 80 Bytes Total | 


r 

| Record 2: Models 


40 


& 50 only | 


I ENTRY 


SIZE 


CONTENT/DESCRIPTION | 


j Record ID 


1 


Byte 


X'02 1 CIE Record ID | 


| Record Number 


2 


Bytes 


X'nnNN" n of N records j 


| Model Number 


1 


Byte 


X f 40 f or X'50' | 


j Log- Out 


75 


Bytes 


Mod 40 core bytes X'ec'-X'De* | 




or 


Mod 50 core bytes X'Sc'-X'De' or | 




55 


Bytes 


Mod 50 core bytes X^S'-X^B^ | 




20 


Bytes 


Mod 50 only - Unused with short j 
record. j 


| End of Record 


1 


Byte 


X'FF' | 




RECORD CAPACITY - 80 Bytes Total | 



Figure 53. Machine Check Recording and Recovery (MCRR) Record 
Formats (Part 1 of 4) 
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Record 3: Models 40 S 50 only 

ENTRY SIZE CONTENT/DESCRIPTION 



Record ID 
Record Number 
Model Number 
Log-Out 



End of Record 



1 Byte X , 02 f CIE Record ID 

2 Bytes X'nnNN' n of N records 
1 Byte X'40 f or X^O' 

75 Bytes Mod 40 core bytes X , D7 , -X , 121 f 
Mod 50 core bytes X , D7 , -X , 121 i 

75 Bytes Unused for Partition Log-Out 

1 Byte X'FF" 

RECORD CAPACITY - 80 Bytes Total 



Record 4: Models 40 S 50 only 



ENTRY 

Record ID 
Record Number 
Model Number 
Log-Out 

Unused 

End of Record 



SIZE 



1 
2 
1 



Byte 
Bytes 
Byte 
34 Bytes 
2 Bytes 
41 Bytes 
73 Bytes 
1 Byte 



CONTENT/DESCRIPTION 

X f 02* CIE Record ID 

X'nnNN" n of N records 

X^O" or X'50* 

Mod 40 core bytes X , 122 f - X , 143 , 

Mod 50 core bytes X , 122 , -X , 123' 

Mod 40 

Mod 50 

X'FF' 



RECORD CAPACITY - 80 Bytes Total 



—J 



Figure 53. Machine Check Recording and Recovery (MCRR) Record 
Formats (Part 2 of 4) 
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Record 1: 

ENTRY 

Record ID 
Record Number 
Model Number 
Date 

Time 

Program ID 

10 Active Devices 

PSW 

G.P- Registers 

Unused 

End of Record 



SIZE CONTENT/DESCRIPTION 

1 Byte X'04' CPU Record ID 

2 Bytes X'nnNN' n of N records 
1 Byte X'30", X'40', X'50 f 

4 Bytes In packed decimal form 

00YYDDDF = (Year, Julian Date, Zone) 
4 Bytes System time of day 
8 Bytes C'XXXXXXXX' Job name 
20 Bytes X'cuu' First 10 active I/O units 
on channel 
8 Bytes Machine check old PSW 
28 Bytes Registers 0-6 

3 Bytes 

1 Byte X'FF - 

RECORD CAPACITY - 80 Byte Total 



Record 2: 

ENTRY 

Record ID 

Record Number 

Model Number 

G.P. Registers 

F.P. Registers 

Unused 

End of Record 



SIZE 



CONTENT/DESCRIPTION 



1 Byte X'04' CPU Record ID 

2 Bytes X'nnNN' n of N records 
1 Byte X'30', X'40', X'50' 

36 Bytes Registers 7-15 

32 Bytes 0, 2, 4, 6 

7 Bytes 

1 Byte X'FF' 

RECORD CAPACITY - 80 Byte Total 



Record 3: 

ENTRY 

Record ID 
Record Number 
Model Number 
Log- Out 



Unused 

End of Record 



-H 



SIZE CONTENT/DESCRIPTION 

1 Byte X'04' CPU Record ID 

2 Bytes X'nnNN' n of N Records 
1 Byte X'30«, X'40' # X'50V 

12 Bytes Mod 30 core bytes X'80'-X'8B' 
75 Bytes Mod 40 core bytes X'80'-X'CA" 
Mod 50 core bytes X'SO'-X'CA' 
63 Bytes (Model 30 only) 
1 Byte X'FF' 

RECORD CAPACITY - 80 Byte Total 



Figure 53. Machine Check Recording and Recovery 
Formats (Part 3 of 4) 



(MCRR) Record 
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Record 4; Models 40 S 50 only 

ENTRY SIZE CONTENT/DESCRIPTION 



Record ID 
Record Number 
Model Number 
Log- Out 

End of Record 



1 Byte X'04 f CPU Record ID 

2 Bytes X'nnNN' n of N records 
1 Byte X'40 f or X'50* 

75 Bytes Mod 40 core bytes X'CB'-X'llS' 
Mod 50 core bytes X'CB'-X'US' 
1 Byte X'FF' 

RECORD CAPACITY - 80 Byte Total 



Record 5: Models 40 £ 50 only 



ENTRY 



SIZE 



Record ID 


1 Byte 


Record Number 


2 Bytes 


Model Number 


1 Byte 


Log-Out 


46 Bytes 




14 Bytes 


Parities 


12 Bytes 


Unused 


29 Bytes 




49 Bytes 


End of Record 


1 Byte 



CQNT ENT/DES CRIPTIQN 

X'04' CPU Record ID 

X'nnNN' n of N records 

X'40 f or X'50' 

Mod 40 core bytes X' 116 '-X' 143' 

Mod 50 core bytes X'116'-X' 123 ' 

Registers parities (Mod 50 only) 

Mod 40 

Mod 50 

X'FF' 



RECORD CAPACITY - 80 Byte Total 



J 



Figure 53, Machine Check Recording and Recovery (MCRR) Record 
Formats (Part 4 of 4) 



I/O ERROR RECOVERY PROCEDURES AND SENSE 
DATA 



24 00 TAPE ERROR RECOVERY 



Byte 0, Bit 3 — Equipment Check 

Action ; Take equipment error exit 
(cancel) . 



Message ; 0P10 EQUIP CHK. 



Byte 0. Bit 2 — Bus Out Check 

Action ; If at initial selection and 
command chaining, take equipment error 
exit (cancel) ; otherwise t retry. 

Device End in Unit Status; If this 
condition occurs during a write, the 
tape is repositioned and the command is 
reissued. If this condition occurs 
during another type of command, the 
command is reissued. This procedure is 
followed until five retries have been 
attempted; if recovery is not 
sucessful, take equipment error exit 
(cancel) . 

Message ; OP 09 BUSOUT CHK. 
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Byte O f Bit 1 — Intervention Required 



Byte 0, Bit 4 — Data Check 



Action ; No Device End in Unit Status; 
TU Status B (sense byte 1, bit 2) is 
tested. If TU Status B is off , the 
device is nonexistent. No retries are 
attempted. If TU Status B is on, an 
operator intervention required message 
is provided and, when the unit is made 
ready, the command is reissued. 

Message : 0P08 INTERV REQ. 

Action ; Device End in Unit Status; If 
the command was a Rewind- Unload, 
processing continues; otherwise, take 
the equipment error exit (cancel) . 



Message : 



0P19 UNDETR ERR. 



Byte 0, Bit — Command Reject 

Action : If at load point and file 
protect, rewind and unload. 



Action : If the operation is read or 
read backward, and if the noise bit 
(Byte 1, Bit 0) is on, or if more than 

11 bytes were read, the tape is 
repositioned and the read or read 
backwards is retried. If the noise bit 
is off and the block size is less than 

12 bytes, another block is read and 
operation continues. This procedure is 
followed until forty retries have been 
attempted. Every fifth retry is 
preceded by a tape cleaner action. A 
TIE (Track-in-Error) command is issued 
before every reread to send sense byte 
2, which contains track-in-error 
information, to the tape control unit. 

If the above procedure does not recover 
the error, the error routine tries to 
recover by reading in the opposite 
direction. If, however g any of the 
following conditions exists, the 
routine does not attempt 
opposite-direction recovery: 



Message : 0P17 FILE PROT. 

Action : Take equipment error exit 
(cancel) . 



• Data chaining is being performed. 

• Data conversion mode and 7-track 
tape are being used. 



Message : 0P18 COMM REJCT. 



Byte 0, Bit 5 — Overrun 



The original CCW count is less than 
the physical block size on the tape. 

"Suppress data transfer" is 
specified in the original CCW. 



Action: The tape is repositioned and 
the command is reissued. This 
procedure is followed until five 
retries have been attempted. If 
recovery is not sucessful, take 
equipment error exit (cancel) . 

Note that a data check during overrun 
suppresses the overrun condition. 



Byte 1, Bit 4 — Load Point 

Action : If not caused by read backward 
operation, take equipment error exit 
(cancel) . 

Message : 0P29 BK INTO LP (Backspace 
into Load Point Command) . 



In attempting opposite- direction 
recovery, the error routine first 
prepares to read without repositioning 
the tape. It issues a Track-in-Error 
command to send to the tape control 
unit the sense byte 2 obtained during 
the last original-direction retry. The 
routine then issues a Read or Read 
Backwards command as its first retry. 
On subsequent retries, it repositions 
the tape, issues a Track-in-Error 
command, then a Read or Read Backwards 
command. Before every fifth retry, the 
routine causes a tape-cleaner action. 
The routine continues to retry until it 
either succeeds (i.e.„ no unit check 
occurs) or has made 40 unsucessful 
retries. 

The read-opposite CCW has the "suppress 
data transfer" bit set until the first 
successful retry. The routine then 
alters the read-opposite CCW so that it 
can transfer data. The alteration 
consists of clearing the "suppress data 
transfer" bit and placing the "exact" 
count and the data address in the CCW. 
The "exact" count equals the block size 
to be read. If successful, the routine 
issues a Forward Space Record or 
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Backward Space Record command to 
reposition the tape past the block 
being read. 

If all 40 read-opposite recovery 
attempts are unsuccessful , the routine 
makes one final retry, this time 
attempting to read in the original 
direction- Unlike previous attempts, 
it does not issue a Track-in- Error 
command before the Read or Read 
Backward command. Note that the 
routine avoids the final read attempt 
if either a permanent bus-out check 
occurs when the repositioning command 
is issued or an equipment check occurs. 
If the user will not accept the data 
check, take the cancel, ignore exit 
after the specified number of retries. 
If the user will accept the data check, 
return control to the user. 

If the operation is a write or write 
tapemark, the tape is repositioned , an 
Erase Gap command is issued, and the 
Write or Write Tapemark command is 
reissued. This procedure is followed 
until fifteen retries have been 
attempted; then take equipment error 
exit (cancel). 

If the operation is an erase gap, the 
command is reissued. This procedure is 
followed until three retries have been 
attempted; then take equipment error 
exit (cancel) . 

Message ; 0P11 DATA CHECK. 

•CSW Bit 44 — Channel Data Check 

Action ; If this condition occurs 
during a read or write operation, the 
tape is repositioned and the command is 
reissued. If this condition occurs 
during a control command, the command 
is reissued. This procedure is 
followed until five retries have been 
attempted; then take equipment error 
exit (cancel) . 

Message ; 0P28 CHAN DTCHK. 



•No Previous Sense Bits On 

Action ; No retries are attempted. 
Take equipment error exit. 

Message ; 0P19 UNDETR ERR. 



•CSW Bit 47 — Chaining Check 

Action; The tape is repositioned and 
the command is reissued. This 
procedure is followed until five 
retries have been attempted; then take 
equipment error exit (cancel). 



Message : 



0P14 OVERRUN. 
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• CSW Bit 44 — Channel Data Check 

Action ; One retry, take equipment 
error exit ( cancel r retry, ignore). 

Message ; 0P28 CHAN DTCHK. 



• Byte 0, Bit 3 — Equipment Check 

Action ; One retry, take equipment 
error exit (cancel, retry, ignore). 

Message ; 0P10 EQUIP CHK. 



• Byte 0, Bit 1 — Intervention Required 

Action ; Execute audible alarm command 
and take operator intervention exit. 

Message ; 0P08 INTERV REQ. 



•Byte 0, Bit 7 — Data Converter Check 

Action ; Take equipment error exit 
(cancel) . 



Message : 



0P30 CONVRT CHK. 



• Byte , Bit 2 — Bus Out Check 

Action ; One retry, take equipment 
error exit (cancel, retry, ignore). 



Message : 



OP 09 BUSOUT CHK. 



•Byte 1, Bit 7 — Not Capable 

Action ; Rewind and unload tape. Take 
equipment error exit. 

Message : 0P32 NON COMPAT. 



• Byte 0, Bit — Command Reject 
Action ; Take program check exit. 
Message ; 0P18 COMM REJCT. 
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14 03-1443 ERROR RECOVERY 



• Byte 0, Bit 4 — Data Check (1403 Only) 



• CSW Bit 44 — Channel Data Check 

Action : If initial selection, one 
retry — take equipment error exit 
(initial selection: cane el , retry. 
Channel end: cancel, retry, ignore). 

Message : 0P28 CHAN DTCHK. 



Action: Take equipment error exit 
( cancel , ignore ) • 



Message; 



0P11 DATA CHECK. 



1442 ERROR RECOVERY 



• Byte 0, Bit 3 — Equipment Check 

Action : Take equipment error exit 
(cancel, ignore) . 

Message : 0P10 EQUIP CHK. 



• Byte 0, Bit 5 — Code General Storage 
Parity Error (14 03 only) 

Action : Take equipment error exit 
(cancel). UCS buffer must be reloaded. 

Message : 0P33 UCB PARITY. 



• Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention 
exit. 

Message : OP 08 INTERV REQ. 



• Byte 0, Bit 2 — Bus Out Check 

Action : If initial selection, one 
retry; otherwise, take equipment error 
exit (initial selection: cancel, 
retry. Channel end: cancel, retry, 
ignore) . 

Message : 0P09 BUSOUT CHK. 



• Byte 0, Bit 7 — Channel 9 

Action : Post CCB, take continue exit. 

Note : This test is main storage 
res ident . 

• Byte 0, Bit — Command Reject 

Action: If command code is UCS enable 
or inhibit data check, take continue 
exit; otherwise, take program check 
exit. This procedure allows 
UCS-oriented programs to operate on 
non-UCS hardware. 



o CSW Bit 44 — Channel Data Check 

Action : If initial selection, one 
retry; then take equipment error exit 
(cancel, retry). If data transfer, 
take operator intervention exit. 

Message : 0P28 CHAN DTCHK. 



• Byte 0, Bit 3 — Equipment Check 

Action : Take operator intervention 
exit . 



Message : 0P10 EQUIP CHK. 



* Byte 0, Bit 1 — Intervention Required 



Action : Take operator intervention 
exit. 



Message : OP 08 INTERV REQ. 



• Byte 0, Bit 2 — Bus Out Check 

Action: If initial selection, do one 
retry; then take equipment error exit 
(cancel, retry) . If data transfer, 
take operator intervention exit. 

Message : 0P09 BUSOUT CHK. 



• Byte 0, Bit 4 — Data Check 

Action : Take operator intervention 
exit. 

Message : 0P11 DATA CHECK. 



• Byte 0, Bit 5 — Overrun 

Action : Take operator intervention 
exit. 



Message : 0P18 COMM REJCT. 



Message : 



0P14 OVERRUN. 
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• Byte 0, Bit — Command Reject 
Action: Take program check exit. 
Message : 0P18 COMM REJCT. 

• CSW Bit 47 — Chaining Check 

Action : Take operator intervention 
exit. 



Message : 



OP 14 OVERRUN. 



Byte 0, Bit 4 — Data Check (Cannot occur 
on a 2520 punch) 



Action 
exit. 



Take operator intervention 
Message : 0P11 DATA CHECK. 



Byte 0, Bit 5 — Overrun (Cannot occur on 
2540 or 2520 punch) 

Action : Take operator intervention 
exit. 



Message : 



0P14 OVERRUN. 



2501, 2520, 2540 ERROR RECOVERY 



• CSW Bit 44 — Channel Data Check 

Action : If initial selection, one 
retry; then take equipment error exit 
(cancel, retry) . If read data 
transfer, take operator intervention 
exit. If punch data transfer, one 
retry; then take equipment error exit 
(cancel, retry). 



Message : 0P28 CHAN DTCHK. 



• Byte 0, Bit 3— -Equipment Check 

Action : Reader — Take operator 
intervention exit. Punch — CCB option. 
Take equipment error exit (cancel, 
ignore). For 2520, Byte 0, Bit 7 
indicates punch check. 

Message : 0P10 EQUIP CHK. 



• Byte 0, Bit 1 — Intervention Required 

Action: Take operator intervention 
exit. 

Message : 0P08 INTERV REQ. 



• Byte 0, Bit 2 — Bus Out Check 

Action : One retry; then take equipment 
error exit (cancel, retry). If the 
device is a 2520, do not retry if this 
is not initial selection (cancel, 
retry) . 



Message : 



0P09 BUSOUT CHK. 



Byte 0, Bit — Command Reject 
Action : Take program check exit. 
Message : OP 18 COMM REJCT. 



Byte 0, Bit 6 — Unusual Command Sequence 
(2540 read only) 

Action: Post CCB — take continue exit- 



• CSW Bit 47 — Chaining Check (2501, 2520 
read only) 

Action : Take operator intervention 
exit. 

Message: 0P14 OVERRUN. 



2671 ERROR RECOVERY 



• CSW Bit 44 — Channel Data Check 

Action : If initial selection, one 
retry. Take equipment error exit 
(cancel) . 

Message : 0P28 CHAN DTCHK. 



• Byte 0, Bit 3— Equipment Check 

Action : Test CCB for ignore option 
(byte 2, bit 4) and if on, turn on byte 
3, bit 1 of the CCB and take equipment 
error exit (cancel, ignore, retry). 
Otherwise, take operator intervention 
exit. 

Message : 0P10 EQUIP CHK. 

Note : When an equipment check occurs, 
reposition the paper tape to the 
beginning of the record in error to 
perform the retry operation. The 
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device must not be readied until this 
repositioning has been performed. If 
the ignore option is available, 
exercise this option by repositioning 
the tape to the beginning of the next 
record on the tape and then responding 
ignore on the 1052 keyboard. The 
ignore option is available to the 
operator whenever the user specifies 
any of the DTFPT ERROPT entry options. 



• Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention 
exit. 



Message : 0P08 INTERV REQ. 



• Byte 0, Bit 2 — Bus Out Check 



Action : One retry; if error persists, 
take equipment error exit (cancel, 
retry) . 



Message : 



0P09 BUSOUT CHK. 



when ignore is not allowed) . If 
the operator chooses the ignore 
option (the character in error is 
not to be reread), he must 
backspace the tape one character 
if the load key was pressed to 
free the tape or if the character 
preceding the character under the 
read head is an EOR 
(End-of-Record) . Otherwise, no 
manual intervention is required 
for the ignore option. The 
ignore option is available to the 
operator whenever the user 
specifies any of the DTFPT ERROPT 
entry options. 



• Byte 0, Bit — Command Reject 

Action : Take program check exit. 

Message : 0P18 COMM REJCT. 

Note : A record may not be partly on 
one tape and partly on another. 



• Byte 0, Bit 4 — Data Check 

Action : Test CCB for ignore option 
(byte 2, bit 4) and if on, turn on byte 
3, bit 3 of the CCB and take equipment 
error exit (cancel, ignore, retry). 
Otherwise, take operator intervention 
exit. 

Message : 0P11 DATA CHECK. 

Notes: When a data check occurs, the 
user's CCW is modified by the 
error routine to allow rereading 
of the last character. The data 
address is the last character 
read (character in error) , and 
the byte count is decreased by 
the number of valid characters 
read. If the CCB ignore option 
is chosen and the operator 
responds ignore, the I/O 
operation is dequeued and posted 
with the unrecoverable error bit 
on (CCB byte 2, bit 2) and 2671 
data -check bit on (CCB byte 3, 
bit 3). 

To read the rest of the 
record, the problem program 
(logical IOCS) should add one to 
the CCW data address and subtract 
one from the byte count to adjust 
for not rereading the bad 
character. It should then 
reissue the EXCP. The operator 
must backspace the tape two 
characters for retry (option 
retry or on the A- type message 



2311-2314 DASD ERROR RECOVERY 



• CSW Bit 44 — Channel Data Check 

Action : One retry; then take equipment 
error exit (cancel, retry). 



Message : 0P28 CHAN DTCHK. 



• Byte 0, Bit 3 - Equipment Check 

Action : Take equipment error exit 
(cancel, retry). 

Message : 0P10 EQUIP CHK. 



• Byte 1, Bit 4 - No Record Found 

Action : Test for byte 1, bit 6 
(Missing Address Marker). If present, 
execute restore command and take retry 
exit. After ten retries, take 
equipment error exit (cancel, retry). 
If not present, read Home Address and 
compare to user's Seek Address. If 
equal , post No Record Found to the CCB 
and take continue exit. If not equal, 
treat as a Seek Check. 

Messages : 0P21 NRF - MADDMK (No Record 
Found/Missing Address Marker) . 
0P15 SEEK CHECK (Home Address unequal 
to Seek Address) . 

Note : Home Address is read, and the 
track address is provided for the error 
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message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 



Messages ; 0P12 VERIFY CHK (Data Check 

on Verify Command) . 

0P11 DATA CHECK (Data Check/not Data 

Check on Count or Verify) . 

0P16 DTA CHK CT (Data Check on Count). 



• Byte 0, Bit 7 — Seek Check 

Action ; If byte 0, bit (command 
reject) is on, take program check exit. 
Otherwise, execute restore command and 
take retry exit. After ten retries, 
take equipment error exit (cancel, 
retry) . 



Messages : 0P26 INVAL SEEK 
Check/Command Reject) 
0P15 SEEK CHECK. 



(Seek 



• Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention 
exit. 

Message : 0P08 INTERV REQ. 



• Byte 0, Bit 2 — Bus Out Check 

Action : If retry count is greater than 
nine, take equipment error exit 
(cancel, retry); otherwise, take retry 
exit • 



Note : Home Address is read, and the 
track address is provided for the error 
message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 



• Byte 0, Bit 5 — Overrun 

Action : If retry count is greater than 
nine, take equipment error exit 
(cancel, retry); otherwise, take retry 
exit. 



Message : 



0P14 OVERRUN. 



Byte 1, Bit 6 — Missing Address Markers 

Action : If retry count is greater than 
nine, take equipment error exit 
(cancel, retry); otherwise, take retry 
exit. 

Message : 0P13 ADDR MRKER. 



Message : 0P09 BUSOUT CHK. 



• Byte 0, Bit 4 - Data Check 

Action : CCB options (all data checks, 
data check on read or verify) . If 
retry count is greater than 256, take 
equipment error exit (cancel, retry) ; 
otherwise, take retry exit. After each 
16 retries, a recalibrate is performed 
until the maximum of 256 retries is 
reached. After 256 retries, post data 
check on count to CCB, if present; 
otherwise, post data check. If command 
code is verify (implied) , post verify 
error in CCB. 



Note : Home Address is read, and the 
track address is provided for the error 
message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 



• Byte 0, Bit - Command Reject 

Action : Check for Byte 1, Bit 5 (File 
Protect) ; in either case, take program 
check exit. 

Messages : 0P18 COMM REJCT. 
0P17 FILE PROT. 



The verify command is implied under the 
following conditions: 

• The CCW has a command code X"01' 
(Write - Special Count, Key and 
Data) , and the skip and SILI flags 
are set on. 

• The CCW has a command code X'lE" 
(Read - Count, Key and Data), the 
skip and SILI flags are set on, and 
this CCW follows a CCW with a write 
command code X • ID ' . 
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• Byte 0, Bit 6 — Track Condition Check 



2321 DASD ERROR RECOVERY 



Action : 

1. Read Home Address and R0 in the 
error recovery routine and move 
CCHH from R0 to Seek command 
executed below. 

2. If alternate track: update seek 
address to the next track address. 
If the track address equals ten, 
treat it as End of Cylinder; 
otherwise, proceed to step 3. 

3. Set up the channel program: Seek, 
Read Home Address (with skip bit 
on) , TIC to CSW address minus 
eight. Execute this channel 
program in error recovery. At 
channel end, exit to channel 
scheduler CSW processing routine. 
If DASD file protection is 
present, set the appropriate file 
mask following Seek. 



• Byte 1, Bit 1 — Track Overrun 

Action: Post track overrun to the CCB 
and take continue exit. 



• Byte 1, Bit 2 — End of Cylinder 

Action : Post End of Cylinder to the 
CCB and take continue exit. 



• Byte 1, Bit 5 — File Protect 

Action : Take program check exit. 
Message : 0P17 FILE PROT. 



• CSW Bit 44 — Channel Data Check 

Action : One retry; then take equipment 
error exit (cancel, retry). 

Message : 0P28 CHAN DTCHK. 



• Byte 0, Bit 3 — Equipment Check 

Action: Take equipment error exit 
(cancel, retry). 



Message : 0P10 EQUIP CHK. 



Byte 1, Bit 4 — No Record Found 



Action: 

1. If Byte 1, Bit 6 (missing Address 
Markers) is present, go to step 2. 
Otherwise, go to step 6. 

2. If retry count is less than 3, 
issue a Restore command and go to 
step 5. 



3. If retry count is equal to 3, 

issue a Read Home Address to the 
first and last tracks of the 
cylinder. If neither is 
successful (unit checks) , take 
equipment error exit (cancel, 
retry) . Otherwise , go to step 4 « 



4. If retry count is equal to 15, 

take equipment error exit (cancel, 
retry). Otherwise, go to step 5. 



• CSW Bit 47 — Chaining Check 

Action : If retry count is greater than 
nine, take equipment error exit 
(cancel, retry) ; otherwise, take retry 
exit. 

Message : 0P14 OVERRUN. 



Note : If the error routine gets an error 
while trying to execute a Restore command 
or Read Home Address or R0, equipment error 
exit is taken with retry and cancel options 
with the message: 0P20 ERR ON REC (Error 
During Recovery). 



5. Increment retry count and take 
retry exit. 



Issue a Read R0 and compare CCH to 
user's Seek Address. If equal, 
post No Record Found to the CCB 
and take continue exit. 
Otherwise, go to routine for Seek 
Check (alone) . 



Messages : 0P15 SEEK CHECK (No Record 
Found/RO unequal to Seek Address). 
0P23, BLNK STRIP (Step 3, cannot read 
Home Address) . 
0P21 NRF - MADDMK (Step 4, 15 retries). 
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© Byte 0, Bit 7 — Seek Check 

Action : If Byte 0, Bit (command 
reject) is present , take program check 
exit. If Byte 1, Bit 6 (missing 
Address Markers) is present, take 
operator intervention exit. Otherwise, 
issue a Seek to BB1111, a Seek to 
BB2222, and take retry exit. After ten 
retries, take equipment error exit 
(cancel, retry). 

Messages : 0P26 INVAL SEEK (Seek 

Check/Command Reject) . 

0P22 BALST CELL (Seek Check/Missing 

Address Markers). 

0P15 SEEK CHECK (Seek Check alone). 



o Byte 0, Bit 1 — Intervention Required 

Action: Take operator intervention 
exit . 

Message : 0P08 INTERV REQ. 



Messages : 0P11 DATA CHECK (Data 

Check/not Data Check on Count or 

Verify) . 

0P12 VERIFY CHK (Data Check on Verify 

Command) . 

0P16 DTA CHK CT (Data Check on Count). 



Note : Home Address is read, and the 
track address is provided for the error 
message. For other conditions, the 
track address is obtained from the 
user's initial Seek Address if the 
error occurs during channel program 
execution. 



• Byte 0, Bit 5 — Overrun 

Action : Take retry exit. After 15 
retries, take equipment error exit 
(cancel, retry). 



Message : 0P14 OVERRUN. 



• Byte 0, Bit 2 — Bus Out Check 

Action : Take retry exit. After 15, 
retries, take equipment error exit 
(cancel, retry). 

Message : 0P09 BUSOUT CHK. 



© Byte 0, Bit 4 — Data Check 



Action: 



5. 



If retry count is less than eight, 
go to step 5. 

If retry count is equal to 226, 
take equipment error exit (cancel, 
retry) . 

If retry count is an even number, 
issue a Seek to X-X-X-4-19 (last 
track of strip) and a Seek to 
X-X-X-0-0 (first track of strip). 
Perform this operation eight 
times. Then proceed to step 4. 

If retry count is any multiple of 
32 (32, 64, 96, ...), issue a Seek 
to next lower strip. (If this is 
the lowest strip - 00000 - seek 
the next higher strip.) Proceed 
to step 5. 

Increment retry count and take 
retry exit. 



• Byte 1, Bit 6 — Missing Address Markers 

Action : Perform action indicated under 
Data Check just described. 

Message : 0P13 ADDR MRKER. 

Note : Home Address is read, and the 
track address is provided for the error 
message. For other conditions, the 
track address is obtained from the 
user's initial Seek Address if the 
error occurs during channel program 
execution. 



• Byte 0, Bit — Command Reject 

Action : Check for byte 1, bit 5 (file 
protect) ; in either case, take program 
check exit. 

Messages : 0P17 FILE PROT (Command 

Reject/File Protect) . 

0P18 COMM REJCT (Command Reject alone) . 
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• Byte 0, Bit 6 — Track Condition Check 



1285-1287-1288 ERROR RECOVERY 



Action: 

1. Read Home Address and R0 and move 
CCHH from R0 to Seek command 
executed below, 

2. If alternate track: Update Seek 
Address to the next track address. 
If track address equals 20 , treat 
it as End of Cylinder; otherwise, 
proceed to step 3 . 

3. Set up the channel program: Seek f 
Read Home Address (with skip bit 
on) r TIC to CSW command address 
minus eight (last CCW executed) • 
Execute this channel program in 
error recovery. At channel end, 
exit to channel scheduler CSW 
processing routine. If DASD file 
protection is present, set file 
mask (inhibit long Seeks) 
following the seek. 



© CSW Bit 44 — Channel Data Check 

Action: One retry; then take equipment 
error exit (retry, cancel). 

Message: 0P28 CHAN DTCHK. 



o Byte 0, Bit 3 — Equipment Check 

Action : Post byte 3 of CCB and then 
take continue exit. 



Note : Data Check and Equipment Check, 
which indicate unreadable character and 
unreadable line, respectively, are 
retried by Logical IOCS in an attempt 
to correct the error. 



• Byte 1, Bit 1 — Track Overrun 

Action : Post track overrun to the CCB 
and take continue exit. 



• Byte 1, Bit 2 — End of Cylinder 

Action : Post End of Cylinder to the 
CCB and take continue exit. 



o Byte 0, Bit 1 — Intervention Required 

Action: Test for byte 0, bit 6 
(Nonrecovery) — if present, post byte 3, 
bit 4 of the CCB. This indicates that 
the error is passed back to the problem 
program. Exit via equipment error. 

Message : 0P35 NON RECOV. If byte 0, 
bit 6 is not present, take operator 
intervention exit. 
0P08 INTERV REQ. 



• Byte 1, Bit 5 — File Protect 

Action : Take program check exit. 
Message : 0P17 FILE PROT. 



o Byte 0, Bit 6 — Nonrecovery 

Action : Post byte 3, bit 4, of CCB and 
take continue exit. 



• CSW Bit 47 — Chaining Check 

Action : Take retry exit. After 15 
retries, take equipment error exit 
(cancel, retry). 

Message : 0P14 OVERRUN. 



• Byte 0, Bit 2 — Busout Check 

Action : One retry; then take equipment 
error exit (manual retry, cancel 
through ATTN routine) . 



Message : 



0P09 BUSOUT CHK. 



Note : If the 2321 Error Routine gets an 
error while trying to execute a Restore 
command, a Seek command (data-check 
procedure) , or a Read Home Address or a 
Read R0, equipment error exit is taken with 
retry and cancel options with the 
message: 0P20 ERR ON REC (Error During 
Recovery) . 



• Byte 0, Bit 4 — Data Check 

Action: Post byte 3, bit 0, of CCB and 
take continue exit. 

Note : Data Check and Equipment Check, 
which indicate unreadable character and 
unreadable line, respectively, are 
retried by Logical IOCS in an attempt 
to correct the error. 
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• Byte O f Bit 5 — Overrun 



•Byte 0, Bit 1 — Intervention Required 



Action : Four retries; then take 
equipment error exit (retry, cancel). 

Message : 0P14 OVERRUN. 



© Byte 0, Bit — Command Reject 
Action : Take program check exit. 
Message : 0P18 COMM REJCT. 

• CSW Bit 47 — Chaining Check 

Action : Four retries; then take 
equipment error exit (retry, cancel) . 

Message : 0P14 OVERRUN. 

© Byte 0, Bit 7 — Keyboard Correction 

Action : Post byte 3, bit l f of CCB and 
take continue exit. 

• Byte 1, Bit 4 — Invalid Font 

Action: Take program check exit. 

Message : 0P37 INVLD FONT. 

Note : Byte 1, bit 4 applies only to 
the 1287 in document mode. 



1412-1419 ERROR RECOVERY 



Action: Post "Intervention Required" 
to the CCB (byte 3, bit 1), and take 
IGNORE exit. No message is printed. 

Message : 0P08 INTERV REQ. 

Note : The problem program should 
process all documents in the input 
buffer, note the Intervention Required 
and perform any print out necessary for 
operator recovery, and issue an 
Engage-Read to the device to continue 
processing documents. If the 
Intervention Required is due to a batch 
numbering update failure, the operator 
must update the batch number as part of 
manual recovery. 



• Byte 0, Bit 2 — Bus Out Check 

Action : Post unrecoverable I/O error 
to CCB byte 2, bit 2, and turn on 
passback bit in error queue entry of 
ERBLOC Byte 10, bit 2, for return to 
user for error recovery. 

Message : OP 09 BUSOUT CHK. 



• Byte 0, Bit 3 — Should not occur 

Action : Post Unrecoverable I/O error 
to the CCB and provide informational 
message to the operator. 

Message : 0P19 UNDETR ERR 



• CSW Bit 44 — Channel Data Check 

Action : Post unrecoverable I/O error 
to CCB byte 2, bit 2. Turn on passback 
bit in error queue entry byte 10, bit 2 
for return to user for error recovery. 



Message: 



0P28 CHAN DTCHK- 



Note: CSW Bit 47 and Sense bits 4, 5, 6, 
and 7 will not cause an I/O Interrupt. If 
CSW bit 44 or sense bit 1, 2, or 3 is not 
present for an I/O interrupt, the action 
and message for sense bit 3 will be 
generated. LIOCS issues two informational 
messages through the MICR Message Writer: 



• Byte 0, Bit — Command Reject 

Action : Check command code of CCW 
causing interrupt with X"E1" for 
•Disengage Failed". If "Disengage 
Failed" , post intervention required to 
CCB byte 3, bit 1; if not, post 
unrecoverable I/O error to CCB byte 2, 
bit 2. In either case, turn on 
passback in error queue entry of ERBLOC 
byte 10, bit 2, for return to user for 
error recovery. 



Message : 
FAIL. 



0P18 COMM REJCT or 0P37 DISEN 



1. 4MR1I - EXTERNAL INTERRUPT I/O ERROR 



2. 4MR2I - SCU NOT OPERATIONAL 



Byte 0, Bit 7 — Batch Numbering Switch 
Off 

Action : Post document buffer byte 0, 
bits and 1 and insert reject code 
X f CF" in byte 5. Turn off retry and 
turn on ignore bits in ERRFLG of error 
queue entry of ERBLOC. 



Message : OP34 BCH NM OFF. 
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2495 ERROR RECOVERY 



• Byte 0, Bit 6 — Position Check 



• CSW Bit 42 — Program Check 

Action : Take equipment error exit 
(cancel) . 



Message : 



0P24 PROG CHECK 



Action : 
1. Read Commands — backspace one byte. 
Reread the remaining portion of 
the record. Repeat this sequence 
nine times for a total of ten 
rereads. On the eleventh try, 
take equipment error exit 
(cancel) . 



• CSW Bit 43 — Protection Check 



All other commands — take equipment 
error exit (cancel). 



Action : Take equipment error exit 
(cancel) . 



Message : 0P39 POSN CHECK 



Message: OP 25 PROT CHECK 



• CSW Bit 44 — Channel Data Check 

Action : 

1. Read Commands — backspace record, 
one retry, then take equipment 
error exit (cancel) . 

2. All other commands — take equipment 
error exit (cancel) . 

Message : 0P28 CHAN DTCHK 



• Byte 0, Bit 5 — Should not occur 
or 

• Byte 0, Bit 7 — Should not occur 



• Byte 0, Bit 4 — Data Check 

Action: Backspace one byte. Reread 
the remaining portion of the record. 
Repeat this sequence nine times for a 
total of ten rereads. On the eleventh 
try, post data check error and set 
passback flag in ERBLOC if user 
requests return of data check errors, 
take equipment error exit (ignore, 
cancel) . 



Message : 



0P11 DATA CHECK 



• Byte 0, Bit — Command Reject 
Action : Take program check exit. 
Message : 0P18 COMM REJCT 



Action : Take equipment error exit 
(cancel) . 



Message: 



0P19 UNDETR ERR 



1017/1018 ERROR RECOVERY 



• Byte 0, Bit 3 — Equipment Check 

Action: Take equipment error exit 
(cancel) . 

Message : 0P10 EQUIP CHK 



• Byte 0, Bit 2 — Bus Out Check 

Action : One retry, then take equipment 
error exit (cancel) . 



• CSW Bit 44 — Channel Data Check 

Action : For Read/Write Commands: If 
data transfer, no retry is performed. 
If initial selection, retry twice 
without repositioning. After specified 
number of retries has been reached, 
take equipment error exit (cancel) . 

Message : OP28 CHAN DTCHK 



• CSW Bit 47 — Chaining Check (Read/Write 
Commands) . 



Message ; 



0P09 BUSOUT CHECK 



• Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention 
exit . 

Message : OP 08 INTERV REQ. 



• Byte 0, Bit 2 — Bus-Out Check (Read 
Command during data transfer) . 

• Byte 0, Bit 3 — Equipment Check (Read 
Command) 

• Byte 0, Bit 4 — Data-Check (Write 
Command if Error Correction feature not 
present) 
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® Byte O ff Bit 5 — Overrun (Read/Write 
Commands ) 

• Byte 0, Bit 6 — Lost Data (Read/Write 
Commands ) 

® Byte 0, Bit 7 — Broken Tape (Write 
Command) This sense and status 
information is not used or may not 
occur for the indicated condition. 

Action : Take equipment error exit 
(cancel) , 



Message : 



0P19 UNDETR ERR 



© Byte 0, Bit — Command Reject 
Action ; Take Program check exit. 
Message : 0P18 COMM REJECT 

© Byte 0, Bit 1 — Intervention Required 

Action : If initial selection 
(Read/Write Commands) , take operator 
intervention exit. If data transfer 
(Write Command) t update interrupted CCW 
and retry. 

Message : 0P08 INTERV REQ 

® Byte 0, Bit 2 — Bus-Out Check 

Action: If initial selection 
(Read/Write Commands) , retry the 
operation twice. If data transfer 
(Write Command) , update interrupted CCW 
and retry. If error persists, take 
equipment error exit (cancel) . 



Message: 



0P09 BUSOUT CHK 



® Byte 0, Bit 3 — Equipment Check (Write 
Command) 

Action : Take equipment error exit 
(cancel) . 

Message : 0P10 EQUIP CHK 

® Byte 0, Bit 4 — Data Check 

Action: If Read Command, update 
interrupted CCW, backspace one 
character and retry. If the error 
persists after four retries, test the 
CCB for the ignore option (byte 2, bit 
4) ; if the bit is on, turn on byte 3, 
bit 3 of the CCB (1017/1018 data check) 
and take the equipment error exit 
(ignore, cancel) . If the bit is not 



on, take the equipment error exit 
(cancel). If Write Command, (Error 
Correction Feature Not Supported) byte 
3, bit 3 in the CCB is set on, then if 
the user wants to process the data 
check himself (byte 2, bit 6 on in the 
CCB) , control is returned to the user 
program. If the user does not want to 
process the data check, he must take 
the equipment error exit (ignore, 
cancel) if bit 4 of byte 2 in CCB is 
off. 

Message : 0P11 DATA CHECK 

Note : When a data check occurs, the 
user's CCW is modified by the error 
routine to allow rereading or rewriting 
of the last character. The data 
address is the last character read or 
written (i.e., the character in error), 
and the byte count is decreased by the 
number of valid characters read or 
written. If the CCB ignore option is 
chosen and the operator responds 
ignore, the I/O operation is dequeued 
and posted with the unrecoverable error 
bit on (CCB byte 2, bit 2) and 
1017/1018 data check bit on (CCB byte 
3, bit 3). To read or write the rest 
of the record, the problem program 
(logical IOCS) adds 1 to the CCW data 
address and subtracts 1 from the byte 
count to adjust for not rereading or 
rewriting the bad character, and then 
reissues the EXCP. The ignore option 
is available to the operator whenever 
the user specifies any of the DTFPT 
ERROPT entry options. 



Byte 0, Bit 7- 
Command) 



-Broken Tape (Read 



Action : When this condition occurs, 
the last record has not been completely 
read. Turn on byte 3, bit 1 of the CCB 
(1017 broken tape) and take the 
equipment error exit (retry, ignore, 
cancel) . 



0P4 BROKEN TAPE 

When broken tape condition 
the operator must reposition 



Message : 

Note 1 : 
occurs , 

the paper tape at the beginning of the 
record before responding. The 1017 
must not be readied until this 
repositioning has been performed. If 
the ignore option is chosen, the I/O 
operation is dequeued and posted with 
the unrecoverable error bit on (CCB 
byte 2, bit 2) and the 1017 broken tape 
bit on (CCB byte 3, bit 1). 



Note 



J2: A record may not be partly on 



one tape and partly on another. 
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RECOVERY MANAGEMENT SUPPORT FOR SYSTEM/370 



The RMS (Recovery Mangement Support) is an 
automatic DOS feature for IBM System/370. 
RMS gathers information about hardware 
reliability and attempts certain error 
recovery operations. It is part of the 
entire RAS (reliability, availability r and 
serviceability) support for System/370. 

RMS is supervisor generated and is 
composed of two functions: 

• MCAR (Machine Check Analysis and 
Recovery) and 

• CCH (Channel Check Handler) . 

However, RMS is not a supervisor option. 
It is generated automatically for 
System/370 at SYSGEN. The CONFG macro sets 
global BG39 when MODEL option shows a 
System/370 CPU. Figure 54 gives the 
overview of the RMS function in DOS. 



Frequency Limit) feature of operating in 
Quiet or Recording mode. See the MODE 
Command section. 



Hard MCI occurs when: 

• CPU retry is unsuccessful, or 

• Interrupted instruction cannot be 
retried, or 

• Storage failure is permanent. 

In event of a hard MCI, execution of the 
affected task stops. MCAR assesses damage 
and continues system operation when 
possible. It selectively terminates the 
affected partition. RMS records a full 
Damage Report on the Recorder File. 



MCAR FUNCTION 



MCAR responds to machine check interrupts 
and attempts recovery. It logs error data 
on ERDS (Environmental Recording Data Set) 
on the Recorder File. It provides operator 
messages via SYSLOG. 

When a machine check occurs, MCAR first 
logs the error, then retries the failure by 
CPU retry and ECC ( Error Correction Code) . 
If successful, a soft MCI (machine check 
interrupt) message occurs, signifying 
recovery from a machine check. 

If hardware retry is unsuccessful, MCAR 
determines machine check severity through 
recovery transient analysis and records 
pertinent data on SYSREC. RMS controls the 
recording of data through the EFL (Error 



The system enters the hard wait state 
when a hard MCI: 

• Interrupts supervisor coding 

• Occurs while accessing critical 
information or phases from SYSRES, or 

© Damages privileged coding through 
permanent storage error 



MCAR attempts to notify the operator 
about : 

1. Machine check type 

2. Wait state, re-IPL 

3. Problem program termination 

4. MODE operation change 

5. Buffer deletion 
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CONFG option 
MODEL = 
(System/370 CPU) 
set global BG39 



SEND macro, 
generate MCRAS 
inner macro for 
RMS code in 
super visor 



SYSGEN 

Operation 



ipl, 

JOBCTLM, 
MAINTEOJ 



Severity Detect 
Routine, MCHEK 
(resident) 



System in Operation 



Machine 

Check 

Interrupt 



Channel 

Check 

Interrupt 



System 



NO 



y Hard \YES 
\. MCI / 


1 


|NO 


Task 
Cancelation 






$$RAST00 VA 




Enter RTA for 
further analysis 






$$RAST01 VF 



Attempt recording 
and 



$$RAST00 VA 



Issue message 



\h 



$$RAST01 



Record on 
SYSREC 



Perform from 
RAS Monitor 
(resident) 



$$RAST03 



WE 



Perform EFL analysis 
SPF Key Repair, and 
Storage validation 



$$RAST10 XK 



Message 
for ERP 



$$BCCHHR 
builds Load list 
in RASTAB for 
R- transients 



Resident 

CCH 

Routines 




YES 



$$RAST01, 02 
VF, WA 



Attempt recording 



$$RAST00 



VA 



Issue message 



Channel 
Analysis 



$$RAST02 WA 



Nonresident 
CCH 




9 



(System A 

Termination J 



YES 



YES 




DASD 
Retry 
(Resident) 










v 






$$RAST01 VF 




Recording 
of error 



$$RAST01 VF 



Recording 
of error 




$$RAST04, 05, 07 
XA, XE, XH 



$$RAST09 



XJA 



Partition 
reallocation if 
storage validation 
failed 



$$RAST11 



Message 
Writing 



^ 



Perform from 
RAS Monitor 
(resident) 




RAS 

Monitor 

(resident) 



Task 
Cancelation 



r=z 



$$RAST10 XK 



Message 



^ I (?) 



Contir 



Figure 54. RMS Generation and Operation 
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CCH FUNCTION 



The Channel Check Handler responds to 
channel error conditions- It first logs 
the error. Then, it evaluates the damage 
and attempts to decrease the impact on the 
entire system. 

CCH assesses channel control checks and 
interface control checks to determine if 
the system can continue. Figure 55 shows 
the results of the Channel Check Severity 
Routine. Resident CCH performs severity 
analysis, records errors on SYSREC (see 
Figure 56 for the format of System/370 
machine check records and Figure 57 for the 
format of System/370 channel check 
records), and builds an ERPIB (Error 
Recovery Procedure Interface Byte) entry. 

Resident CCH coding performs no recovery 
action, but fetches the proper recovery 
transient to attempt restoration of system 
operation. Recovery transients operate 
under control of the RAS Monitor. 

Figure 58 shows the devices supported 
with ERP by CCH routines and the action 
taken for each condition. 

System termination results when: 

• Hard channel error occurs on accessing 
critical information or phases from 
SYSRES 

• System reset has occurred 

• Channel address or reset codes are 
invalid 

• Two channels are damaged 
simultaneously, or 

• Four system ERP IBs are exhausted 



RAS MONITOR AND R-TRANSIENTS 



The RAS Monitor is a resident control 
program with which RMS (MCAR/CCH functions) 
controls the RTA. At DOS system generation 
for System/370, the RAS Monitor forms a 
portion of the resident supervisor. The 
RAS Monitor and RMS coding are generated 



when the SYSGEN option MODEL=a System/370 
CPU. That MODEL option turns on macro 
global BG39, generating RMS support. 



The RAS Monitor: 

1. Fetches R-transients into the RTA 

2. Schedules I/O requests from the RTA 

3. Accepts RTA I/O request complete 
postings from CCH, and 

4. Provides exit interface from 
R-transients. 

The R-transients (or recovery 
transients) are nonresident RMS ERPs (error 
recovery procedures). The transients are 
listed in order of descending priority in 
Figure 59 and in the load list portion 
(bytes 0-47) of the RMS table. Refer to 
Figure 60, RASTAB. The R-transient with 
the highest priority is activated wherever 
multiple transients are selected for the 
RTA. 

R-transients perform channel check ERP 
and differ from A-transients, which still 
perform channel data check recovery. 
R-transients operate on channel control 
checks and channel interface checks. They 
attempt to retry the operation, or 
terminate the affected partition, while 
trying to permit continued system activity. 
See Figure 61 for the recovery transient 
error messages. 



MODE COMMAND 

The MODE command gives the operator control 
of soft machine check interrupts. It 
permits the operator three options: 

1. Determine whether the system is in 
quiet or recording mode 

2. Alter mode of operation 

3. Change error threshold values 

By the mode command, the operator can 
change machine check logging and can 
receive status reports about the system. 
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Channel Check Severity Detect Routine (Part 1): 



Channel 
Address 
Valid 


Reset 
Codes 
Valid 


System 
Reset 
Code On 


Start 
I/O 
Time 


Unit 

Address 

Valid 


RTA I/O 
Active 


SYSRES 
Channel 


Action 
Taken 


No 














1,2 


Yes 


No 












1/2 


Yes 


Yes 


Yes 










1,2 


Yes 


Yes 


No 


Yes 








5 


Yes 


Yes 


No 


No 


No 


No 


No 


1/3 


Yes 


Yes 


No 


No 


No 


Yes 




1,2 


Yes 


Yes 


No 


No 


No 


No 


Yes 


1,3,4,5 


Yes 


Yes 


No 


No 


Yes 






5 


ACTION CODES 

1 . Schedule recording. 

2. Schedule system termination with proper message. 

3. Set the damaged channel byte for non-resident channel check handler. 

4. Assume the error is on SYSRES device. 

5. Error can be isolated to a device, use Part 2. 

Note: Every Channel Check that occurs in the system is passed through the Channel 

Check Severity Detect Routine. You can determine the disposition of the check 
by using part 1 . When a Channel Check has been isolated to a device, use 
part 2 to determine the action taken. 



Channel Check Device Isolation Results (Part 2): 



Active 

ERPIB 

Exist 


Channel 

Check 

Entry 


DASD 


Channel 

Retry 

Request 


Action 
Taken 




No 


No 






6 


No 


Yes 






7 


Yes 


No 


No 


No 


8 


Yes 


No 


No 


Yes 


6,9,10 


Yes 


No 


Yes 




6 


Yes 


Yes 


No 


No 


8 


Yes 


Yes 


No 


Yes 


8,9,10 


Yes 


Yes 


Yes 




11 


ACTION CODES 

6. Exit to supervisor I/O routine after other functions performed. 

7. Find a free ERPIB in queue and fill with information for ERPs. 

8. Exit to task selection after other functions performed. 

9. Post ERPIB complete. 

10. Dequeue the RAS CCB and requeue the users CCB. 
1 1 . Exit to DASD channel check handler. 



Figure 55. Channel Check Severity Routine Results 
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Record 

1 






1-2 


3 


4 


5-7 


8-9 


10-11 


12-15 


16-19 


20-27 


28-35 


36-43 


44-77 


78 


79 


Machine 


Record 


CPU 


Reserved 


CPU 


CPU 


MCEL 


Date 


Time of day 


Reserved 


Job ID 


Machine 


Reserved 


Damage 


End of 


Check 


Sequence 


Model 




Serial 


ID 


Length 




in 300ths of 






Check 




Assessment 


Record 


ID 


Counter 


Number 












a second 






Old PSW 






Indicator 


(X'10') 
















Timer units 












(X'FF 1 ) 



co 
o 

P 
(D 

O 

8- 



Record 
2 



Record 
3 



0-3 
(Same 


as Record 1) 


4 

Sub Class 
Codes 


5 

Tense 
Codes 


6-7 

Error and 
Validity 
Codes 


8-11 

Extended 

Logout 

Length 


12-19 
Reserved 


20-23 

Failing 
Storage 
Address 


24-25 

Region Code 

ECC 

Information 


26-27 

Region Code 
Control Word 
Address 


28-78 

Reserved 


79 

(Same as Record 1) 



0-3 

(Same as Record 1) 



4-48 
Reserved 



49-78 

Floating Point Register Area 



79 

(Same .as Record 1) 




h 

O 

3 

CO 
K 
CO 

8 



Record 
4 



Record 
5 



Record 
6-17 



0-3 

(Same as Record 1) 


4-5 

Floating Point Regs Save 
Area (Continued) 


6-69 

General Registers Save Area 


70-78 

Control Registers 
Save Area 


79 

(Same as Record 1) 



0-3 

(Same as Record 1) 



4-58 

Control Registers Save Area 



59-78 

MCEL (Machine Check Extended Logout) 



79 

(Same as Record 1 ) 



0-3 

(Same as Record 1 ) 


4-78 

MCEL (Machine Check Extended Logout) 


79 

(Same as Record 1 ) 



s 

CO 



0-3 

(Same as Record 1 ) 


4-75 

MCEL (Machine Check Extended Logout) 


76-78 

Reserved 
(X'OOOOOO 1 ) 


79 

(Same as Record 1) 



Record 
18 



* Note: The Model 155 uses Records 1 - 18, as shown. The Model 145 uses only Records 1 - 8. 

In Record 8 for the Model 145, Bytes 0- 3 are the same as Record 1 , Bytes 4- 25 contain 
the remainder of the MCEL (Machine Check Extended Logout) area, and the remainder 
of the record is not used. 



to 

w 



Displacement 





1 


2 


3 


4-11 


12-15 


16-19 


20-27 


28-43 


44-51 


Label 


CCKEY 


CCN1 


CCN2 


CCMOD 


CCCPUID 


CCDATE 


CCTIME 


CCNAME 


CCAIOU 


CCFCCW 


Record 1 * 


Record 
ID 


Record 
Number 


Total 
Records 


CPU 

Model 

Code 


CPU ID 
Information 


Date 


Time 
of Day 


Job 
Name 


Active 
I/O Units 


Failing 

CCW 



Displacement 


52-59 


60-63 


64-65 


66 


67- 69 


70-73 


74-77 


78 


79 


Label 


CCCSW 


CCECSW 


CCDEVTYP 


CCCHID 


CCCUA 


CCMPI 




CCSYSCON 


CCGUARD 


Record 1 
(continued) 


CSW 


Extended 
CCW 


Device 
Type 


Channel 
ID 


Control 
Unit 


Multi- 
processing 
Information 


Reserved 


System 

Condition 

Byte 


Guard 

Byte 

X'FF' 



Displacement 


0-3 


4-78 


79 


Record 2 


Same as Record 1 


Channel Logout Area 


Same as 
Record 1 



Displacement 


0- 3 


4-24 


25-78 


79 


Record 3 


Same as Record 1 


Channel Logout Area 


Unused 


Same as 
Record 1 



* Note: Only Record 1 is written for the Model 155. 

Record 1 is also addressed symbolically as CCREC with the logout data area, 
Bytes 4- 78, addressed as CCLOGD. 

Figure 57. RMS Channel Check Record on SYSREC 
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1403 AND 1443 Printers 



Operation 



Termination Code* 



Sequence Code 



000 



001 



010 



011 



100 



101 



110 



111 



Write (Only) 
Write/Control 
No Op 
Control 



*Recovery procedures for the 1403 and 1443 are termination code independent. 



2520 Card Read Punch 



Operation 


Termination Code* 


Sequence Code 


000 


001 


010 


on 


100 


101 


110 


111 


Sense 


00 


2 


5 


5 


5 


5 


5 


2 


5 




01 


2 


2 


5 


5 


2 


5 


2 


5 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 


Read/Control 


00 


2 


5 


4 


4 


5 


4 


2 


4 




01 


2 


2 


4 


4 


2 


4 


2 


4 




10 


2 


5 


4 


4 


5 


4 


2 


4 




11 


2 


5 


4 


4 


5 


4 


2 


4 


Write/Control 


00 


2 


5 


4 


4 


5 


4 


2 


4 




01 


2 


2 


4 


4 


2 


4 


2 


4 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 


Write, No Control 


00 


2 


5 


3 


3 


5 


3 


2 


3 




01 


2 


2 


3 


3 


2 


3 


2 


3 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 


Immediate 


00 


2 


5 


2 


2 


5 


2 


2 


5 




01 


2 


2 


2 


2 


2 


2 


2 


2 




10 


2 


5 


2 


2 


5 


2 


2 


5 




11 


2 


5 


2 


2 


5 


2 


2 


5 



1442 Card Read Punch 



Operation 


Termination Code* 


Sequence Code 


000 


001 


010 


011 


100 


101 


110 


111 


Sense 


00 
01 
10 
11 


2 
2 
2 
2 


5 
2 
5 
5 


5 
5 
3 
3 


5 
5 
3 
3 


5 
2 
5 
5 


5 
5 
3 
3 


2 
2 
2 
2 


5 
5 
3 
3 


Read/Control 


00 
01 
10 
11 


2 
2 
2 
2 


5 
2 
5 
5 


3 
3 
3 
3 


3 
3 
3 
3 


5 
2 
5 
5 


3 
3 
3 
3 


2 
2 
2 
2 


3 
3 
3 
3 


Write/Control 


00 
01 
10 
11 


2 
2 
2 
2 


5 
2 
5 
5 


3 
3 
3 
3 


3 
3 
3 
3 


5 
2 
5 
5 


3 
3 
3 
3 


2 
2 
2 
2 


3 
3 
3 
3 



Note: This Figure shows individual errors for each device supported by CCH and the action taken for each condition. The Action Codes are 
explained at the end. 

Figure 58. Error Recovery Procedures for CCH-Supported Devices 
(Part 1 of 2) 
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2501 Card Reader 



Operation 


Termination Code* 


Sequence Code 


000 


001 


010 


on 


100 


101 


110 


111 


Read 


00 


2 


5 


4 


4 


5 


4 


2 


4 




01 


2 


2 


4 


2 


2 


4 


2 


4 




10 


• 2 


5 


4 


4 


5 


4 


2 


4 




11 


2 


5 


4 


4 


5 


4 


2 


4 


Sense 


00 


2 


5 


5 


5 


5 


5 


2 


5 




01 


2 


2 


5 


5 


2 


5 


2 


5 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 



2540 Card Read Punch 



Operation 


Termination Code* 








Sequence 


Code 








000 


001 


010 


011 


100 


101 


110 


111 


Read-Feed-SS 
Read 
Feed-SS 
Punch-Feed-SS 




2 
2 
2 
2 


5 
4 
4 
5 


3 

4 
3 
3 


4 
4 
2 
4 


5 
4 
4 
5 


3 
4 
2 
3 


2 
2 
2 
2 


3 
4 
3 
3 


*Recovery procedures for the 2540 are termination code ir 


idependent. 















3210 and 3215 Console Printer- Keyboard 



Operation 


Termination Code* 






Sequence 


Code 








000 


001 


010 


011 


100 


101 


no 


111 


Read 




2 


5 


5 


3 


5 


3 


2 


3 


Write, CR 




2 


5 


5 


3 


5 


3 


2 


3 


Write, No CR 




2 


5 


5 


3 


5 


3 


2 


3 


No Op 




2 


5 


5 


5 


5 


5 


2 


5 


Alarm 




2 


5 


5 


5 


5 


5 


2 


5 


*Recovery procedures for the 3210 and 3215 are terminati 


on code independent. 













DASD Devices 2311, 2314, 2319, 2321 

These devices are retryable for all conditions of Retry Code and Termination Code by restarting the CCW list from the beginning (from the 
initial SEEK, SET FILE MASK, etc.). Ten attempts are made at retry of DASD Channel Errors. 

Note: Recovery ($$R) transients are not invoked to act on all termination codes shown. Termination code 11 (system reset code) is 
handled by resident RMS routines. This termination code is shown primarily for reference purposes. 

ACTION CODES 

Action 1 . The channel is damaged and the channel user will be canceled unless he accepts unrecoverable I/O errors. If specified, control 

returns to the damaged channel user for further analysis. If the channel user is to be canceled due to a non-retryable or 
unrecoverable channel failure, the CCH ERP restores the Channel Queue Pointer and Channel Scheduler Flags in the PUB if 
required. It flags the ERPIB with a cancel code (X'FD 1 ), saves CSW and CCW information for the user, and then returns to the 
CCH. The CCH then cancels the failing channel user. 

Action 2. Action 1 is taken followed by the CCH ERP. 

Action 3. This is a non-retryable condition. An operator message is issued by the CCH ERP, and Action 1 follows. 

Action 4. With this condition, retry is possible with manual repositioning by the operator. The CCH ERP issues an operator message and waits 

for a response to retry the operation (reoccurrence of this error during the retry causes Action 1 ). 

Action 5. This condition indicates the failing CCW can be retried. The CCH ERP identifies the failing CCW chain. If the failure reoccurs 

during the retry operation, an operator message is issued and Action 1 follows. 

Figure 58. Error Recovery Procedures for CCH- Supported Devices 
(Part 2 of 2) 
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r t t 

| R-Transients | Charts | Function 

j. + + 

$$RAST00 | VA |MCAR analysis / CCH 
| | data gatherer 

$$RAST01 | VF |MCAR / CCH recording 

$$RAST02 | WA | CCH ERP scheduling 

$$RAST03 | WE |MCAR repair (error 
J | frequency unit) 

$$RAST04 | XA | Unit record CCH ERP 

$$RAST05 | XE | Unit record CCH ERP 

$$RAST06 | | Reserved 

$$RAST07 | XH | Tape CCH ERP 

$$RAST08 | | Reserved 

$$RAST09 | XJA | Partition 

| | reallocation 

$$RAST10 | XK | Message writer for 
| | ERPs . 

$$RAST11 | XN | Message writer 



Figure 59. Load List of R-transients 
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12 
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20 
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© 


© 


36 


40 


44 


48 


50 


52 


54 




56 


57 


LD09SLOT 


LD10SLOT 


LD 11 SLOT 


RASCCB 


RASTIB 










RASCCBF 




($$RAST09) 

© 


($$RAST10) 

© 


($$RAST11) 

© 


Residual 
Count 


Transmission 
information 


CCW Status 
bytes 


SYSRES 
LUB 




RAS CCB 
indicator 


RAS Fetch 
CCWs address 


60 


64 


72 


80 


88 


96 


103 




104 


106 





RASCCWS 


RASRCG 


RASTIC 


RAS READ 


RASEEK 


RTAOWN 




MCPIK 


RTAID 


CCW stored 
address 


RAS seek 
CCW 


RAS search 
CCW 


TIC CCW 


CCW to read 
module into 
RTA 


Seek 
Address 


Index into 
load list for 
RTA owner 


PIKof task 
interrupted by 
machine check 


RTA I/O 
requestor ID 


107 


108 


112 


116 


120 


124 


128 




132 


136 


ERPID 


RASRETR 


RASIOA 


RASFCHA 


ERPIBA 


RASDEQA 


XCANRASA 


CCENTADR 


RASRES 


WTOR request 
return load 
index 


RTA return 
address after 
I/O operation 


RAS I/O 
request address 


RAS FETCH 
request address 


ERPIB queue 
address 


CCBDEQ 

routine 

address 


RAS cance 

routine 

address 




Channel 
Check entry 
address 


SYSRES 
I/O address 


138 




140 




142 


144 


148 


156 


160 


164 


RASREC 




RASLOG 




RASEMIOA 


RASCQDSP 


SUPRETR 


SUPBB 


SUPBC 


SUPBD 


SYSREC 
I/O address 




SYSLOG 

device 

address 




Emergency 
SIO 

address 


CCB look- up 

routine 

address 


Save area 
for registers 
9 and 10 


Base address 
(X'1000') for 
supervisor 


Base address 
(X'2000') for 
supervisor 


Base address 
(X'3000') for 
supervisor 


168 (HIR- Hard 


ware Instruction 1 


'etry accumulators) 


180 (ECCMAIN - Main storage error accumulators) 


168 




170 




172 


176 


180 


182 


184 


188 


HIRACNT 




HIR1CNT 




HIR1TIME 


HIRLTIME 


ECMACNT 


ECMLCNT 


ECM1TME 


ECMLTME 


HIR 
accumulated 




Count 
threshold 




Time of day for 
first error 


Time threshold 
in clock units 


Accumulated 
ECC count for 


Count 
threshold 


Time of day 
for first error 


Time 
threshold in 


count 




value 




of group 




main storage 


value 


of count 


clock units 


192 




194 




196 


197 


198 


199 


200 


201 


RESTARTA 




RESTARTP 




MCMODE 


BUFDEL 


RASMSG1 


RASMSG2 


EOR 


EOT 


Disk 

restart 

address 




PUB address 
of unit to 
be restarted 




Mode status 
for machine 
checks 


Count of 

buffers 

deleted 


Message byte 1 

© 


Message byte 2 

© 


Records/track 
for SYSREC 


Tracks/cylinder 
for SYSREC 



Figure 60. RAS Monitor Table (RASTAB) (Part 1 of 2) 
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Notes: 



© 



Areas labeled LDxxSLOT (bytes - 47) are called the Load List and each of the 
12 entries are formatted as follows: 



BYTE 



© 



© 



© 



© 



© 




Cylinder - Head - Record 
(disk address of R-transient in the 
core image directory) , 



LD00SLOT flag byte: 



Bit Flag Description 

X'80' $$RAST00 module activated. 

1 X'40' Machine check analysis to be performed. 

2 X'20 Channel check analysis to be performed. 

3 X'10' Active I/O units are valid. 

4 X'08' System termination situation. 

5 X'04 Reserved. 

6 X'02' Reserved. 

7 X'01 1 Attempt made to record in system termination situation. 



LD01 SLOT flag byte: 

Bit Flag 

X'80' 

1 X'40' 
2-7 

LDlOSLOTflag byte: 

Bit Flag 

X'80' 

1 X'40' 
2-7 

LDxxSLOT flag byte: 



© 



Description 

$$RAST01 module activated. 

Build and record channel check records. 

Reserved. 



Description 

$$RAST10 module activated. 

Refetch calling module after issuing message. 

Reserved. 



Bit Flag Description 

X'80' $$RASTxx module activated; that is , should be fetched. 

1-7 — Reserved. 

RASMSG1: 

Bit Flag Description 

0-3 — Reserved. 

4 X'08' Timer damage. 

5 X'04' ECC in Quiet mode. 

6 X'02' Reserved. 

7 X'01' MCAR repair failed. 

RASMSG2: 

Bit Flag Description 

X'80' Check damage. 

1 X'40' Last track on SYSREC. 

2 X'20' C40 buffer pages deleted. 

3 X'10' Soft machine checks disabled. 

4 X'08' ECC MCI disabled. 

5 X'04' SYSREC full-run EREP. 

6 X'02' Error on SYSREC at BBCCHHR. 

7 X r 01 ' Soft machine check. 



Figure 60. RAS Monitor Table (RASTAB) (Part 2 of 2) 
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Message 
Code 


Initiating 
Phase 


0I25I 


$$IPLRT2,4 
(Note 3) 


0P13A 


$$RAST10 


OP 8 11 


$$BEOJ2A 
(Note 2) 


0P82I 


$$BEOJ2A 
(Note 2) 


0T00I 


$$RAST01 f ll 


0T03I 


$$RAST01 f ll 


0T05I 


$$RAST01,11 


0T06I 


$$RAST03,11 


0T07I 


$$RAST03,11 


0T08I 


$$RAST03,11 


0T09I 


$$RAST03,11 


0T10I 


$$RAST04,5,7,10 


0T11I 


$$RAST00,01 



0T12I 


$$RAST04,5 f 7,10 


0T13A 


$$RAST04,5,7,10 


0T1UI 


$$RAST03,11 


0T15I 


$$RAST09 


0T16I 


$$RAST03,11 


0T17I 


$$RAST03 f 11 


0T18I 


$$RAST01 



Error Message 

No RAS support for this model CPU, 

Invalid response. 

Job XXXXXXXX canceled due to CPU failure. 

Job XXXXXXXX canceled due to channel failure. 

Last track on Recorder File. 

Error on Recorder File at CCHHR. 

Recorder File full — run EREP. 

EC C main storage MCI disabled. 

All soft machine checks disabled. 

C40 buffer pages deleted = XXX. 

Soft machine check. 

Channel error recovery on cuu. 

Hard wait. Code = X. (Note 1) 
Run EREP. Recording successful. 
Run EREP. Recording incomplete. 
Run SEREP. Recording unsuccessful. 

Unrecoverable channel errors on cuu. 

Channel error on cuu. 

Check damage. All modes quiet. 

MCAR repair failed. 

EFL overflow. 

Control storage ECC in quiet mode. 

Timer damage. 



Figure 61. RMS Error Messages (Part 1 of 2) 



130 DOS Supervisor and Related Transients 



Message 
Code 


| Initiating | 
I Phase I 


0T19I 


|$$RAST09 | 


0T20I 


| $$RAST09 | 


1I93I 


| $ JOBCTLM | 
| (Note 3) | 



Error Message 
(Lower, Upper) boundary of XX is DDDDDD, length is LLLK. 
XX not usable. 
Recorder File is XXX% full. Run EREP. 



Note 1 : Hard wait has resulted due to system failure explained in the code X r where 
X = A Unrecoverable machine check E ERPIB exhausted 

B RAS fetch error F Two channels damaged or RTA I/O active 

C SYSLOG channel check while G Reserved 
printing RMS message H Reserved 

D No ECSW stored I Invalid channel address on channel error 

Note 2 : For this phase, refer to the Logical Transients PLM, listed in Preface . 

Note 3 : For this phase, refer to the IPL and Job Control PLM r listed in Preface . 



Figure 61. RMS Error Messages (Part 2 of 2) 
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RASLINK 

(Decimal Displacement) 

CPUID 


8 
RASDMC 


9 
RASFLAGS 


10 
MCFLAGS 


11 
RASMODEL 


12 
RASTABA 


16 
RASBASE 


CPU ID field 


Damaged 

Channel 

byte 


RAS flag 
byte 


Machine 

Check 

flags 


CPU 
Model 


RAS Table 
(RASTAB) 
address 


Base address 
for RAS 
Monitor 


XXXXXXXX 


X 


X 


X 


X 


XXXX 


XXXX 



Key to RAS Linkage Area displacements: 
CPU ID field. 
Address of damaged channel, or X'FF 1 if no channel damaged. 







10 



11 



12 



16 



RAS Flag byte 




bit 


flag 


description 







1 

2 
3 
4 
5 
6 
7 


X'80 1 
X'40' 
X'20 1 
X'10' 
X'08 1 
X'04 1 
X'02« 
X'OT 


RAS active 

RAS 3IO flag 

RTA in control 

RAS I/O delayed 

Channel check on error SIO 

Reserved 

Channel check on SIO 

I/O active for SIO 


Machine Chec 


k Flags: 


bU 

0-4 
5 
6 
7 


flag 


description 

Reserved 

Hard machine check 

All machine records built 

All channel check records built 






X'04' 
X'02' 
X'OT 



Largest CPU Model. 

Address of RAS Table (RASTAB). 

Address used for base register in RAS Monitor Program. 



Figure 62. RMS Linkage Area (RASLINK) 
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CHARTS 



Chart 01. Supervisor General Entry, General Exit, and Processor Exit 



Allowable 
Supervisor 
Interrupt 



When SYSGEN option MODEL = a System/360 CPU, a machine check 
results in a hard wait without MCRR option (See Chart 07). 
For other interrupts: 

1 . Store the old PSW address for this interrupt and general registers 
9-11 for General Exit (EXT01). 

2. Establish address of the PIB for the task that has been interrupted 
using the PIK. PIK equals the key of the last task selected on 
general exit. 

3. For interrupted background or foreground programs, general 
registers 1 to 8 are stored in their respective save area. 
The address of this save area is specified by the PIB. 

4. For interrupted supervisor or quiesce I/O tasks the respective 
PIB status flag is set to X'85' (task is made active). 



C 



LPSW 




r lpsw N 

V Wait State J 



EXIT TO INTERRUPT PROCESSOR 



Chart AA 



• Supervisor call interrupt 

• I/O interrupt ■ 



• Program check interrupt 

• External interrupt ■ 



• Machine check interrupt 



* 02,03,04,) 
05,08,10,15 



GENERAL 
EXIT 



EXT01, EXT02, EXT03, EXT04 



GENERAL EXIT (TASK SELECTION) 



Charts BC - BE 



There are four general exits: EXT01 , EXT02, EXT03, EXT04. On System/370 before 
executing general exits, branch to RAS Monitor to handle any pending recovery functions, if 
RMS is active. 



EXT01 : Direct return to the interrupted task or program. 

EXT02; Task selection; determine which task or program should run next. Task selection is 

performed because the next task may be other than a return to the interrupted program or task. 

The PIB status flag (byte 0) indicates the task or program is: 

Ready to run (unbound). 

Waiting for I/O to complete or a time interval to elapse (SVC 7 bound). 

Waiting for the B-transient area to become available (SVC 2 bound). 

In control of the system (seized by a SVC 22). 

Detached from the system (foreground programs and attention task only). 

Priority is determined by the sequence of the PIBs. Task selection selects the highest 
priority task or program that is: 

1 . Unbound, or 

2. SVC 2 bound but the B-transient area is no longer in use. 

NOTE: A program, or task, that has seized the system by issuing a SVC 22 will be selected 
over all other programs or tasks except special supervisor tasks (Supervisor and Quiesce I/O). 

Refer to Figure 31 for task selection procedure. Refer to Figure 14-16 for the format of 
the PIB tables. 

The following table of tasks tested during task selection are in priority sequence. The 
PIK (PID) in the communications region is set to the PIB displacement for the task or pro- 
gram selected. The exit from the General Exit routine, after a task is selected, is shown in 
the table. 
1 . Supervisor task; return to the point where Supervisor was interrupted. 

Quiesce I/O task ■ 

Attention task 



Foreground 1 program 
Foreground 2 program 
Background program 



All Bound (no task or program is ready to run); load I/O old PSW and enter wait state 

with all interrupts masked on. 
EXT03: This exit insures that the old PSW and registers are stored before task selection. 
Task selection is performed the same as for EXT02. (See EXT02. ) 

EXT04: This exit is for MICR type devices only. If MICR and MPS = YES, a branch is made to 
to EXT03, if task selection is necessary; if MPS=NO, EXT04 is made a NOP. 
Considerations for Supervisor generated without MPS: Task selection functions are the same 
as with MPS option except the foreground program and all bound PIBs are not included. 



<5> KT cjj 



04 

I/O 



SVC 




Fetch $$BEOJ3 
(for TP) or $$BEOJ4 
(for non- T P Superv . 

See Logical 
Transient PLM 
GY24-5152 



/LPSW Return to "\ 
\ Problem Program J 
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Chart 02. Resident Attention Routine and Program Check Interrupt Routine 



ATNRTN 



RESIDENT ATTENTION ROUTINE 



Chart GD 



1052 Attention Key: When an attention request is 
made, the attention PI B status is changed to active, 
First the physical attention transient program 
(SSANERRZ) is fetched. When the attention PIB 
is next selected, the logical attention transient 
program ($$BATTNA) is fetched. After the logical 
attention transient program releases control, the 
attention PIB status is changed to inactive. In a 
batch job only system (BJS), the attention routine 
runs attached to the problem program. 
External Interrupt Key; Same actions as for the 
1052 attention key above except that the physical 
attention transient program (SSANERRZ) is not 
fetched. 

Timer Interrupt Waiting: Refer to the IT NOTE in 
the timer interrupt routine on Chart 05. The pro- 
gram switch at ITBRC being set, control returns to 
the timer interrupt routine because timer interrupt 
processing has not yet been completed. 




EXTERNAL 



ATTENTION 



( FETCH "\ 

V ^ SSBATTNA J 

See Logical Transients PLM 
GY24-5152 



SSANERRZ 



PROGRAM CHECK 
INTERRUPT 



ENTPCK 



PROGRAM CHECK INTERRUPT PROCESSOR 



OPTION 



No PC Rtn 



PC, no IT, 
OC, or SP 



PC with IT, 
OC, or SP 



CHARTS 



BA, JG 



FJ, JG 



FL, JG 



The program is canceled 

(ERR20) if: 

1 . Supervisor was generated 

without user PC routine 

option. 

2. The user has not 
previously supplied the 
address of a PC routine 
by issuing a STXIT PC 
macro. 

3. The user has specified an invalid save area. 

4. The program check occurs while a B -Transient is in 
operation. 

5. The program check occurs while the user's PC routine is 
in operation (routine in use). 

To exit to the user's PC routine: 

1 . Save the PC old PSW and problem program general 
registers in the user -supplied save area (72 bytes). 

2. Store the address of the user PC routine in the PC 
old PSW. 

3. Branch to general exit EXT03 (EXT04 for MICR). 

The user's PC routine will be executed when this 
task is selected in the general exit routine. Return from 
the user's PC routine must be with an EXIT PC macro. 
See Figure 13 for PC option tables. 




GENERAL EXIT 



GENERAL CANCEL 
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Chart 03. SVC Interrupt Processor, General Cancel, and Fetch 



SVC INTERRUPT 



6 



CHANNEL 
SCHEDULER 



ENTSVC 



V 



SVC INTERRUPT PROCESSOR 



Charts BH, BJ, FA-FJ, FN 



Objective: Branch to the routine for processing the 
requested supervisor call. 

The SVC code Is used to index a table of SVC 
routine addresses. The table of Chart BJ contains 
the label and chart locations for all supervisor calls. 
Detailed explanations for each supervisor call can 
be found in the preceding discussion of the Supervisor 
Program. 



- SVC - 
SVC 1 - 
SVC 2- 
SVC3- 
SVC4- 
SVC5- 
SVC6- 
SVC7- 
SVC8- 
SVC9- 
SVC10 
SVC 11 
SVC 12 
SVC 13 

— SVC 14 

— SVC 15 
SVC 16 
SVC 17 
SVC 18 
SVC 19 
SVC 20 
SVC 21 

+ SVC 22 
SVC 23 
SVC 24 

- SVC 25 



Execute Channel Program. 
Fetch problem program phase. 
Fetch B-transient. — — — — 



Fetch or return from an A-transient. 
Load any phase. < 

Modify communications region. — — 
Cancel . 
Wait. 
• Transfer to user from B-transient. 
Return to B-transient after SVC 8. 

- Set Timer Interval. 

- Return from B-transient. 

- Reset 2nd Job Control switch. 

- Set 2nd Job Control switch. 

- EOJ. 

- EXCP (Ignored if CHANQ full). 

- Store users PC exit. 

- Return from users PC routine. 

- Store users IT exit. 

- Return from users IT routine. 

- Store users OC exit. 

- Return from users OC routine. 

- Seize or Release the system. 
Load phase header. . 



Store users TECB address and set timer interval. 
HALT I/O on TP devices, or on any device if 
OLTEP request. 
*SVC 26- Validate address limits. 

SVC 27- HALT I/O on T/P devices. 

SVC 28 - Return from user stacker select routine. 

SVC 29 - Return from multiple wait. 

SVC 30 - 34 - Reserved (See Chart BJ). 

SVC 35 - Holds a track. 

SVC 36 - Frees a track. 

SVC 37- Stores users AB exit. 

SVC 38 - Attaches a subtask. 

SVC 39 - Detaches a subtask. 

SVC 40 - Posts an event completion. 

SVC 41 - Dequeues a resource. 

SVC 42 - Enqueues a resource. 

SVC 43 - Updates SDR record. 

SVC 44 - Creates OBR record. 

SVC 45 - Emulator interface. 

SVC 46- OLTEP SVC. 

SVC 47 - Return from WAITF for MICR devices. 

SVC 48 - Reserved . 

SVC 49 - Reserved . 

SVC 50 - LIOCS error recovery. 

SVC 51 - Returns OLTEP phase length request. 
+ MPS only - ignored in BJF. 
* Ignored in BJF without SP. 



ERR10 
ERR1C-1E 
ERR20-27 
ERR30-33 



($$ANERRf\ 
Chart TG^ 



O- 



GENERAL CANCEL 



Charts BA to t 



Refer to Figure 36 for a table of cancel codes used by the 

Supervisor program . 

Objectives of General Cancel are: 



1 . Calculate the cancel code. 

2. Post the cancel code to the canceled program 1 s PIB. 
See Note 1 . 

3. Release the logical transient (B-transient) area, if 
it is in use by the canceled program. See Note 2. 

4. Logical I/O cancels store the canceled programs 
registers and exit to I/O Interrupt to: (1) dequeue 
the CHANQ entry, (2) attempt to reschedule the 
channel, and (3) take general exit, EXT02. Other 
cancels take general exit, EXT02. The next time 
the program to be canceled is selected on general 
exit, $$BEOJwill be fetched to cancel the program. 

Note 1 : The PIOCS error routines post the cancel code 
to the canceled program's PIB. Entry to general cancel 
for these cancels is at label ERRSET. 
Note 2 : Bit X'80' of the cancel code is set when the 
canceled program is using the B-transient area. 



FCHRT1 
FCHRT2 



FETCH SUBROUTINE 



Charts EA to ED 



b. 



Objectives: 

1 . Load a problem program phase or transient program 
from the system core image library of SYSRES or a 
private core image library to main storage. 
2. Supply the load address for a phase from the core 
image directory entry (SVC 23). The sequence of 
events to load a phase are: 

a. Determine if a Private Core Image Library is 
assigned. If phase begins with $, then search 
system core image directory first. Otherwise, 
search private core image directory first. 
Determine the disk address of the subdirectory 
where a scan of directory entries is to begin. 
$$B - LIOCS open subdirectory 
$$ - Transient subdirectory 
$ - Library routine subdirectory 
FGP- Foreground program subdirectory 
Other - Problem program subdirectory 
Scan the directory entries until a match is made 
to the user phase name. 

Note: The location where the directories are 
scanned depends on SYSGEN option IDRA. If 
IDRA = NO, the directories are loaded and 
scanned in the PTA. If IDRA = YES, the core 
image library directories are loaded and scanned 
in the IDRA. Whether PTA or IDRA, the area is 
used as an I/O area for directory blocks, ref- 
erenced by a DSECT, with eight leading bytes 
for the name of the phase called and room for 
eighteen 20-byte directory entries (one block). 
Relocate the L/E entry address if an overriding 
load address has been specified. The phase entry 
address is passed to the user via register 1 . 
Load the phase into main storage. 
For a background phase, store the end address of 
the phase in the communications region, displace- 
ment 36. 
See GY24-5017 for the format of phase directory entries 
and the format of the core image library entry. 



f. 



GENERAL 
EXIT 
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Chart 04. I/O Interrupt Processor and Channel Scheduler 



I/O INTERRUPT 
♦01,06,08,10 I * J 



*03, 09 



SVC 15, SVC00 



I/O INTERRUPT PROCESSOR 



Charts CK to CR 



I/O interrupts are caused by termination of an I/O operation or 
operator intervention on the I/O device. Each I/O interrupt is 
processed in this manner: 

1 . Find PUB for the device that causes the I/O interrupt. The device 
last started is tested first. If the device that caused the I/O inter- 
rupt is not found, an attempt is made to reschedule the channel. 
See Note 1 . When the OLTEP option is specified, exit to the OLTEP 
appendage routine, if OLTEP owns the device on which the inter- 
rupt occurred . 

2. Exit to the channel appendage routine if gJJ of the following con- 
ditions exist: 

a. Supervisor has been generated with teleprocessing option 
(TP=BTAM). 

b. The device causing the I/O interrupt has I/O pending 
(CHANQ pointer is not X'FF'). 

c. The user has specified an appendage routine address in the 
CCB. 

d. The program has a flag on in its PIB indicating an appendage 
routine address in the CCB is allowed. 

3. Evaluate CSW. Refer to Figure 42 for CSW testing on an I/O 
interrupt. 

4. If status is attention from a 1052 the attention routine PIB flag is 
posted to include the attention routine in task selection and 
general exit, EXT03, is taken. 

5. If the device status indicates that the channel program has been 
successfully completed: 

a. Post traffic bit in the CCB. 

b. Dequeue the CHANQ entry if device end posting was not 
requested. (See Figure 17 for format of the CHANQ table.) 

c. Exit to START I/O for MPX devices with more I/O pending. 

d. For other than MPX devices, attempt to re-schedule the 
channel. See Note 1. ^ 

6. In event of channel failure, go to CHFAIL. 

Note 1 : Reschedule the channel, with MPS : The PUBs in the 

channel list are scanned, beginning with the PUB following the last 
one started, and the first one with I/O pending will be the next PUB 
started. If the end of the channel list is reached, the scan continues 
from the first PUB in the channel list. If no I/O is pending in the 
channel go to the general exit routine. 

This method is used to insure the sharing of the channel between 
programs when operating in multiprogramming and is referred to as 
a rotating PUB scan. 

Reschedule the channel, batch only : Same as with MPS except the 
channel list is always scanned beginning with the first PUB in the 
channel list (FOCL). 



UNIT CHECK 




m. 



08, 09 



r£ 



CHFAIL 



CHANNEL SCHEDULER 



Charts CA to CD 



SVC and SVC 15: The objective of the channel scheduler is to build 
an entry for the channel program in the CHANQ, LIBID, and REQID 
tables. Refer to Figure 32 for a sample of a device queue in the 
CHANQ table. Refer to Figure 17 for the format of the CHANQ, 
LUBID, and REQID tables. Refer to Figure 32 for the format of the 
CCB (channel command block). Refer to Figure 22 for the format of 
the Console Buffering table. 

Communications and status bytes 2 through 6 of the CCB are 
reset before making the CHANQ entry. 

Linkage to the Console Buffering routine (Charts FP? FQ) is made 
if CBF option is specified at system generation and request is to 
SYSLOG where SYSLOG is a 1052. 

Exit from channel scheduler is to START I/O if: 

1 . This I/O request for the device is the first in queue (CHANQ 
pointer in the PUB contained the null code, X'FF') and 

2. This device is not busy (busy flag in the PUB is reset). 

If the above conditions are not met, general exit, EXT01 , is 
taken. If channel failure occurs, exit to CHFAIL. 




SYSIPT, SYSRDR, SYSPCH, and SYSLST are System I/O files. Before 

a start I/O is issued to these files, the search address in the user CCW 

chain is checked against the current address in the DIB. Refer to 

Figure 12 for the format of the DIB tables. 

DASD File Protect: Extent information must be present in the J IBs 

for all files assigned to a disk or 2321 (data cell) except system 

I/O files assigned to a disk and SYSRES. Any access to DASD 

file must fall within the extents specified in the J IBs. Refer 

to Figure 19 for the format of the J IBs. 

OLTEP Option: When OLTEP is specified, bypass channel switching 

and CCW modification. After issuing the SIO to an OLTEP- owned 

device, enter the OLTEP appendage routine with the condition code. 

If the device is a 2955 and the requesting program is not OLTEP, the 

program is canceled. 

Start I/O: If the device is burst-multiplex, but the channel is 

presently operating in burst-multiplex mode, take general exit, 

EXT01 . An SIO command is issued to start the device, if the 

channel is available. The alternate channel is tested if the 

device is switchable. Before using the SIO command, the correct 

CCW address must be set in the CAW. 

1 . For 7- track tape, CAW = set mode CCW. 

2. For SYSLOG, CAW = Prefix ID CCW. 

3. For DASD file protected devices, CAW equals CCW- chain in 
the supervisor, which TIC's to the user's chain. 

4. For all others, CAW = CCW specified by CCB. If SDR is 
supported, the SDR internal counters are updated by a branch to 
the SDRXIO routine. See Chart 10. 

If the device receives a normal start (condition code 8 set on SIO) 

post the device busy flag in the PUB and take general exit, 

EXT01 

If channel failure occurs, exit to CHFAIL. 



O 







%> 



CHFAIL 



GENERAL EXIT 
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Chart 05. External Interrupt Routines 



SIGNAL 



EXTERNAL INTERRUPT, SIGNAL 



The signal interrupt is ignored if 
MICR devices are not supported or 
if the Supervisor was generated 
without IT or OC options. 
1 



2. 



3. 



OPTION 



No IT 
or OC 



With IT 
or OC 



CHART 



BF- BG 
JA- JF 



FL- FM 
JA- JF 



Determine the state of the 
system at interrupt time: All 

bound (MPS only), problem program, or Supervisor. 
Depending on the system state and on the option(s) 
specified, save the PSW and/or registers in designated 
areas and/or load a base register. 
Locate the DTF table for the device causing the 
interrupt. See Figure 10 for tables PDTABA (DTF 
pointers) and PDTABB (DTF addresses). From the 
DTF table, get the channel and unit number of 
the MICR type device and data concerning the 
record in the buffer and the stacker select routine. 
Issue a TIO to clear the pending interrupt. If any error 
conditions are detected, branch to the TIO error 
recovery routine for 1412/1419/1270/1275 or for 
1419D. If an off- line sort is requested with 1419D, 
the subsequent SIO will be bypassed. 

4. After a successful TIO has been completed, update 
record and buffer data, prepare CCWs, and exit to the 
user stacker select routine to get the pocket selection 
for the last document read. 

5. The Supervisor is reentered via an EXIT (MR) macro. 
Prepare CCWs and buffer for batch numbering and/or 
auto select, if required. 

6. Issue an SI O to stack the document. If any error 
conditions are detected, branch to the SIO error 
recovery routine for 1412/1419/1270/1275 or for 
1419D. Otherwise, activate the branch at EXT04 

if task selection is necessary. If more than one MICR 
type device interrupted simultaneously, process these 
interrupts beginning at step 2 above. 

7. Check for IT or OC interrupts that may have occurred 
with the MICR interrupt: 

Timer Interrupt - Update the time of day and set timer 
to a minimum value so that it will interrupt again 
without any other status. It will then be processed as 
described in the Timer Interrupt block. 
Key Interrupt - Process immediately as described in the 
Key Interrupt block. 

8. Exit from this interrupt routine depending on the system 
state when the interrupt occurred: 

a. All bound (MPS only)- Load the external interrupt 
old PSW to enter wait state, first performing task 
selection if required. 

Supervisor- Restore registers and load the external 
interrupt old PSW to enter the wait state. 
Problem Program- Branch to general exit (EXT04) to 
perform task selection or to return to interrupted 
program. 



b. 




TIMER 



KEY 



EXTERNAL INTERRUPT, TIMER 



OPTION 



No IT 
or OC 



With 
IT or OC 



CHART 



BF - BG 



FL- FM 



The timer (SYSTIMER) is 
reset to its maximum value 
(X'FFFFFFFF')and the system 
time of day (SYSTOD) is 
updated to the time that the 
next timer interrupt will occur 
(current time +15.5 hours). 
Note: Current time of day is calculated by subtracting the 
remaining interval (SYSTIMER) from SYSTOD. 
The timer interrupt is ignored if: 

1 . Supervisor was generated without interval timer feature 

option . 

2 . The timer supported program has been canceled . 

3. The timer interrupt occurred while the user's IT routine 

was in operation (routine in use). 
With User TECB Address: The traffic bit is posted in the 
user's TECB (timer event control block) and the timer sup- 
ported program is included in task selection. The TECB 
address is cleared in the IT option table. 
With User IT Routine: To exit to the user's IT routine: 



1 . Save the external old PSW and timer -supported - program 
registers in the user -supplied save area (72 bytes). 

2. Store the address of the user IT routine in the external 
old PSW. 

3. Branch to general exit (EXT03). 

The user IT routine will be executed when this task is 
selected in the general exit routine. Return from the user's 
IT routine must be with an EXIT IT macro. 

See Figure 13 for the IT option table. Refer to Figure 
37 for the format of the CCB (TECB has the same format as 
the CCB. Only the traffic bit X'80' in byte 2 is used). 
Note: If a B-transient is operating for the timer 



supported program when the timer interrupt occurs for a user 
IT routine, the exit is deferred. The attention routine PIB 
is posted to include the attention routine in task selection 
when the B-transient area is released. A switch (ITBRC) is 
set in the resident attention routine to continue timer inter- 
rupt processing when the attention task is selected on 
general exit. 



EXTERNAL INTERRUPT, KEY 



No IT 
or OC 



BF-BG 



FL- FM 



The attention routine PIB is 

posted to include the attention 

routine in task selection. The 

nonresident attention 

routine ($$BATTNA) processes 

the request when the attention 

task is selected in general exit. 

Note: If supervisor was generated without user OC 

(operator communications) routine option, the interrupt is 

ignored . 



OPTION 



With 
IT or OC 



CHART 



-*--< 



(31 



GENERAL EXIT 
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Chart 06. Unit Check and Resident ERP Routines 



UNTCKl 
UNTCK2 



UNIT CHECK 



Charts DA to DB 



Determine the action to be taken 
for the following error conditions: 

• Unit check 

• Channel data or channel chaining 
check 

• Program check or protection check 
User Unit Check Routine: Post the 
unrecoverable error flag (bit 18) in the 
CCB and return to the I/O interrupt 
routine to continue testing the CSW 
(this error is ignored by PIOCS). 

No User Unit Check Routine: Build 

a 22 byte error queue entry in the 

error queue table. The error queue 

table is 3 entries long (5 entries when SP=YES); 

an attempt to build more than the appropriate 

3 or 5 entries causes a cancel condition 

(ERR31). Refer to Figure 43 for the format 

of an error queue entry. 

Exits from Unit Check: 

• Disk device; exit to Resident 
Disk Error Recovery. 

• Channel 9 overflow on printer; 
post channel 9 overflow to CCB 
and take ignore exit (EXIGN). 

• All other conditions; exit to 
fetch the ERP monitor (EXTRAN) 
where the Quiesce I/O Task will 
be included in task selection 

on general exit (EXT03). 



RESERR 




OTHER 



RESIDENT DISK ERj*OR RECOVERY Charts GA to GB 



Objectives: 

1. Analyze the sense information 
and the CSW stored in the 1st 
entry in the error queue table. 

2. Determine and execute the disk 
error recovery procedure, and 
then choose one of the error 
recovery procedure exits. 
Refer to Figure 45 for disk 

sense information and to Figure 43 
for the format of an error queue 
entry. 



V 



11,13,14 



ERP EXITS 



ERROR RECOVERY PROCEDURE EXITS 

Charts DC to DF, FG 



EXTRAN : Includes Quiesce I/O task in task 

selection and returns to I/O Interrupt 

to attempt to reschedule the channel . 

Initiates procedure for fetching the 

ERP monitor ($$ANERRA). 

RCVERR : Same action as EXTRAN exit. 

See EXTRAN. 

EXCAN : Cancel code has already been 

set in the PIB by the PIOCS error 

recovery procedure. Releases the 

B-transient area, if the canceled 

program was using the B-transient area. 

EXT01 is taken. 

Note: This exit returns to the physical 

transient. 

EXIGN : Restore the CSW from the error 

queue entry and dequeue the error queue 

entry. Return to I/O Interrupt and 

continue evaluating the CSW. 

EXWHY : Retry the user's channel program 

starting with the CCW in error. Dequeue 

the error queue entry. Return to I/O 

Interrupt and reevaluate the CSW. 

EXRTY : Same action as EXIGN if the retry 

flag is not set in the error queue entry. 

If the retry flag is set, dequeue the 

error queue entry and return to I/O 

Interrupt to reschedule the channel. 
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Chart 07. Quiesce I/O, Channel Failure, and Machine Check Interrupt Routines 



CHFAIL 



CHFAIL 




SYSTEM/36CT 

or 
SYSTEM/370,, 

SYSTEM/360 



SYSTEM/370 




CHANNEL FAILURE 



Chart DF 



If MCRR is supported and a first channel failure 
occurs, exit to MCRR routine. — - — — — 



If a channel failure occurs and MCRR is not 
supported, or a second channel failure occurs 
with MCRR support, move the system error code 
to low core and the SEREP code to the machine 
check new PSW. Load a PSW to enter the wait 
state. 



MCRRRTN 



( LPSW "\ 

V Wait State J 



MACHEK 



MACHEK 




SYSTEM/370 



SYSTEM/360 



08 
MACHEK 



MACHINE CHECK 
INTERRUPT 



Charts DG-DH 



If MCRR option is present, general purpose 
register parities are saved in the diagnose area 
for the CPU Model 50. All CPU models exit 
to MCRR routine. — 



If no MCRR option or machine check while 
MCRR is processing, load a PSW to enter the 
wait state. 



MCRRRTN 



( LPSW *\ 

V Wait State ) 



QUISIO 



QUIESCE I/O TASK 



Chart DH 



If SDR is supported, branch to the SDR test _ 
routine to determine if SDR counter or record 
update is required. If neither is required, return 
to the main routine. 

Quiesce I/O PIB remains in the task selection 
until all entries in the error queue have been 
processed. Only one error queue entry is 
processed by ERP (Error Recovery Procedure) 
A-Transients at a time. 

If called by OBI^SDR routine, exit to OBf^/SDR 
writer. If OBI^SDR is supported, call SDR list 
passer. 

When the error queue table is empty (5 entries 
are maximum), Quiesce I/O task is removed 
from task selection at general exit. 







$$ANERRA 
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Chart 08. RMS Resident Machine Check Handler 



MACHEK 



Resident Machine Check Handler 



Chart HA 



Severity detect routine for machine checks. It records failures and categorizes 
errors in four classes: 

1 . System damage bit on in MCIC, AMWP bits in Machine Check Old PSW 
invalid; processing damage to privileged code. 



Action: Give hard wait message and terminate system. . 



2. Processing damage affected nonprivileged coding; Machine Check Old 
PSW not completely valid. 



Action: Cancel damaged task and exit to EXT02. ■—»-——■— 

3. Soft machine check; occurred in privileged code. 

Action: Schedule recovery report and return to interrupted code via old 
PSW. 



4. Soft machine check; occurred in nonprivileged code. 
Action: Schedule recovery report and exit to EXT02. 



(Load Machine A 
Check Old PSW J 



01 
EXT02 



CCDASDE 



DASD CCH 



Chart HH 



Retry CCW chain 10 times. 

Failure in privileged coding; take emergency exit EMGEX8. 
Failure in nonprivileged coding; cancel task and take EXT01 . 
Success in retry; issue soft CC operator message. 



I/O INTERRUPT EXT01 



EMGEX1-9 



Resident Machine Check Handler 



Chart HA 



Emergency exits EMGEX1 to EMGEX9. 

Determine error code and post in low core for SEREP. Post 
emergency exit bit and prepare to go to $$RAST00 via RAS 
Monitor. 



$$RAST00 in RTA now? 
YES 



NO 



^ 



EMGENT 



^ 



CALLO 
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Chart 09. RMS Resident Channel Check Handler and RAS Monitor 



(See Entry points) 




Resident Channel Check Handler 



Charts HD- HG 



Determines severity of channel check, sets flag to indicate R- 
transient recording and retry operations. 

• Considers errors not isolated to a device as channel 
damage; creates ERPIB showing damaged channel, CSW, 
ECSW for analysis by R-transients. 

• Fills entire ERPIB for errors isolated to a device. 

• DASD device channel check. — — — — «— — — — — — ■ 



When RTA has active I/O request, resident CCH intercepts all 
interrupts to determine source. Interrupts originated by RTA are 
processed here. All other interrupts are passed on to supervisor 
for normal handling. 

Entry points: 

CCENTRY1 - Initial detection of channel check 

CCENTRY2 - Interrupt entry for active RTA 

CCENTRY3 - Channel check received at SIO time on CC 
retry request 

RASDEQ - R-transient dequeuing a CCB 

Exit points: 

CHNOK1 - to initialize channel scheduler registers ' 

NOTRTA - to supervisor interrupt routine ■ i ■ < < 

NRTASIO - return to SIO routine 



EMGEX1-5 - to hard wait emergency exit < 



via link reg 7 - channel check on error SIO exit 

via link reg 8 - to RTA after dequeue operation performed « 

via link reg 9 - to task selection 



CCDASDE 



( 



Current RTA 
transient 



J 



( Return to RTA J 



08 
EMGEX1-5 



(Return to ^N 

R-transient J 



C 



(See Entry points) 



RAS Monitor 



Charts HB - HC 



The RAS Monitor interfaces the RTA and the supervisor. 

• Schedules I/O requests from the RTA and returns 
control there when I/O request if complete. 

• Fetches R-transients,' using the RAS table (RASTAB, see 
Figure 60) to obtain an absolute seek address on SYSRES. 

• In emergencies, bypasses normal I/O request; the super- 
visor error SIO routine performs I/O requests for R- 
transients. 



Exit points: 

'EXCP6 - schedules I/O requests with supervisor 
— RTA +10 - entry point into R-transient 



EMGEX8 - unrecoverable error on R-transient fetch request. 

via link reg 7 - return to RTA 

mmm via link reg 9 - return to supervisor 

Entry points: 

RASUPR - from supervisor general exits when RMS is active 

EMGENT - from emergency exits when $$RAST00 is in RTA; 
go to execute 

CALLO - from emergency exits when $$RAST00 is not in RTA; 
fetch phase 

CALLRTA - from R-transients fetching another phase into RTA 

RASIOR - from R-transients requesting I/O operation 

Note: RAS Monitor active only after System/370 machine or chan- 
nel check. It remains active until all functions have been com- 
pleted by RTA. 




Return 
Supervi 



isor J 
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Chart 10. MCRR and OBR/SDR Routines 



MCRRRTN 




MCRR Routines 



Charts KA to KJ 



CHN ERROR -Bui Ids a model dependent channel 
inboard error record, cancels the damaged task and 
exits to the record writer routine . 
MCREND02 -Writes the CIB record and exits to 
general cancel if the supervisor is the damaged task . 
MCRRCPU - Builds and writes the records for CPU 
failure and cancels the damaged tasks. 
MCRECOVR - Readies the system for the next machine 
check interrupt and, of channel damage, goes to 
general exit. If CPU damage, exits to I/O interrupt. 




I/O INTERRUPT 



EXT02 




'07, 13 



OBR/SDR UPDATE ROUTINES 



Charts LA to LG 



SDRMM - Entered from OBR/SDR A -Transients as 

interface to system writer ($$ANERAB) TP transient 

($$ANERAH), task selection or if MCRR write 

request, as return to MCRR routine. 

SDRXIO - Schedules SDR update of internal counters 

after a start I/O sequence . 

SDR2QT - Tests SDR error queue, exits to proper SDR 

update routine or returns to quiesce I/O routine . 

SDR2 -Updates SDR half- byte counters based upon 

accumulated error conditions and schedules recorder 

file update . 

SDR23 - Gathers in a common area SDR record update 

information and calls SDR writer ($$ANERAC). 

SDR1 -Uses tne SDR list passed by resident ERP to 

accumulate errors. 

SDROBRW - Cal Is SDR writer ($$AN ERAC ) or OBR/ 

MCRR writer ($$ANERAA). 

SDROBR, SDRSDR -A routine to gather in a common 

area information required to update an OBR/SDR 

record as a result of an SVC43 or SVC 44. Exits to 

general exit. See Supervisor Call Interrupt 

(SVC) section . 
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Chart 11. Physical Transients (Part 1 of 4) 



NOTE: 



SSANERAD 



LIST PASSER 



Chart NK 



SDR list passer checks device type for I/O device that corresponds to the 
current error and passes a list associated with that device to the SDR table. 
The list is a string of constants that map into some or all of the 16 counters 
maintained by OBR/SDR support . 




Error Recovery procedures con- 
sist of analyzing the CSW and 
sense data bytes that have been 
stored in ERQUE (error queue 
entry), identifying the error, 
and inserting the selected 
message code in ERQUE. 
Selected error bits are posted 
in CCB bytes 2 and 3. Under 
certain conditions, a retry is 
made, or an error is ignored, 
and bits are posted in the 
ERQUE flag byte. Further 
information can be found in 
Figure 43. 



SSANERR9 



SSANERRA- SSANERRC >' 



OPTICAL READER 
ERP 



Charts UA, UB 



Optical reader error recovery consists 
of one A - transient program that deter 
mines the type of error and exits for 
retry or ignore on certain errors for 
the 1285, 1287 or the 1288. 



SSANERRU - SSANERRV 



UNIT RECORD 
ERP 



Charts SB - SE 



Unit record error recovery consists of 
two A - transient programs: 

1. SSANERRU (Phase 1)- Check for 
unsupported devices and cannot- 
occur conditions, perform ERP for 
channel data check and 1052. 

2. SSANERRV (Phase 2) - Perform ERP 
for 1403, 1442, 1443, 2501, 2520, 
and 2540. 



SSANERRG - SSANERRK >r 



NO 



Tape ERP 



ERROR RECOVERY PROCEDURE 
MONITOR 



Charts NL-NN 



The ERP monitor consists of three A-transient programs 

programs: 

1 . SSANERRA - Determine device type and fetch 
and correct A-transient to perform 

SSANERRC ERP*. If device type cannot be 
determined, insert the required 
message code, turn off the retry 
and ignore bits in the error queue 
flag byte, and fetch SSANERRM. 
If device type is disk, begin identi- 
fication of unrecoverable errors and 
continue to SSANERRB. 

2. SSANERRB - Continue identification of disk un- 
recoverable errors and perform ERP 
for errors detected. 

* A- transients are fetched for devices other 
than disk: 



Optical Reader 
■Unit Record 
Data Cell 



TCR 



Paper Tape ■ 
MICR- 
3211 ■ 



DATA CELL ERP 



Charts QA - QH 



Data cell error recovery consists of five A - transient 

programs: 

1 . SSANERRG (Phase 1) - Determine type of error 
and perform ERP for channel data check, equip- 
ment check, command reject, intervention re- 
quired, overrun, end of cylinder, chaining check 
and file protect. Fetch SSANERRH - SSANERRJ 
for other error conditions as indicated. 

2. SSANERRH (Phase 2) - Perform ERP for track con- 
dition check. 

3. SSANERRI (Phase 3) - Perform ERP for data check 
and missing address marker. If 226 retries are 
exceeded, fetch SSANERRK. 

4. SSANERRJ (Phase 4) - Perform ERP for no- record- 
found and seek check. 

5. SSANERRK (Phase 5)- Complete ERP for data 
check and missing address marker. 







SSANERRT, 
SSANERRW 



SSANERSA 
SSANERR6- SSANERR8 



TAPE CARTRIDGE 
READER ERP 



Charts UC - UF 



Tape cartridge reader error recovery consists of three 
A-transient programs: 

1 . SSANERR6 (Phase 1 ) - Determine type of error 
and perform ERP for program check, protection 
check, equipment check, channel data check, 
busout check, or an undetermined error. Fetch 
SSANERR7forall others. 

2. SSANERR7 (Phase 2) - Perform ERP for intervention 
required, command reject, or an undetermined 
error. Perform error classification for position 
check and data check. If less than 10 retries 

are attempted, fetch SSANERR8. 

3. SSANERR8 (Phase 3) - Perform I/O command to 
recover from a position check or data check 
failure. 




ERP Exits 
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Chart 12. Physical Transients (Part 2 of 4) 



SSANERSA 



SSANERSB 



3211 Printer ERP (Phase 1) 



Charts UK - UN 



1 . Test for the following conditions: 

• Buffer parity error, with no user CCB available 
or with an available user CCB but no passbook 
desired; or 

• Equipment check error with command retry 
desired and no user CCB available. 



— If either condition is met, exit to SSANERSB. 

2. Test for busout check or equipment check with 
command retry and the CCB is available. If 
either condition is met, exit to the Supervisor 
retry routine (EXRTY). 

3. Post appropriate error message for any of the 
following errors: 

• Channel data check 

• Equipment check 

• Data check 

• Buffer parity 

• Intervention required 

• Command reject 

• Load check 

• Undetermined error 



3211 Printer ERP (Phase 2) 



Chart UP 



Issue skip to channel to clear control unit. 
If channel queue is not full and no I/O error 

has occurred, exit. 
Otherwise, set appropriate message code and 

exit. 



£) 



$$ANERRM 



$$ANERSC 



3211 OBR Record Builder 



Charts UQ-UR 



1 . Format standard 321 1 OBR record 

2. If equipment check with print line buffer parity error or with print 
check, or data check with print check, continue to 3; otherwise, exit ' 

3. Examine print line. Save print position number and contents if a 
print error has occurred (statistics for up to eight errors are saved) . ■■ 



SSANERRT 
SSANERRW 



MICR ERP 



Charts SA, SF-SH 



Magnetic Ink Character Recognition and Optical 
Reader/Sorter devices ERP consist of two 
A- transient programs: 

1. SSANERRT: Check for cannot-occur 
conditions, determine error type, and 
perform ERP for single address adapter 
type devices. 

2. SSANERRW: Check for cannot-occur 
conditions, determine error type, and 
perform ERP for dual address adapter type 
devices. The ERP distinguishes between 
primary and secondary control units and 
between stacker select and pocket light 
command codes. 



ERP Exit SSANERRX 



2671 Paper Tape ERP 



Charts SJ, SK 



Paper tape ERP A -transient determines the error 
type and exits for one retry on certain errors 
before fetching the message writer. 



SSANERAI 
S SANE RAJ 



1017/1018 Paper Tape ERP 



Charts UG-UJ 



Paper Tape ERP consists of two A -transients to 
determine error type and to exit for retries on 
certain errors before fetching the message writer. 



^ 



SSANERAA 
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Chart 13. Physical Transients (Part 3 of 4) 



Tape ERP 



Charts PA - PX 



$$ANERRD (Phase 1) - Determine type of error and schedule appropriate 
phase to handle the error. Continue at $$ANERRF, 
$$ANERAM, $$ANERAP, $$ANERRE, or $$ANERAS, 
depending on error identification. 

$$ANERRE (Phase 2) - Perform ERP for read data check. Fetch $$ANERRL 
when an error occurs during repositioning. Fetch 
$$ANERAS after a specified number of read tries 
to initiate read opposite recovery. 

$$ANERRF (Phase 3) - Perform ERP for chaining check, equipment check, 
bus out check, intervention required, command re- 
ject, overrun, and channel data check. Fetch 
$$ANERRL when an error occurs during repositioning. 
Fetch $$ANERAM if the error is not one of the above, 

$$ANERRL (Phase 4) - Perform ERP for data check, equipment check, and 
bus out during tape repositioning. For other errors, 
fetch $$ANERAN. 

$$ANERAM (Phase 5) - Perform ERP for load point, data converter check, 
and not capable. Fetch $$ANERRA for program or 
protection check. 

$$ANERAN (Phase 6) - Perform ERP for bus out check, intervention re- 
quired, command reject, overrun, and load point 
when they occur during repositioning. Fetch 
$$ANERRL for recovery from errors that occur 
during recovery. 

$$ANERAP (Phase 7) - Perform ERP for write data check, write tapemark 
data check, and erase record gap. Initialized 
read -opposite recovery. 

$$ANERAQ and $$ANERAK (Phases 8 and 9) - Position and read opposite 
until recovery or permanent read data check or 
until an equipment exit is required. 

$$ANERAL (Phase 10)- Handles tape cleaner and load point encounters 
when they occur during read opposite recovery. 

$$ANERAR (Phase 11)- Outputs Error Volume Analysis message to operator 
at console. 

$$ANERAS (Phase 12)- Initializes Read Opposite Recovery. If 7- track 
tape with Data Converter Mode set is used, the 
ERP cancels as a data check. 



SSANERAC 




SDR COUNTER UPDATE 



Charts NE, NF 



Reads the disk record for a particular device into core from the recorder 
file. Accumulates the in -core counters for that device into the 2 -byte 
counters from the disk and writes the new updated record back onto the 
recorder file. 




V 



O 



$$ANERRM 



RECORD BUILDER 



Charts NA, NB 



If not, 



Determine if OBR record is to be built. 

fetches $$ANERAB. 

Builds a formatted OBR record to be put on the 
recorder file by $$ANERAA. 




10, 12 



RECORD WRITER 



Charts NC, ND 



Writes the OBR or MCRR record at a disk address 
designated by save area in the SDR communica- 
tions region. In the event of an error while re- 
cording, exits to $$ANERAF. 




NO 



G> 



$$ANERAF, $$ANERAGw 



YES 



ORB/SDR MESSAGE WRITER Charts NG - NJ 



OBR/SDR message writer consists of two 
A- transients: 

1 . $$ANERAF - Uses error message displace- 

ment left in the SDR com- 
munications region by the 
OBR/SDR recorder phases. A 
branch vector table points to 
various message routines which 
build and write error messages 
or SYSLOG. 

2. SSANERAG- Builds and writes an error 

message on SYSLOG. Exits 
to SDRMM . 



$ 



$$ANERAB 



^ 



SDRMM 
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Chart 14. Physical Transients (Part 4 of 4) 



$$ANERAB 



$$ANERRP 



MESSAGE WRITER (Phase 1) 



Chart RA 



Analyzes message code in Error Queue entry for device in error. Selects 
appropriate 10- byte message and obtains CCB address - both are stored 
in save area for use by subsequent phases. 



$$ANERRN 



MESSAGE WRITER (Phase 2) 



Chart RB 



Continues preparation of message: 

Prepares ACTION field (action, information, or decision), TARG1 field 
(ignore or cancel), and TARG2 field (retry). TARG1 and/or TARG 2 fields 
may be blank, depending on what options are to be taken. 

$$ANERRS is called if an action type message and device is not busy; 
otherwise $$ANERAE is called. 



$$ANERAE 




MESSAGE WRITER (Phase 2A) 



Chart RC 



Either item 1 or 2 is performed: 
1 . No CCB available - 
Device is 

a . Used by supervisor • 



b . Shared by 2 partitions: 

set ACTIONS, TARG1=I, TARG2=K 

c. Assigned to only one partition: 

set partition id field =BG, F2, or Fl, and if subtask PIBs 
are found in same partition set ACTION=l,TARGl =1, 

and TARG2=K 

CCB Available - 

Get storage protect key and move partition ID to print area. 



$$ANERRO 




NO 




MESSAGE WRITER (Phase 3) 



Chart RD 



Prepares and saves message information about: 

1. Symbolic name of device, e.g ., SYSRDR or SYS001; 

2. CSW; 

3. Sense Byte Data; 

4. Channel and Unit Number of device; 

5. Seek address at error time if DASD . 



YES 



© 







MESSAGE WRITER (Phase 4) 



Charts RE, RF 



Prints error message containing information gathered and saved from pre- 
vious phases; prints on 1052 or printer. If an error occurs on SYSLOG 
while printing the message, up to three retries are made. The next phase 
to be fetched is determined as a result of one or more conditions: 

• No error on SYSLOG, decision message. ^ 

• No error on SYSLOG, action message and SYSLOG 
printer. 

• Error on SYSLOG, decision or information message, 
and SYSLOG error does not persist after retry. 

• Error on SYSLOG, decision or information message, 
and SYSLOG error persists after 3 retries. 

• No error on SYSLOG, information message 

• No error on SYSLOG, action message and SYSLOG 
is a 1052. 

• Error on SYSLOG, action message and error persists 
after third retry. 



[fetch 
r$$ANERRQ 

fetch 
$$ANERRR 

' fetch 

> $$ANERRS 







$$ANERRQ 




MESSAGE WRITER (Phase 5) 



Charts RG, RH 



Analyzes operator's response to message and turns on appropriate flags for 
use of phase S. Receives operator's response via the 1052 keyboard. 
However, if operator responds incorrectly, the message "OPNND 
INVALID RESPONSE" is printed and phase R is called. 



$$ANERRR 




YES 



MESSAGE WRITER (Phase 6) 



Chart RJ 



If a system -to -operator message could not be printed on SYSLOG for 

any of several possible reasons, the console is used to communicate with 

the operator. Information is stored for console display as follows: 

Byte - message number 

Byte 1 - Action character (A or D) 

Bytes 2 and 3 - Channel and unit number of error device. 

The system is put in a wait state pending operator's response. Option 
flags are set for use in Phase 7. 



$$ANERRS 







MESSAGE WRITER (Phase 7) 



Charts RK,RL 



Analyzes the External Option Flags set by the operator's response and 

chooses the appropriate exit to Cancel, Retry, or Ignore. Here is a 

sample format of the error messages: 

BG 0P18I- C COMM REJCT SYS003 = 191 

CCSW = XXXXXXXXXXXXXXXXXX SNS = 

XXXXXXXXXXXX CCB =XXXXXX SK = 

BBBBCCCCHHHH 
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Chart 15. Physical Attention Transients 



m 



$$ANERRZ 







$$ANERRY 



PHYSICAL ATTENTION 



Charts TC, TD 



This physical transient is used to perform tests whose 
results determine which A or B-transient is required 
for further processing of the attention interrupt. 
1. If 5YSLOG is not a 1052 -exit. 



2. Scan the PUB (Physical Unit Block) for devices 
requiring operator intervention. 

a. Store the program interrupt key (PIK) of the pro- 
gram that owns the device requiring operator in- 
tervention in the interphase communication area 
(PARCOMM), and store the channel and unit 
address of the device in CUUSAVE- exit 

b. If no operator intervention is required, 
and if the attention request switch is 
ON, exit 



If no operator intervention is required, 
and the attention request switch is 
OFF, exit- 



3. If this phase is entered with the attention 
recall switch ON, the supervisor routines are 
used to cancel the program and dequeue the 
channel queue. These routines are entered via a 
SVC 3 to EXCAN and PUBDEQ, after which 
control returns to this A-transient line. 



PHYSICAL ATTENTION 



Charts TA, TB 



1 . Send the message: 

AR 0P60D INTERV REQ xx CUU=xyy 

AR (Response Fits Here.) 

where xx if Fl , F2, or BG and xyy is the channel 

number and physical address of the device. 
2. Read the operator response which is either 

CANCEL or IGNORE. 

a. CANCEL response: Turn ON the physical 

attention recall switch, exit 



b. 



IGNORE response and the attention 
request switch ON, exit • 




IGNORE response and the attention 
request switch OFF: Turn the attention 
request switch ON, exit below. 



'SVC3 to Exit to Task \ 
Selection in the General 1 
Exit EXT02 (Chart 01) J 



9 



Issue a SVC3 to enter the task selection 
mechanism of the supervisor program. These 
conditions are present: 

• RF contains the address of the general exit 
(EXT02). 

• Byte 7 of the phase name in ERBLOC has been 
modified to Hex 01 to signify return from 
physical attention transient. 

• The PTA fetch flag has been turned off making 
the logical attention routine eligible for 
selection when the logical transient area 
becomes available. 



SVC 3 FETCH 
$$BATTNA VIA 
EXT02 Task Selection 



See Logical Transients 
PLM, GY24-5152 











/sVC3Fe7clT\ 
^$$ANERRZ J 







SVC3 Fetch 
$$ANERR0 



$$ANERR0 



) 



PHYSICAL ATTENTION 



Charts TE, TF 



1. 



2. 



Send the message: 

ARb_U40D_ J£QUEST CANCEL 

ARb (Response Fits Here.) 

Read the operator response: 

a. Valid responses: 

CANCEL bbb (cancel background programs) 
CANCEL Fl (cancel foreground 1) 
CANCEL F2 (cancel foreground 2) 
CANCEL BG (cancel background) 

b. Invalid response (other than those listed 
above), send the message: 

ARb ISO/U D INVALID STATEMENT 



ARb (Response Fits Here. ) 

3. Set the cancel code in the PIB indicated by 
the response. 

4. Cancel the program with the supervisor ATNCNL 
routine. Enter the routine by issuing a SVC3. 
Control is returned to this A-transient when 

the SVC old PSW is loaded by the supervisor. 

5. Final exit from this transient is to the supervisor 
task selection mechanism after these 
conditions are set: 

• RF contains the address of the general 
exit (EXT02). 

• Byte 7 of the phase name in ERBLOC has been 
modified to Hex 01 to signify return from 
physical attention routine. 

NOTE: Emergency cancel signaled by 2 consecutive 
attention requests. 



'SVC3 to Exit to Task \ 

Selection in the General) 

vExit Routine (Chart 01 )J 
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Chart AA. $$A$SUP1 - SUPVR Macro, General Entry 
Refer to Chart 01. 



♦•••Bl»«»»**«»» 
« EXTERNAL 
• INTERRUPT 



CI •. 




.* TIMER •. 




♦FEATURE OR • 


NO 


USER INTRPT 


• • .. . 


•. KEY RTN .• 




• . »E1 .* 




• • .♦ 


X 


• YES 


• •••• 




• BG • 




• A3* 


X 


• • 


• ••»• 




• FL * 


ENTEXT 


• A2* 





* r SUPERVISOR • 

• CALL • 

• INTERRUPT » 



X 

• BH • 
» Al» 



• El 

SUPERVISOR GENERATION 
OPTIONS FOR ROUTING 
IN FLOWCHARTS. 



MACHINE 

CHECK 

INTERRUPT 



»«B5**»»*«* 

I/O 

INTERRUPT 



• •••* 

• BF ♦ 

• Al» 



• 


USER 


• 


NO 


PROG CHECK 




». . . . 


• 


. ROUTINE 
». «E1 .• 


* 


• 




• • .* 




X 




• YES 




• ••*• 








• BA • 

• B4» 

• • 
m 




X 
D3***». 




ENTPCK 










* • 






• 


STORAGE 


• . 


YES 




PROTECT 




*.... 


• 


• El 


• 





E3 ». 

.* USER ». 

• INTERRUPT • 
KEY ROUTINE 

• . «E1 .• 







• . 


YES 


SYSTEM/31 







• • . . . 


• El 




« 




• . « 








*• •* 






X 


•NO 






• HA • 

• Bl» 


• 






• • 
• 


X 






MACHEK 


. •• 








04 *. 








• • 


• 










*. 


YES 


MACHEK 




. 








• 




** « 








• • •• 






X 


•NO 






•DG ♦ 
♦ Gl* 



•DG • 
• Bi» 



• INTERVAL 


*• 


YES. 


TIMER 




*..X. 


• . • £! 






». .« 






»• *• 




X 


• NO 




• •••• 

• FK • 

• B2» 


X 






»•••• 




• 


♦ FJ • 




ENTPCK 


♦ Al» 
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Chart BA. $$A$SUP1 - FOPT Macro, General Cancels and Program Check without PC Routine 
Refer to Charts 02 and 03. 



CALCULATE 

CANCEL CODE 

IN 

REG 11 



.• DASD ». 
NO .« FILE PROT ». 
...*OR 2311 SYSTEM. 
». I/O .» 



*«D1*»**»«« 

MODIFY SWITCH* 

• AT PCHKSW * 

» IN PROG CHECK 

•INTERRUPT RTN« 

TO A NOP »G5* 



STORE CANCEL 
CODE AND 
SAVE REGS 



BACKGROUND 
PIB IN 
REG 10 



•*»H1*«****** 

LOAD ADDR 

OF EXT02 

INTO REG 9 

FOR GENERAL 

EXIT 



DASDFP 
OR SYSFIL 

»H5 



#*#*A3**«»*»»* 

LOGICAL 

CANCEL ENTRY 

♦ AS 



B3 *. 

USER *♦. NO 
PC .».., 

ROUTINE .* 



• YES 



»»C3****»** 

CALCULATE 

CANCEL 

CODE IN 

REG 11 



• Cl» 
PDNOPCK 



SET 

WHLMSW 
= X'FF' 



STORE CANCEL 
CODE AND 
SAVE REGS 



•••E3»»«*»»»» 

ESTABLISH 

EXT02 AS 

CANCEL EXIT 

ADDRESS IN 

REG 8 



PROGRAM 

CHECK 
SWITCH 



LGD 
YES 



SET 
WHLMSW 
= X»00« 



« B2» 
ERRGO 



»*»*G3»»»*»*»*» 

STORE 

REGS 9-12 

UNTIL GENERAL 

EXIT 



X 

•«»»G4 ••*••••*• 

STORE 

REGS 9-11 

UNTIL GENERAL 

EXIT 



• LOAD » 

• PIB ADDRESS » 

• INTO « 

• REG 10 » 


• »4t*»J2**»*»»***« 

• ESTABLISH • 

• DEQUEUE AS » 

• CANCEL EXIT • 

• ADDRESS IN • 

• REGISTER 8 • 



CE 

ROUTINES 

♦ H5 



TRANS 

DUMP 

ACTIVE 



»*»»H4*»******* 

MODIFY 

GENERAL EXIT 

ROUTINE TO 
LOAD PROGRAM 
CHECK OLD PSW 



GET 

PIB 

ADDRESS 



#*»»«K1**»«»**» 

• LOAD ADDR 
» OF EXT02 
•INTO REGISTER 

• FOR GENERAL 

• EXIT 



* B2» 
ERRGO 



• *CE DUMP OF * • 
*LTA, PTA, WITH » 

• »GEN'L REGS • » 



• A5 
ENTRY LABELS— 
ERR1C-1E 
(IF AP OPTION) 
ERR20-27, INCLUSIVE 
AND ERR10 FROM 
SVC 14. SEE 
FIGURE 36. 



*##»C5*»«»»«** 

STORE REGS 

9-11, LOAD 

REG 11 WITH 

4096 AS BASE 

REGISTER 



STORE REGS 
9-12, LOAD 

11 WITH 4096 

12 WITH 8192 
AS BASE REGS 



« Al* 
PDPROGCK 



• G5 
REFER TO NOTE »B4 
ON CHART CH. THIS 
PROGRAM SWITCH IS 
SET TO BRANCH WHEN 
I/O IS ATTEMPTED ON 
A FILE PROTECTED 
DASD. 



SUPERVISOR 
GENERATION 
OPTIONS 



• K5 
ENTRY LABELS— 
ERR30, ERR31, 
ERR32, ERR33 
(DEPENDING ON 
SUPERVISOR OPTIONS). 
SEE NOTE »H5 
AND FIGURE 36. 



X 

* l » 
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Chart BAA, $$A$SUP1 - FOPT Macro, CNLSVE and SVEREG Subroutines 
Refer to Charts 02 and 03. 



****A2********* 

* CNLSVE * 

* * 
*************** 



CNLSVE X 

*****B2********** 

* STORE CANCEL * 

* CODE FROM REG * 
*11 AND RESTORE * 

* REG 11 AS * 

* BASE REGISTER * 
***************** 



****A3********* 

* SVEREG * 

* * 
*************** 



.♦ TEST *. 
.♦ PIB FLAG *. YES 
*. BYTE, ARE .*... 
♦REGS SAVED.* 



*****D2********** 

* * 

* GET ADDRESS * 

* OF SAVE AREA * 

* AND OLD PSW * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****B4********** 
♦STORE REGS 9-11* 
♦FROM COMM REGN * 
♦ TO SAVE AREA, * 



*****C4********** 

* * 

* SAVE OLD ♦ 

* PSW IN ♦ 

* SAVE AREA * 

* * 
***************** 



**04*****^* 

♦ SET REGS ♦ 

* ARE SAVED 
X»80« IN PIB 

* FLAG BYTE 

* * 
*********** 



CE 

OPTION 

*E3 



****E4********* 

♦ RETURN VIA ♦ 

♦ LINK REGISTER ♦ 

♦ * 
*************** 



*****P2********** 

* * 

* STORE REGS ♦ 

* 12-0 IN * 

* SAVE AREA ♦ 

* * 
***************** 



*****P3** ******** 

* * 

* STORE REGS ♦ 

* 14-0 IN * 

* SAVE AREA * 

* * 
***************** 



G2 *. 
.* MPS ♦. 
NO .♦ AND *. 
..♦FLOATING POINTS 
♦. OPTIONS .* 
*. +G1 .♦ 
♦ . .* 
♦YES 



*****H2******^*** 

* * 
♦STORE FLOATING * 

* POINT REGS ♦ 

* IN SAVE AREA ♦ 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart BB. $$A$SUP1 - FOPT Macro, General Cancel Subroutine 
Refer to Chart 03. 



•Al»*»#» 
ERRGO 



SUPVR 
BEING 
.CANCELED 



*B1 

ERRSET 



»«*»*A4*»**»»»«*« 

• RESET LOGICAL • 
« TRANSIENT KEY * 
•TO ZERO IN C0MM» 

• REGION * 



X 

»#B2»»*»»*« 

* SET X'40' ♦ 

IN PIB CANCEL* 

FLAG TO LOAD * 

$$BEOJ • 


SUPCNL X 
ERRSET .». 

B3 •. 

.»* LOGICAL "♦. YESl 
•• TRANSIENT ...... 

•. ACTIVE .» 


X 

C2**"». 

•* CANCEL "•• 
IN .» 

•.PROGRESS .* 


• NO 

X 

*»»*C3»»»»»»»»« 

♦BRANCH TO EXIT • 

• ADDRESS IN • 

• REG 8 «G5 • 



• MULTI- • 

PROGRAMMING 
». OPTION .• 



POST CANCEL 
CODE IN PIB 
CANCEL FLAG 



• MULTI- • 

PROGRAMMING 
♦. OPTION .» 



RESTORE REG 

10 TO ADDR 

OF PIB TABLE 



* CANCELED » 

PROGRAM OWN 
*. LTA .» 



• ASYNC 

PROCESSING 

•. SUPPORT . 

». »A5 .* 



»»G2«****** 

•SET CANCEL * 

IN PROGRESS 

BIT IN PIB 

BYTE 15 



X 

• •• 

» 3 



D4 ♦. 

AP 

OPTION 



E4 *. 

'ISSUED BY**. 

LOGICAL 
.TRANSIENT.* 



#»»»F3»*»»»«»» 

BRANCH TO 

EXIT ADDRESS 

IN REG 8 »G5 



•*G3«****** 

•RESET CANCEL • 

•SWITCH, SVANCL, 

• TO X'OO' • 



♦ TURN OFF * 

• CANCEL CODE • 
•IN CANCEL BYTE 

• OF PIB • 



AP 

OPTION 

• A5 



••••HI********* 
b BRANCH TO 
* EXIT ADDRESS 
•IN REG 8 *G5 



H2 *. 

.* SUPVR *. 
.* OR ATTN *. YES 
*. RTN BEING 

•.CANCELED .» 



♦«H3**«»*»» 

♦SET PIB FLAG 
B-TRAN AREA 
« INACTIVE 



• •••• 
•DD * 

* HI* 



PTO 

OPTION 

*A5 



•EXCHANGE B-TRAN* 
•AND PIB SVAREA * 
•POINTERS »K5 • 



***J4******* 
BRANCH VIA 
REGISTER 8 

*G5 



Kl ♦. 

.•QUIESCE*. 

.•I/O OR PGM ». 

SEIZED 

*. SYSTEM .» 



•MAKE TRT ACTIVE* 

• (SET TRTRUN * 

* = X«03«) * 



ERRSET1 

**K3******* 
•SET PIB TO 
• LOGICAL 
...X* TRANSIENT 
X • BOUND 



•••* 
1 * 



SUPERVISOR 
GENERATION 
OPTION. 



* SET CANCEL * 
.X»CODE IN CANCEL 

♦ BYTE OF PIB ♦ 



C5 ♦. 

AP 
OPTION 



D5 ♦. 

.♦ SVC. ♦. 

ISSUED BY 

LOGICAL 
.TRANSIENT. 



* BRANCH TO 

* EXIT ADDRESS 
♦IN REG 8 *G5 



»G5 
EXT02 (CHART BC ) IS THE 
EXIT FOR LOGICAL CANCEL 
AND NORMAL EOJ. DEQUE 
(CHART FF) IS THE EXIT 
FOR LOGICAL I/O 
CANCELS. SEE CHART BA. 
RETURN TO MM-E2 ON BAL 
TO ERRGO FROM RDYCNL 
SUBROUTINE. RETURN TO 
CHART FG-J1 ON BAL TO 
ERRSET FROM ATNCNL 
ROUTINE. 



•»H5»**»»*» 

SET NOP AT 

SVC11B TO 

BRANCH 



ADDRESS POINTERS OF 
THE LOGICAL TRANSIENT 
SAVE AREA AND THE 
PROBLEM PROGRAM USING 
THE TRANSIENT AREA 
ARE REVERSED WHEN A 
LOGICAL TRANSIENT IS 
ACTIVE. 
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Chart BC. $$A$SUP1 - FOPT Macro, General Exits (Part 1 of 4) 
Refer to Chart 01. 



EXT03 

•SVEREG BAA 

•SAVE~RiGISTERs" 
♦OF INTERRUPTED 
• PROGRAM 



SET UP TO 

TEST PIB 
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NO .*SYSTEM/370 

CPU 

*. »D5 



NO .» IS 
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• GET PARTITION * 

• ID AND SAVE * 
•IN PID (BYTE 46* 

• OF COMREG) • 
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SUPERVISOR 
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• •»C4 • ♦• 

CHANGE 

QUIESCE I/O 
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GET ADDRESS 
OF PIB TABLE 
IN REGISTER 10 



E2 • . 

JA 

SUPPORTED 



JAXITBR 

•••##03 
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RESET 

TIMER 

COUNTERS 



• D5 
SUPERVISOR 
GENERATION 
OPTION. 



• E5 
IF THE SYSTEM 
HAS BEEN SEIZED 
BY AN SVC 22 ISSUED 
IN A FG1, FG2, OR 
BG PROGRAM, THE TRT 
OPERATION WILL NOT 
STOP AT THE OTHER 2 
PROBLEM PROGRAM PIBS 
OR THE ATTENTION PIB. 



GO TO RMS 

SUPVR TO 

HANDLE EXIT 



•»»*»H1»***»***» 
•DISABLE EXTERN. 
•INT, SET EXT04 

• ENTRY TO NOP 
» FOR NO TASK 

• SELECTION 



YES YES .» PARTITION 
•....X....». OR 

*. BOUND . 



**«**J1 »•••••••• 

• SCAN PIBS TO 

• DETERMINE 
•HIGHEST ACTIVE 

• OR NOT -SVC7- 
•BOUND PROG *E5 
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Chart BCA. $$A$SUP1 - FOPT Macro, General Exits (Part 2 of 
Refer to Chart 01. 



4) 



***** 

*BD * 
* G2* 



***** 

*BD * 

* Jl* 

* * 



*****B1********** 

* EXECUTE * 

* BRANCH * 

* INSTRUCTION * 

* IN HIGHEST * 

* ACTIVE PIB * 
***************** 



*****B2********** 

* EXECUTE * 

* BRANCH * 

* INSTRUCTION * 
♦IN INTERRUPTED * 

* PROGRAM PIB * 
***************** 



CI *. 

.♦SUPERVISOR* 
. INTERRUPT. 



♦C2 
SUPERVISOR 
GENERATION 
OPTION 



***** 

*BD * 

* J2* 

* * 



***** 

♦ DH * 

* Bl* 
* * 



.♦ JA 
. SUPPORTED 
*. *C2 



IS 

WAIT BIT 

ON 



*BD * 
* D4* 
**** x 
LMERA .♦. 



*****05********** 

* * 

* SET NEXT * 

* USER * 

* ALL-BOUND * 

* * 
***************** 



YES 


* ATTENTION 


* 


. . .* 


ROUTINE 






*. PIB 


.* 




*. .* 




X 


*. .* 




***** 


♦ NO 




*GD * 






* Al* 






* * 






* 






ATNRTN 


X 

.♦. 

Fl ♦. 

.* * 






.♦ PROBLEM 


* 


* 


PROGRAM 






♦ . PIB 


.* 



X 

.♦. 

Gl ♦. 

* *. 

ENTERED 

AT 

EXT01 . 

*. .* 

*. .* 

♦NO 



CE 

OPTION 

♦C2 

♦ . * 



*****P4********** 

♦ * 

♦ RESTORE ♦ 

♦ REGISTERS ♦ 

♦ 9-11 ♦ 

♦ * 
***************** 



*****P5********** 

* * 

* RESTORE ♦ 

* REGISTERS ♦ 

* g-13 * 

* * 
***************** 



.♦ FETCH ♦. 
.♦INTERRUPTED^. YES 
♦DURING OUIESCE.*.... 
♦.OF SYSRES.^ 



*****H1********** 

♦ GET ADDRESS ♦ 

♦ OF SAVE AREA ♦ 

♦ FROM HIGHEST ♦ 

♦ ACTIVE PIB ♦ 

♦ * 
***************** 



***** 
*BE ♦ 
♦ Al* 



ALLBND1 

**H2******* 

* TURN ON * 

♦ WAIT AND ♦ 
♦ PROBLEM STATE 

♦ BITS IN ♦ 

♦ PSW ♦ 
*********** 



**J2******* 



****G5********* 

♦ LOAD PSW ♦ 

♦ (OLD PSW FROM ♦ 
♦WAIT INTERRUPT)^ 

*************** 



**H3******* 

* SET * 
♦ SUPERVISOR 

* PIB TO X'85« 
♦ACTIVE STATE 

* * 
*********** 



***** 

*BC ♦ 

* ci* 

* * 



ALLOW 
EXTERNAL 
INTERRUPTS 

*********** 



****K2********* 

♦ LOAD PSW ♦ 

♦ ENTER ♦ 

♦ WAIT STATE * 
*************** 
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Chart BD- $$A$SUP1 - FOPT Macro, General Exits (Part 3 of 4) 
Refer to Chart 01. 



***** 

*BCA* 

* Gl* 

* * 



***** 

* * * 

* A4* 
* * 



*A4 
MULTIPLE 
ENTRIES 
FROM ALL 
MACROS. 



*A5 
SUPERVISOR 
GENERATION 
OPTION 



* 1 * 

* * 
**** 



.* IS *. 
. THIS TASK .* 
♦.CANCELING.* 



* 2 * 

* * 
**** 



NO .* JA 
...*. SUPPORTED 
*. *A5 



*****C2********** 
♦JAXIT BL* 

*_*_*_*_*_*_*-.*_# 

* CALCULATE * 

* TIME * 

* * 
***************** 



MCRR 

OPTION 

*A5 



.* TASK *. NO 
♦.STILL RUNNING.*.... 
*. IN LTA .* 



♦YES ***** 

**** . *BC * 

* * . * Bl* 

* 2 *... * * 



**** X 
.*. 
El 



EXT03 
YES 



*JH- * * 
D3,E3* * 
**** 
EXT04 



***** 
*BC * 
* Bl* 



RMS *. NO 
ACTIVE .*... 
NOW .* 



*****P2********** 
*RASUPR HB* 
*_*_*_*..*,.*..*_*_* 

* GO TO RMS * 

* SUPERVISOR * 

* * 
***************** 



*****03********** 

* MOVE PSW FROM * 

* MCSAVAR TO * 

* ERA, RESTORE * 

* REGS 9-0 * 

* * 
***************** 



****E3********* 

* LOAD PSW * 

* FROM ERA * 

* * * 
*************** 



MPS *. 


YES 


*A5 


*... . 


.* 




.* 




*. .♦ 


X 


♦NO 


***** 




*BCA* 




♦ B2* 


■ 


* * 



*****H1 ********** 

* GET ADDRESS * 

* OF PROBLEM * 

* PROGRAM ♦ 

* SAVE AREA * 

* * 
***************** 



*****jl********** 



***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 

SUPEXT 



***** 

* * 
*K3 * 

* * 
***** 



**J2******* 

♦ SET FLAG * 
*IN SUPERVISOR* 

* PIB TO X'84' * 
♦ INACTIVE ♦ 

♦ ♦ 
*********** 



IDRAEXT 

*****H 3 ********** 

* MOVE PSW FROM * 

* IDRASAVE TO * 

* ERA. RESTORE * 

* REGISTERS 9-0 * 

* * 
***************** 



****J3********* 

* LOAD PSW * 

* FROM ERA ♦ 

* * 
*************** 



*****H5********** 

* MOVE PSW FROM ♦ 

* PTASAVE TO * 

* ERA, RESTORE * 

* REGISTERS 9-0 ♦ 



***** 

*BC * 

♦ CI* 

♦ * 



********* 



****J5********* 

* LOAD PSW * 

* FROM ERA * 

* * 
*************** 



***** 
*BCA* 
* B4* 



♦K3 
BCA-C1 
FE-C4 
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Chart BE. $$A$SUP1 - FOPT Macro, General Exits (Part A of 4) 
Refer to Chart 01. 



**** 

* * 

* i * 

* * 
**** 



EXTEOJ X 

**A1******* 

* RESET PIB * 

*FLAG TO X'03«* 

* REGS NOT 

♦SAVED, NOT 7 * 

♦OR 2 BOUND * 

*********** 



OLTEP 

OPTION 

♦A4 



.♦ CANCEL * 


. YES 


*. BIT ON IN 


.♦« 




*.PIB FLAG .♦ 






*. .* 






*. .♦ 




X 


*N0 




**** 
* 
♦ 1 










« 






**** 


CANXIT X 






*****oi ********** 




♦ MOVE OLD PSW 


* 




♦ FROM SAVE 


* 




♦ AREA TO 


* 




♦ ERA 


* 





***************** 



.♦ ASYNC 
. PROCESSING 
♦. SUPPORT . 
♦. ♦A* .♦ 



*****02*****^*** 



***************** 



♦ B4^ 




**** X 




CNCL .♦. 




B3 ♦. 


♦ BA 


.♦ ♦. 


MK-K1.EA 


.♦ MICR ♦. YES 


ML-A1,E1,H5 


♦. DEVICE ...... 




♦ . SUPPORT .♦ 




♦. ♦A* .♦ 




♦ . .♦ X 




*NO *♦*** 




**** . ♦JG ♦ 




* ♦ . * B5* 




♦JG ♦ ... ♦ ♦ 




♦ H5^ . ♦ 




♦♦♦♦ X PDDEOUE 
.♦. 
C3 ♦. 






.♦ ♦. 




.♦ EMULATOR ♦. YES 




♦ . AND S/370 ......... 




♦. *A4 .♦ 





***** 

♦ MK ♦ 

♦ Al* 
* * 



NO .♦ MPS 
,..♦. AND/OR FP 
♦ . ♦ A* 



*****Gi********** 

♦ RESTORE ♦ 

♦ FLOATING ♦ 

♦ POINT ♦ 

♦ REGISTERS ♦ 

♦ * 
***************** 



***** j i ********** 

♦ GET ADDR OF ♦ 

♦ COMM REGION, ♦ 

♦ RESTORE ♦ 

♦ GENERAL REGS ♦ 

♦ * 
***************** 



TESTLTA 

*****G2********** 

♦ PROTECT ♦ 

♦ SYSTEM FROM ♦ 

♦ SAVE AREA ♦ 

♦ MODIFICATION ♦ 

♦ * 
***************** 



YES 


,* 


DOES 


.. .♦ 




THIS TASK 




* 


OWN LTA 
♦ . .♦ 

♦ . .♦ 
♦ NO 



*****j2********** 

♦ SET STORAGE ♦ 

♦ PROTECT KEY ♦ 
.♦ FROM PID ♦ 

♦ INTO PSW AT ♦ 

♦ ERA ♦ 
***************** 



*A4 .* 
♦ . .♦ 
♦ YES 



♦ . SPt OC, OR .♦... 
♦ IT SUPPORT. ♦ 
♦. +A4 .♦ 



**04******* 

* * 
♦ TURN OFF ♦ 

♦ EMULATOR 
♦INTERFACE BIT^ 

* * 
*********** 



**** 

* * 

* 3 ♦ 

* * 
**** 

**** 

* * 

* 2 ♦ 

* * 
**** 



EU= 

RELOC 

♦ A4 



* 3 ♦ 

* * 
**** 



XYES .♦ IS ♦. 
.♦. SAVE AREA .♦ 
♦. ZEROS .♦ 



H3 ♦. 
.♦ EU ♦. 

INTERFACE ♦ . 

ACTIVE IN . 
.PARTITION. ♦ 



*****j 3** ******** 

♦ ZERO EU SAVE ♦ 

♦ AREA, SET OFF ♦ 

♦ EU INTERFACE ♦ 

♦ AND COMPAT. ♦ 

♦ MODE ♦ 
***************** 



.NO .♦ EU ♦. 

,..♦. ACTIVE IN . 

♦.PARTITION.* 



♦ TURN OFF 
EU INTERFACE 

♦ ACTIVE 

* * 

*********** 



.♦. 
G5 ♦. 
.♦ANY OR ♦. 
NO .+ALL OF MPS,^. 
...♦. OC, SP, OR .♦ 
♦. AT .♦ 
♦. ♦AA .♦ 
♦ . .♦ 
♦YES 



.♦ REQUEST 
FROM 
♦BACKGROUND. 



****K1 ********* 

♦ LOAD PSW ♦ 

♦ FROM ERA ♦ 

♦ * 
*************** 



CSRST 

**J4******* 

* SET PIB ♦ 
♦FLAG TO X'80'^ 

♦ TO AVOID ♦ 
♦ RESAVING ♦ 

* REGISTERS ♦ 
*********** 



* 
* 


K3 ♦. 
.♦ EU ♦. 
INTERFACE ♦. 
AND MODEL 
. = 40 .♦ 
♦. *A4 .♦ 
♦ . .♦ 
♦ YES 


NO 
*. • • 


♦ * 

♦ LOAD ADORESS ♦ 

♦ OF 'ENDJOB' * 

♦ INTO REG 1 ♦ 

♦ *K5 ♦ 
***************** 




X 
**** 

* * 

♦ 2 ♦ 




. SVC02 
X 
***** 

♦ FC ♦ 

♦ Bl* 



♦K5 
IF TELEPROCESSING IS 
SUPPORTED. ENDJOB 
CONTAINS *$BE0J3. 
IF TELEPROCESSING IS 
NOT SUPPORTEO, 
ENDJOB CONTAINS 
$$BE0J4. 
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Chart BF. $$A$SUP1 - FOPT Macro, General Entry (Part 1 of 
Refer to Chart 05. 



2) 



I/O INTERRUPT 



SAVE ADDRESS 

OF I/O OLD 

PSW 



•A2 
SUPERVISOR 
GENERATION 
OPTION. 



SET REG 11 

AS BASE REG 

WITH 4096 



GENENT 



Bl *. 

-• LARGE *. 

••SUPERVISOR 

». SAVE AREA 

».(BG ON). 



•♦♦♦•Cl»»»»»»*»« 
•SAVE REGS 9-11 

• INITIALIZE 

• BASE REG 11 



*#»»*C2»*»*»»»»» 
•SAVE REGS 9-15 

• INITIALIZE 

• BASE REGS 

• 11-14 



NO 


• CE * 

OPTION 
•- »A2 .» 

"•YES 


: ' 


: * 


X 

. • . 

El • • 

.•'I/O TRACE** 

ACTIVE 

». .» 

'•NO 


YES 






*!* 




X * 

• LOAD ADDRESS • * 

• OF INTRTN • 

• (CK-A1) IN • 



I/O TRACE 

TRACE I/O 

EVENTS 



B3 ». »»»»»B4»»*»*»»»« 

.• •• * INITIALIZE 

CE *. YES *REGS 12 AND 13 
OPTION X»AS 3RD AND 4TH 

• A2 .• •BASE REGISTERS 

"•NO 

*X * 

X 

C3**"«. 

JA *"•. 

SUPPORTED .• 

• A2 .• 



SAVE LINK 
AND WORK 
REGISTERS 



INITIALIZE 

INTERRUPT 

THE 




RESTORE 

LINK AND WORK 

REGISTERS 



SET REG 11 

AS BASE REG 

WITH 4096 



* INITIALIZE 
•REGS 12 AND 13 
.X*AS 3RD AND 4TH 
♦BASE REGISTERS 



F4 ». 

JA 

SUPPORTED 



• MULTI- • 

PROGRAMMING 
•- OPTION .• 



GENENT X 

♦♦•»*H1*»*>*»*»» 

» USE PIK TO 

• CALC ADDRESS 
•OF INTERRUPTED 

• PIB IN REG 10 



• GET ADDR OF 
•SAVE AREA FROM 

• BACKGROUND 

• PROGRAM PIB 



STORE USER 

REGS 1-8 

IN SAVE AREA 



»«»»J2»»«**»«*« 

LOAD ADDRESS 

OF BACKGROUND 

PROGRAM PIB 

INTO REG 10 



YES .• PROBLEM • 

...-•PROGRAM INTER- 

*. RUPTED .» 



GET ADDRESS 

OF PIB FOR 

INTERRUPTED 

TASK 



*»J3*»**»»* 

♦SET ACTIVE • 

BIT X'Ol' 

IN PIB FLAG 

BYTE 



SAVE LINK 
AND WORK 
REGISTERS 



INITIALIZE 

INTERRUPT 

TIME 



•♦•♦»♦♦• 



RESTORE 

LINK AND WORK 

REGISTERS 



• •♦♦•(^♦•♦♦♦♦♦♦♦« 


X 


X 


X 


• GET PROB PROG « 


♦•••K2*****»**« 


•••*K3«»»«»*«»« 


♦♦•*K4 •♦•**♦•♦* 


•SAVE AREA ADDR » 


* BRANCH • 


• BRANCH • 


♦ BRANCH 


• AND SAVE REGS • 


• VIA REG 9 » 


» VIA REG 9 ♦ 


• VIA REG 9 


• 1-8 IN SAVE • 


♦ »K5 • 


• *K5 • 


• »K5 


» AREA • 









• K5 
REGISTER 9 CONTAINS 
THE ADDRESS OF 
INTRTN CHART CK-A2, 
OR A RETURN ADDRESS 
WHEN CHART IS ENTERED 
VIA A BAL TO GENENT. 



Charts 157 



Chart BG. $$A$SUP1 - FOPT Macro f General Entry (Part 2 of 2) 
Refer to Chart 05. 



**** 

* * 

* i * 

* * 
**** 



**A1******* 

♦ SET ACTIVE * 

* BIT X'01' 

IN PIB 

* FLAG BYTE 

* * 

*********** 





* PTO *. NO 




*. 


OPTION .*.... 
*. *C2 .* 
*. .* 

*. .* X 
*YES ***** 
*BF * 
* D4* 
* * 
* 
GEN2 
X 




*****d ********** 


*C2 


* 


SET REG 11 * 


SUPERVISOR 


* 


AS BASE * 


GENERATION 


* 


REGISTER * 


OPTION. 


* 


WITH 4096 * 





***************** 



*****02 ********** 
* INITIALIZE * 
*REGS 12 AND 13 * 
.X*AS 3RD AND 4TH * 
♦BASE REGISTERS * 



**** 



************ 



INTERRUPT *. NO 
FROM MICR .*... 
. DEVICE .* 



**C3******* 

* RESET * 

♦FETCH SWITCH * 

AND WAIT * 
* BITS * 



***D3********** 



************** 



****E 3** ******* 

* BRANCH VIA * 

* REGISTER 9 * 

* *H3 * 
******** 



*****B4********** 

* SAVE ENTRY * 
*REG 9-13, INIT * 

* 2ND-4TH BASE * 

* REGS * 

* * 
***************** 



.* PROBLEM *. NO 
PROGRAM .*... 
*. STATE .* 



****g5********* 

* LOAD EXTERNAL * 

* OLD PSW * 

* (IGNORE) * 
*************** 



NO .* MPS 
...*. OPTION 
*. *C2 



PDSUPV 

*****Q5********** 

* SAVE REG. 11 * 
*AT PDREG. SAVE * 

* REGS 1-10 AT * 

* PDSAVB+20 * 

* * 
***************** 



***** 
*JA * 
* Bl* 



*****P1 ********** 

* * 

* SAVE LINK * 

* AND WORK ♦ 

* REGISTERS ♦ 

* * 
***************** 



*****Gi********** 
♦JAENTRY BK* 
*,.*_*_*_*_*_*_*_* 

* INITIALIZE * 

* INTERRUPT * 

* TIME * 
***************** 



*****H1********** 

* * 

* RESTORE * 

* LINK AND WORK * 

* REGISTERS * 

* * 
***************** 



ALL *. NO 
BOUND .*... 
•INTERRUPT.* 



****K1********* 

* BRANCH * 

* VIA REG 9 * 

* *H3 * 
*************** 



CE *. YES 
OPTION .*.... 
*C2 .* 



*****G2********** 

* * 

* SAVE REGS * 

* 12-0 AT * 

* PTASAVE+20 * 

* * 
***************** 



*****Q3********** 

* * 

* SAVE REGS * 

* 14-0 AT * 

* PTASAVE+28 * 

* * 
***************** 



*****F4********** 

* SAVE ADDR OF * 

* EXTERNAL OLD * 

* PSW FOR * 

* GENERAL EXIT * 

* * 
***************** 



*****G4********** 
♦MOVE REGS FROM * 

* ERAX1 TO * 

* NORMAL SAVE * 

* AREA ERA * 

* * 
***************** 



*****H2 ********** 

♦ SAVE PSW AT ♦ 

♦ PTASAVE, SAVE * 

♦ ENTRY REGS ♦ 

♦ FROM ERA AT * 

♦ PTASAVE+8 * 
***************** 



**J2******* 

* SET OFF * 
WAIT BIT 

IN SAVED 
PSW 

* * 
*********** 



****K2********* 

* BRANCH * 

* VIA REG 9 ♦ 

* *H3 * 
*************** 



♦ H3 
REG 9 CONTAINS 
THE ADDRESS OF 
INTRTN, CHART 
CJ-A2, OR A 
RETURN ADDRESS 
WHEN CHART IS 
ENTERED VIA A 
BAL TO GENENT 



MPS *. YES 
OPTION ...... 

*C2 .♦ 



*****J4********** 

* * 

* GET SAVE AREA * 

* ADDRESS FROM * 
♦BACKGROUND PIB * 

* * 
***************** 



*****K4********** 

* SAVE USERS ♦ 

* REGS 1-8, GET ♦ 

* ADDRESS OF * 
♦BACKGROUND PIB ♦ 

* IN REG 10 ♦ 
***************** 



*****J5********** 

* USE PIK TO ♦ 

* CALC ADDRESS * 
♦OF INTERRUPTED * 
♦PIB INTO REG 10* 

* ♦ 
***************** 



*****K5********** 
♦GET INTERRUPTED^ 
♦PROG SAVE AREA ♦ 

♦ FROM PIB, ♦ 

♦ SAVE REGS 1-8 ♦ 

♦ * 
***************** 



PDINTR 



X 
***** 

♦ JA ♦ 

♦ Bl* 
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Chart BH. $$A$SUP1 - FOPT Macro, SVC Interrupt Handler 
Refer to Chart 03. 



Al • 
YES .•* MICR 



CE 

OPTION 

*E2 



SAVE REGS 

9-13 UNTIL 

GENERAL EXIT 



CE 

ROUTINES 

»E2 



.» FETCH/ 
. LOAD TRACE 
• . ACTIVE . 





#»«A2»« 








* 


MOVE USER • 




OLD PSW TO • 




SAVE AREA • 


* 











*»»»B2»»»»»*»» 

SET USER 

ROUTINE ADDR 

IN SVC OLD 

PSW FOR 

LINKAGE 



BR VIA R9 

TO EXT01 

CHART BD-D2 



SAVE REGS 

9-11 UNTIL 

GENERAL EXIT 



• E2 
SUPERVISOR 
GENERATION 
OPTION. 



MICR 

DEVICE 

• F3 



»».*A4*»*****»» 

LOAD REGISTER 
11 WITH 4096 

FOR USE AS 
BASE REGISTER 



SVC 22 '. 


NO 


"'•YES 






X 

C3****. 

RECORD 
ZERO = 


.. 




'•NO 






Ix... 







♦•••A5*»»»»*»» 

MODIFY 

GENERAL EXIT 

ROUTINE TO 

LOAD SVC 

OLD PSW 



» GET PIB ADDR, 
•SAVE REGS, AND 
• EST BASE REG 



• SET SYSTEM 

• MASK TO 

• DISABLE ONLY 
•I/O INTERRUPTS 



•#»#*C4 ••*»•»♦•»• 




•#*»C5»»«»« 






• INITIALIZE 












•REGS 12 AND 13 






LOAD ADDR 


OF 




• AS 3RD AND 4TH 






EXT01, BD- 


-B? 




•BASE REGISTERS 






INTO REG 


9 




• 


• 


• 






* 






*. 






X 


















»JC • 






X 






• B3» 


















D5 • 


















PDSVC28 




YES 














SVC 




.» 






























X 












»•**• 


• NO 










• CA • 












• El» 


. 







• E3 
EXTERNAL INTERRUPTS ARE NOT PROCESSED FOR MICR 
DEVICES ONLY. THE ENTSVC INSTRUCTION WILL BE 
SET TO NOP BEFORE ENTERING THE USERS STACKER- 
SELECT ROUTINE (JB-J4). THE NOP NOW PERMITS A 
RETURN TO THE MICR INTERRUPT HANDLER AT PDSVC28, 
CHART JC-B1. 



NO .» PTO 

OPTION 

♦ . »E2 





♦ VALID • 


. NO 




SVC CODE 








*. «G3 .• 








• • .* 








*. .* 




X 




• YES 




• BA 

♦ A3 

ERR2 


SVCRTN1 X 








»*»H2»»»**»*» 








DEVELOP PTR 








TO TABLE OF 








SVC ROUTINE 








ADDRS FROM 






• 


SVC CODE 


wl 





»G3 
SVC CODE IS STORED IN BYTE 3 OF OLD PSW 
(LOCATION 35). SVC CODES OVER 47 (EXCEPT 
AS INTERCEPTED CODES OVER 225) ARE INVALID. 
FOR QTAM SVC'S (30,31,32), REFER TO THE 
QTAM PLM LISTED IN THE PREFACE. SVC CODES 
33 AND 34 ARE RESERVED FOR THE COMRG AND 
GETIME MACROS. THEIR USE RESULTS IN A 
BRANCH TO EXTOl. 



IF AP OPTION, SAVE PID AT 
LOCATION CEPIK, WITHOUT AP, 
SAVE PIK AT CEPIK. 



»»»*J2««»»***» 

LOAD ADDR OF 

SVC ROUTINE 

FROM TABLE 

INTO REG 6 



BRANCH TO SVC 
ROUTINE VIA REG 6 
SEE CHART BJ FOR 
SVC BRANCH TABLE. 



» LOAD CE AREA • 

• BASE REG. ♦ 

• SAVE PIK. GET * 

• ADDR OF REG * 
♦SAVE AREA «H3» 



•CE AREA FETCH/ 

• •LOAD TRACE * 

• ♦ ROUTINE • 



.♦ CE 
SVC 
*. ISSUED 



• F4» 
RESVC 



G5 *. 

.• EU •. 
INTERFACE 
AND MOOEL 

. = 30 
•. *E2 .• 

'•YES 



NO .• SVC 
C..». EQ TO OR 
*. GT 225 



EU 

INTERFACE 

. ACTIVE . 



YES .* EU 
...♦. SAVE AREA 
♦.EQ ZEROS . 
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Chart BJ. $$A$SUP1 - FOPT Macro, Supervisor Call Branch Table 



SVC 


OPTIONS 


LABEL 


CHART 





ALL 


SVCOO 


CA-F1 


1 


ALL 


SVC01 


FA-B1 


2 


ALL 


SVC02 


FC-B1 


3 


ALL 


SVC03 


FF-A1 


4 


ALL 


SVC04 


FF-B4 


5 


ALL 


SVC05 


FB-B2 


6 


ALL 


SVC06 


MM-B4 


7 


ALL 


SVC07 


FE-A3 


8 


ALL 


SVC08 


FG-A1 


9 


ALL 


SVC09 


FG-A2 


10 


TIMER 
NO TIMER 


SVC10 
ERR21 


FG-B5 
BA-A3 


11 


ALL 


SVC11 


FE-B1 


12 


ALL 


SVC12 


FA-B2 


13 


ALL 


SVC13 


FA-B4 


14 


ALL 


ERR10 


BA-A1 


15 


MPS 
NO MPS 


SVC15 


CA-B1 
CB-B1 


16 


PC, NO IT OR OC 

PC AND IT OR OC 

NO PC 


SXTRT1 
SXTRT1 
ERR21 


FJ-B5 
FN-B4 
BA-A3 


17 


PC, NO IT OR OC 

PC AND IT OR OC 

NO PC 


EXTRT1 
EXTRT1 
ERR21 


FJ-B4 
FN-B2 
BA-A3 


18 


TIMER 
NO TIMER 


SVC18 
ERR21 


FN-B5 
BA-A3 


19 


TIMER 
NO TIMER 


SVC19 
ERR21 


FN-B3 
BA-A3 


20 


OC RTN 
NO OC TRN 


SXTRT1 
ERR21 


FN-B4 
BA-A3 


21 


OC RTN 
NO OC RTN 


EXTRT1 
ERR21 


FN-B2 
BA-A3 


22 


MPS 
NO MPS 


SVC22 
EXT01 


FH-B1 
BD-B2 


23 


MPS 
NO MPS 


SVC23 
ERR21 


FH-B3 
BA-A3 


24 


TIMER 
NO TIMER 


SVC24 
ERR21 


FH-B5 
BA-A3 


25 


BTAM OR OLTEP 

NO BTAM AND NO OLTEP 


SVC25 
ERR21 


CA-F1 
BA-A3 



SVC 


OPTIONS 


LABEL 


CHART 


26 


STOR PROT 
NO STOR PROT 


SVC26 
EXT01 


FH-B4 
BD-B2 


27 


BTAM 
NO BTAM 


SVC27 
EXT01 


CA-F1 
BD-B2 


28 


MICR 
NO MICR 


PDSVC28 
ERR21 


JC-B3 
BA-A3 


29 


MICR 
NO MICR 


SVC29 
ERR21 


FB-B3 
BA-A3 


30 
TO 
32 


RESERVED FOR QTAM; 
REFER TO QTAM PLM 
LISTED IN PREFACE 






33,34 


RESERVED FOR COMRG AND 
GETIME MACROS 






35 


TRKHLD 
NO TRKHLD 


SVC35 
ERR21 


MA-A1 
BA-A3 


36 


TRKHLD 
NO TRKHLD 


SVC36 
ERR21 


MB-A1 
BA-A3 


37 


AB 
NO AB 


SVC37 
ERR21 


MC-A4 
BA-A3 


38 


AP 
NO AP 


SVC38 
ERR21 


MD-A1 
BA-A3 


39 


AP 
NO AP 


SVC39 
ERR21 


ME-A1 
BA-A3 


40 


AP 
NO AP 


SVC40 
ERR21 


MG-A1 
BA-A3 


41 


AP 
NO AP 


SVC41 
ERR21 


MH-A1 
BA-A3 


42 


AP 
NO AP 


SVC42 
ERR21 


MG-A4 
BA-A3 


43 


ERROR OR MCRR 

NO ERRLOG AND NO MCRR 


SDRSDR 
ERR21 


LF-C5 

BA-A3 


44 


ERRLOG OR MCRR 

NO ERRLOG AND MCRR 


SDROBR 
ERR21 


LF-C4 
BA-A3 


45 


EMULATOR INTERFACE 
NO EMULATOR INTERFACE 


SVC45 
ERR21 


FR-B1 
BA-A3 


46 


OLTEP INTERFACE 
NO OLTEP INTERFACE 


SVC46 
ERR21 


FR-F4 
BA-A3 


47 


WAITF FOR MICR DEVICES 


SVC29 


FB-B3 


50 


USED BY LIOCS 

FOR ERROR RECOVERY 








51 


OLTEP 
NO OLTEP 


SVC51 
ERR21 


FS-B2 
BA-A3 
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Chart BK. $$A$SUP1 - FOPT Macro , Job Accounting Timer Update Routine 



**»*A2»»»»»* 
JAENTRY 



SAVE ID OF 
WHO IS 
RUNNING 



•••«#C2**»*»***»* 

* CALCULATE * 
» TIME OF • 
» INTERRUPT AND » 
•LAST ACCOUNTING* 

• INTERVAL » 



* MAS • 

SUPERVISOR 
•INTERRUPTED* 



SAVE 
SUPERVISOR 
TASK DWNER 



• D3 
SUPERVISOR 
GENERATION 
OPTION 



•»»*B5»»»**»»* 

ADD INTERVAL 

TIME TO CPU 

PARTITION 

COUNTER 



*»»»C4******»*»* 

DIVIDE INTERVAL* 

TIME BY NUMBER ♦ 

OF ACTIVE * 

PARTITIONS * 



ADD TO BOUND 
TIME COUNTERS 
IN FL AND F2 



ADD INTERVAL 

TO BG BOUND 

COUNTER 



STORE NEW 

INTERVAL 

START TIME 



WAS 

INTERRUPT 

. AN SVC . 



POST 

OVERHEAD 

TO RUN 



• WAS ». YES 

PROGRAM ID 

•. RUNNING .* 



.« OVERHEAD ». OVH YES 
.OR ALL-BOUND .*....X....« 

*. RUNNING .* 



.* WAS *. 

INTERRUPT 

PROGRAM 

. CHECK . 



LOAD 

STORED 

REGISTERS 



*»»G5»****»* 
RETURN VIA 
BRANCH REG 



JAISBND 

*#*»#H2» ********* 
» STORE NEW » 
•INTERVAL START • 
* TIME, POST * 
•OVERHEAD TO RUN* 



* ID, CONVERT * 
X»TO DISPLACEMENT* 

• IN WORDS • 



•»» J3»»»»»»»» 

GET ADDRESS 

OF BG 

PARTITION 

TABLE 



GET ADDRESS 

OF PARTITION 

TABLE 
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Chart BL. $$A$SUP1 - FOPT Macro, Job Accounting Calculation Routine 



****A2********* 

* * 

* JAXIT * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



LAST 
USER SAME 
. AS NEXT .' 



*****C2********** 

* * 

* SAVE * 

* WORK * 

* REGISTERS * 

* * 
***************** 



*****D2********** 

* * 

* CALCULATE * 

* DURATION OF * 

* LAST INTERVAL * 

***************** 



. ****C3********* 

* RETURN * 

* VIA LINK * 

* REGISTER * 
*************** 



*****B4********** 

* * 

* GET ADDRESS * 

* OF BG TABLE * 

* (ACCTBG) * 

* * 
***************** 

**** 

* * 

* 2 * 

* * 
**** 

X 
*****C4********** 

* * 

* UPDATE * 

* CPU * 

* TIME * 

* * 
** *************** 

**** 

* * 

* 3 * 

* * 
**** 

X 
*****D4********** 



***************** 



*****£4********** 



*****G2********** 

* * 

* CLEAR * 

* WORK * 

* REGISTERS * 

* * 
***************** 



*****H2********** 

* CALCULATE * 

* OVERHEAD TIME * 

* BY PARTITION * 

* AND SAVE * 

* FOR FG * 
***************** 



*****J2********** 

* * 

* SAVE OVERHEAD * 

* TIME FOR * 

* BG * 

* * 
***************** 



***************** 



****P4********* 

* RETURN * 

* VIA LINK * 

* REGISTER * 
**#«* ********** 



*****G3** ******** 

* * 

* CLEAR * 

* WORK * 

* REGISTERS * 

* * 
***************** 



*****H3********** 

* * 

* GET * 

* PARTITION * 

* ID * 

* * 
***************** 



***** j 3 ********** 

* * 

* GET * 

* PARTITION * 

* ACCT TABLE * 

* * 
***************** 



SUPERVISOR 
GENERATION 
OPTION 



**** 

* * 

* 2 * 

* * 
**** 
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Chart CA. $$A$SUP1 - SGTCHS Macro, Channel Scheduler with MPS (Part 1 of 2) 
Refer to Chart 04. 
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Chart CAA. $$A$SUP1 - SGTCHS Macro, Channel Scheduler with MPS (Part 2 of 2) 
Refer to Chart 04. 
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Chart CB. $$A$SUP1 - SGTCHS Macro, Channel Scheduler without MPS 
Refer to Chart 04. 
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Chart CC. $$A$SUP1 - SGTCHS Macro, Channel Scheduler (Part 1 of 3) 
Refer to Chart 04. 
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Chart CCA. $$A$SUP1 - SGTCHS Macro, Channel Scheduler (Part 2 of 3) 
Refer to Chart 04. 
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Chart CD. $$A$SUP1 - SGTCHS Macro, Channel Scheduler (Part 3 of 3) 
Refer to Chart 04. 
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Chart CE. $$A$SUP1 - SGTCHS Macro, Start I/O 
Refer to Chart 04. 
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Chart CF. $$A$SUPl - SGTCHS Macro, Start I/O 
Refer to Chart 04. 
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Chart CFA. $$A$SUP1 - SGTCHS Macro, Start I/O — Maximum Options (Part 2 of 5) 
Refer to Chart 04. 
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Chart CG, $$A$SUP1 - SGTCHS Macro, Start I/O — Maximum Options (Part 3 of 5) 
Refer to Chart 04. 
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...X... 


.♦. REQUEST 




* TEB ADDRESS » 


*. SYSIPT .* 




* 




. 


♦. SUPVR .♦ 






♦. FROM BG .♦ 




































X 






X 








♦ YES 






♦YES 


• CFA« 


♦ NO 






♦YES 














♦ El« 






• c, • 
























































X 


X 






X 




























X 






X 




El ». 


E2 *. 






E3 ♦. 










*#»«*E5^^^^ 
















♦ GET POINTER 










.* RETRY *. YES 


,#* WAS *♦. YES 






DASD '♦ 


NO 


♦ TO JAI 






♦ GET POINTER 




♦. IN 


♦. /+ ALREADY ...... 




FILE PROTECT 




♦ PARTITION 






♦ TO BG JAI 




♦.PROGRESS .* 


♦. READ .♦ 






♦ Kl .♦ 




♦ ACCT TABLE 






♦ ACCOUNT TABLE 




*. .» 


**♦. .♦** X 

•NO «**»♦ 






♦ . .♦ 


X 


* 


* 




* 


* 


'•NO '. 






"'♦YES 














♦ BA ♦ 








♦ CFA* 














♦ AU 








♦ Ci* 




















X 














x! ' 


X. ♦ 

ERR30 






♦ CFA^ 


STRTIC 


.X 














1 










X I 


STM0DE1 X 






♦ 01* 




X 










##»**F1»**» 


*»***F2**»*»*»*** 
















♦F5 






♦ MOVE SET MODE • 
















BRSFLG=GIOADR + 


1, 


* CALCULATE * I 


« COMMAND TO • 






STRTI2 




♦ GET POINTER 






CHART CF-A1. 




* ADDRESS OF * 


♦ CCW, GET ♦ 
♦ADDR OF STMCCW ♦ 










♦ TO JAI ACCT 










♦ CORRECT TEBV * 










♦ SIO TABLE 










» * 


♦ INTO REG 7 • 










♦ 


♦ 










##*# • * 








































♦ 3 ♦... 
































X 


X 










»*## X 






















NXT1 .». 










Gl ♦. 


G2 •. 










G4 ♦. 
































.♦ RETRY ♦ . YES. 


YES .• ♦. 








IN 


USE •♦ STATUS ♦ 


. OVERFLOW 






*. IN .*..X. 


SENSE .♦ 












...♦. OF TABLE 


.♦. 










•.PROGRESS .• 








♦. ENTRY .♦ 






























































♦ NO 


• NO 

!...*CFA^ 
♦ G4^ 












?EMPTY 




















X 
















X '. 


L0GPRC1 X 










X 






X 




•****Hl*»»*»»***» 


*###*H2 ••»»»•••«♦ 






H3* '♦. 




• ♦••(^♦•♦♦♦♦♦^ 






#»#»#H5 ♦♦♦♦•»♦♦ 






* * 




















* INCREMENT SIO * '. 


* STORE ADDRESS * 




* 


DEVICE *♦ 


YES 


♦ STORE CHANNEL 


* 




• TURN ON 


* 


♦COUNT AND STORE* 


♦ IN REG7 AT ♦ 


♦ADDRESS ALREADY 


♦ AND 






» OVERFLOW 




♦ IN TEBV • 


♦ CMDADR (CAW) ♦ 






. ENTERED .♦ 






•DEVICE ADDRESS 






• INDICATION 


♦ 


«»*•«•««•••••*«** 


**••*«*•*•••*•***. 






**# #** 






**••«*««•*««»*• 


»* 




••*•«*••**•••*• 


»• 










'♦NO 


















Ix 1 


x! 














X* 












ESTV0UT1 X 


L0GPRC2 X 








< 




COUNT X 












»••*« j 1#» #»###»*# 


♦ ••••^♦♦•••♦♦♦♦^ 




»*J3#*#»*#»#*» 


• ♦•♦♦^••♦»»«»» 




































« RESTORE • 


• MOVE TIC » 


« 




GET NEXT 


• 


» INCREMENT 


• 










• REGISTERS • 


♦ ADDRESS TO • 






TABLE 


♦ 


* COUNT 












• FROM ESTVSAVE • 


♦ USER CCW # 






ENTRY 




• BY 1 












« * 


#•• 


* 




»*••»**.*••», 


* 




















































X 


X 






X 




♦ 4 ♦... 














•CFA» 






«****♦ 




• • .X 












• « 














• 1 • 


• El» 






• 3 ♦ 




EXIT X 












* # 










*»#«*K4***»«*«* 












SIO 






*••• 




♦ RELOAD 

♦ WORK 


♦ 
* 








•Kl 


• K2 










♦ REGISTERS 


♦ 










. EXT03 IF ATTENTION 




















GENERATION 


. EXT02 IF RETURN FROM 




















OPTION 


ERP TRANSIENTS 
. EXT01 FOR OTHER 










I 












CONDITIONS 














. 
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Chart CH. $$A$SUP1 - SGTCHS Macro, Start I/O — Maximum Options (Part 4 of 5) 
Refer to Chart 04. 



Al «. 

RETRY 
IN 
.PROGRESS 

*'*N0 



•*Bl»*»#«*« 

•SET SWITCH 

* AT PCHKSW 

» TO BRANCH 

» «A5 



»«*B2»»»»»«*» 
COPY USER 
TIC ADDRESS 
TO CHANNEL 
CHAIN TIC 
CCW 



INHWRITE 
»*«##C1» 
•GETPIB 



GET ADDRESS 

OF REQUESTOR 

PIB 



* WRITE 

ALLOWED ON 
». SYSRES . 



*#E1*»**»»« 

CALCULATE 

DESIRED 

CHANNEL 

CCW CHAIN 



INHIBIT LONG 
SEEK, STORE 
CHANNEL CCW 

CHAIN ADDRESS 
IN CAW 



Gl ». 

DEVICE 

IN 
SYSRES 

"♦NO 



•CJ-C2 
FJ-CL 
FK-B4 



YES .• USER • 
...». SEEK 

♦ . CHAINED .♦ 



NO . 


* 


CCW'S • 








LONG 




* 


* 


. SEEK .• 




X 




*. .* 








• YES 




• BA * 








• Al» 
























ERR33 








LGDD 




X 




• ■!**■ 






COPY USER 








SEEK TO 






CHANNEL CHAIN 




* 




SEEK CCW 


• 


»< 






* 



SET SWITCH 

AT PCHKSW 

TO NO-OP 

• »A5 



INHIBIT 

WRITE IN 

CCW 



SET BRANCH 
AT NOPINS 
TO BRANCH 
• «J2 



»J2 

BRANCH = NO EXTENT 
CHECK (INDICATES 
DEVICE IS SYSRES). 
NOP = CHECK JIB 
EXTENTS. THE SWITCH 
IS RESET TO NOP IN 
THE STRTIOL 
ROUTINE. 



♦ K2 
SUPERVISOR 
GENERATION 
OPTION 



A3 *. 
.* USER •. 

.» CCW CHAIN • 

.HAS TIC FOLL- 

•. OWING THE.» 

•.SEEK .* 

"'•NO 



*»»*B3******»*» 
LOAD ADDRESS 
OF USERS 2ND 

CCW INTO 

CHANNEL CHAIN 

TIC CCW 



• A5 
SET ON TO INSURE 
MAINTAINED-CONTROL 
IN CASE OF A PROGRAM 
CHECK. AS A RESULT OF 
USING INVALID USER- 
SUPPLIED ADDRESS 
PARAMETER. 



RESTORE 

TIC 

CODES 



GET ADDRESS 
OF LUB FOR 
THIS DEVICE 



••*C5**»*«»** 

GET 

APPROPRIATE 

SYSCLB LUB 

ADDRESS 



»E4 
BRANCH = CHECK DIB 
EXTENTS FOR 

1. SYSRDR 

2. SYSIPT 

3. SYSPCH 

4. SYSLST 



.• JIB ». 

.CHECK SWITCH . 
». «J2 .* 



GET ADDRESS 

OF CYLINDER 

NUMBER FROM 

SEEK CCW 



•CJ » 
• CI* 

SYSFILE 
BRANCH 



JIB 
POINTER = 
. X'FF' . 



•GET ADDRESS OF 
•JIB CONTAINING 
♦ EXTENT 



• 4 
CLCINS 



SET SWITCH 
AT PCHKSW 
TO NO-OP 



X 

• BA • 

• Al» 

ERR32 
YES 



DEVICE 
IS DATA 
CELL 



VALID 

LOWER 

EXTENT 



G5 ». 

DEVICE 

IS 

2311 



♦ NO 



•GET ADDRESS OF 
* NEXT JIB CON- 
STAINING EXTENT 



DASD2311 

»**#»J3»#»*#»»*« 
•GET ADDRESS OF 

• SUBCELL AND 

• STRIP FROM 

• SEEK ADDRESS 



VALID 
UPPER 
EXTENT 



GET LUBID 

FOR THIS 

DEVICE 



♦ GET ADDRESS 

* JIB CON- 
TAINING EXTENT 
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Chart CJ. $$A$SUP1 - SGTCHS Macro, Start I/O 
Refer to Chart 4. 



— Maximum Options (Part 5 of 5) 



•••«A2***«****» 

» SYSFILE2 * 
*(FR0M CHART CP)* 



SYSFILE4 X 

»*B1******* 

•SET SWITCH 

» AT PCHKSW 

* TO BRANCH 

* *J4 



* E3* 



SYSFILE 

»««**C1*»»»*»*» 

* LOAD ADDRESS 
» OF SYSFILEl 
« INTO LINK 

• REGISTER 6 



#A5*«»*» 
JIBTYP 



» SYSRDR 

OR 
*. SYSIPT 



.« CURRENT *. 

•ADDRESS = USER. 

». SEARCH .• 

♦.ADDR .* 



SYSFILE2 

#«»**D1»«»»*»»*» 
» GET START 
» ADDRESS OF 

• DIB FROM 

• COMMUNICATION 

• REGION 



El *. 

SYSPCH 
• • • 

"•NO 

X 
Fl* *». 

SYSLST 



•*»»«B3****«**** 

• INCREASE 
•SEARCH ADDRESS 

.X« BY 1 RECORD 

• IN SAVE AREA 



C3 ♦. 

.♦CURRENT*. 
ADDRESS = 
INCREASED 

. ADDRESS . 



COUNT 

FIELD 

VALID 

*F3 



CALCULATE 
ADDRESS OF 
SYSPCH DIB 



*##F2»**»»*»*« 

CALCULATE 
ADDRESS OF 
SYSLST DIB 



X 

• *. 

Gl •. 


INDIB 

»»*##G2»**»»» 


READING •. NO 
PAST .*.... 


« CALCULATE 
....X* ADDRESS OF 


/S .• 


• SYSIN DIB 



CALCULATE 

ADDRESS OF 

NEXT JIB 

IN QUEUE 



EXTENT 

TYPE 

JIB 



»E5****« 

TSTNXT 



• F3 
COUNT FIELD 
POINTED TO 
BY USER'S 
WRITE-CDUNT- 
KEY-AND-DATA 
CCW. 



YES .» END OF 

...•. QUEUED 
•. JIBS 

x "*• •*" 

BA * 
Al# 



GET CHAIN 

FIELD FROM 

THIS JIB 



.« THIS *. 
* ROUTINE 

ENTERED AT 
•.SYSFILE2 . 



RETURN TO 

LINK ADDRESS 

(CHART CP) 



* 2 • 

• •*» 



FILE1 .•. 








J2 «. 




»#*#»J3»»#*»»#»#« 


.•CURRENT*. 




• 


GET USER'S • 


.* ADDRESS • 


NO 


•SEARCH ADDRESS • 


•. GT END 


*..••• 


...X» 


INTO SAVE • 


*. ADDRESS .* 






AREA FROM CCW • 


• • ■• 






• 










• YES 






* 


X 






X 


»*••« 






•»*• 


• BA • 






* • 


• Al» 






* 1 * 



»J4 

SET ON TO INSURE 
MAINTAINED-CONTROL 
IN CASE OF A PROGRAM 
CHECK AS A RESULT OF 
USING INVALID 
USER-SUPPLIED 
ADDRESS PARAMETERS. 



SUPERVISOR 
GENERATION 
OPTION. 



»K4 
USE JIB POINTER FROM 
LUB TO FIND FIRST 
JIB, USE CHAIN FIELD 
IN JIB TO FIND NEXT 
JIB IN QUEUE. MULTIPLE 
JIB EXTENTS MAY BE 
PRESENT. 
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Chart CK. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 1 of 7) 
Refer to Chart 04. 



«A1»*«»* 
SETREG 



»»#A2»*«**««» 

LOAD ADDR 

OF EXT01 

INTO REG 9 

FOR GENERAL 

EXIT 



SET BASE REGS 

FOR RMS 

SUPERVISOR 



» B2* 
CCENTRY1 



LOREGS X 

* RESTORE CHAN 
» AND UNIT AND 
» PUB ADDR TO 

• REGS 2 AND 3 



TO GETCHQ (CK-A4) 
OR TO JG-F4 IF BAL 
TO SETREG. 



♦ HI 
SUPERVISOR 
GENERATION 
OPTIONS 



NO .* 


SAME 
CHANNEL 


X 

CP * 
Bl» 


INITREG 



.» CHANNEL » 


YES 


• . FAILURE 


*. . . . 










« . . « 


X 


• NO 






• OF • 


• • . . 


• D4* 






» A3» 






CHFAIL1 


CHN0K1 X 




•••»*D2********** 


•RESET WAIT BIT 




•IN I/O OLD PSW 




• LOAD ADDR OF 




• GETCHQ IN R7 




* 


* 


«*»• 








* 2 «... 








• *•• X 




SETREG .♦. 




E2 •. 








.* MPS • 


NO 


*. OPTION 





I/O 

ACTIVE IN 

RMS 



LOAD BASE 

REGS FOR 

RMS 

SUPERVISOR 



• *»F2«*»*»"« 

LOAD PUB 

ADDRESS OF 

LAST DEVICE 

STARTED ON 

CHANNEL 



.•INTER- *. 
» RUPT FROM • 

LAST DEVICE 
». STARTED .* 



G2 *. 

.•INTER- ». 
» RUPT FROM * 

LAST DEVICE 
». STARTED .♦ 



•GET ADDRESS OF 

♦ FIRST PUB 

• ON CHANNEL 



INTERRUPT 
FROM THIS 
. DEVICE . 



INCREMENT 
POINTER TO 

NEXT PUB 
IN CHANNEL 



INTERRUPT 
FROM SAME 
. DEVICE . 



»*»*J3»*#»*»*« 

INCREMENT 

POINTER TO 

NEXT PUB IN 

CHANNEL LIST 



STILL 
IN SAME 
CHANNEL 



GET FIRST 
CHANQ ENTRY 
FOR DEVICE 



SYSTEM/370 
». «H1 

"♦NO 



.X. 



OLTEP 

OPTION 

• HI 



IS 

THERE A 

CCB 



♦NO 

'. INITREG 



NO .♦ TP OR 
,..♦. RETAIN/370 
♦ . »H1 



B5 ♦. 
.• CHANQ ♦. 
• PTR IN 
PUB EQUALS 



.APPENDAGE. 
NO .♦ ROUTINE • 
X...». SPECIFIED 

•. IN CCB .• 



. 


♦ OLTEP » 




YES 




REQUEST 












X 




• YES 




♦ CKA^ 

♦ Al* 




X 








**#F4»»»*»»^» 














• 


GET OLTEP 


• 


NO 




APPENDAGE 








ADDRESS 








X 




X 

♦ CKA^ 

♦ Bl» 

TSTUC 




•+*G^**»»»»*+ 








GO TO OLTEP 








WITH THIS 






* 


INTERRUPT 


* 





MPS 

OPTION 

♦ K2 



GET ADDRESS 

OF REQUESTER 

PIB 



J4 •. 

.♦CHANNEL*. 
• END AND ». YES 

DEVICE END .*... 
». ALONE .» 



CHANNEL *. YES 
END .*..X 
ALONE .* 
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Chart CKA. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 2 of 7) 
Refer to Chart 04. 



• YES 
!..» 1 * 







CI • . 












•CHANGE 








YES 




END OF 












DEVICE 






* 


* 


* 


END 


^ 


* 




X 












**•«• 




• NO 








»CP * 












» B3» 




























.X. . 








CHNDRT 


X 
























Dl ». 
























MPS 






NO 


* 




OPTION 






*. . 



»#**A2««*«»*«*» 

GET ADDR 

OF REQUESTORS 

APPENDAGE 

ROUTINE 
FROM CCB 



ft«»«B2*»**«»»* 

LOAD CHANNEL 

APPENDAGE 

ADDRESS INTO 

REGISTER 8 



.• ADDRESS • 
.GREATER THAN 
*. END OF .* 
•.CORE .» 



•LOAD REQUESTER 
» APPENDAGE 

• ROUTINE ADDR 

• INTO REG 7 



.•DEVICE ». 






.•BUSY OR ON *. 


YES YES 


.• UNIT 


«. QUEUE .» 


.... .... 


*». 


•.ENTRY.* 








X 




• NO 




• NO 




• DA • 




x. 


♦ B3» 














X 


UNTCK2 


X 


.». 




.*. 


Gl ♦. 




G2 ». 








.* CHANNEL •. 


YES YES 


.» CHANNEL 


ERROR 


X....« 


ERROR 
















X 




• NO 


• DA • 

• Kl» 


• NO 



.* ADDR *. 
.GREATER THAN*. NO 
END OF .•... 
». CORE .• 



YES .» REQUESTER 

...*. PARTITION 

•.CANCELING. 



•***G3**«»»»*» 

SAVE 

ADDRESS 

OF REQUESTER 

PIB 



• Bl« 
TSTATTN 



•SAVE REGISTERS 
•OF INTERRUPTED 
• PROGRAM 



NO .* T/P 
,..•. OPTION 
». »K2 



PCI 

BIT ON 
X«80» 



SET BG PIB 

TO N0T-SVC7- 

BOUND 



*D4 
CK-A5.B5 
CK-C5»F5,J5 



USRAPPEN 

*****F4«**"«*»* 

• LOAD CHANNEL 
•APPENDAGE ADDR 

• FROM REG 7 

• INTO REG 8 



♦ BRANCH VIA 
♦REG 8 TO USERS 

• APPENDAGE RTN 



SKIP 

CSW PROC 

*A2 







X 


• . .* 








• NO 






♦CL * 








♦ H2* 




• 3 «... 








* • . 








«**• . 




CEDETST 


X 


X 








»**#*J3»******« 






J4 *. 








• TP 


• GET ADDRESS 




NO .• 


SDR 


* OF REQUESTER 






WRITE 


• PIB 


* 




REQUEST 


?••••••««*»*••« 


* 


X 


». . 
*. .* 



• Kl 

RETURN TO ADDRESS 

IN REG 9 
.EXT03 IF ATTENTION. 
.EXT02 IF ERP TRANSIENT 

RETURNED (SVC 3) TO 

EXIGN OR EXWHY. 
.EXT01 FOR OTHER 

CONDITIONS. 



SUPERVISOR 
GENERATION 
OPTION 



D5 *. 

.•REQUEST*. 

.•PIB HIGHER *. 

.PRIORITY THAN. 

♦.INTRPTED .* 

•• PIB .• 

**YES 



»**»E5*#»#*»#* 

LOAD ADDRESS 

OF EXT03 TO 

REG9 FOR 

GENERAL EXIT 



#***H5 ♦**»♦••••• 

SET REQUESTER • 

1U NOT -SVC7- • 

BOUND • 



•CP » 

♦ B1*INITRG 
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Chart CL. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 3 of 7) 
Refer to Chart 04. 



**** 

* * 

* i * 

* * 
**** 



*****A2********** 

* ATTACH * 
♦ATTENTION RTN. * 

* SETUP EXT03 * 

* IN REG 9 FOR * 

* GENERAL EXIT * 
***************** 



**** X 
CHEND .*. 
B2 * 



**ci******* 



*********** 



01 *. 
.* SUPVR *. 
YES .♦ UPDATE OR *. 
X..*. REALLOCATION .* 
*. IN PROC .* 



El *. 

NO .♦* DEVICE 
,X.*. A 1052 



**** 

* * 

* 3 * 

* * 
**** 



NO .♦ PTO 
...♦. OPTION 
*. *E2 



**G1******* 

♦TURN ON PIB* 

*ATTEN SWITCH * 

* BYTE 8, * 

* BIT 3 * 

* *J5 * 

*********** 



.* ANY *. NO 
DEVICE .*... 
*. STATUS .♦ 



02 



*. 



.* CCH *. YES 
PRESENT ...... 

*. IN CSW .♦ 
♦ . *F5 .* 

*. .* X 

*N0 ***** 

*CP *CHNDRT 
* B3* 
* * 



NO .* TP 
X..*. OPTION 
*. *E5 



NO .* DEVICE 
<..♦. TYPE 
*. 2702 



G2 *. 

.♦ STAT *. 

.* MOD, BUSY * 

*.AND CTL UNIT 

*. END .* 



**** 






* * 






* 2 * 






* * 






***# 






NOTBSY X 






**A4******* 






* RESET DEV * 






* BUSY AND * 






* INTERVENTION * 






* REQUIRED * 






♦FLGS IN PUB* 






*********** 




♦B5 
CKA-G1.G2 


X 




DA-K1 


.*. 




DB-A2 


B4 *. 




DD-C4 


.♦ *. 






.♦ DEVICE *. NO 




*. END POSTING .* 






♦.REQUIRED .♦ 






*. •* 






*. .* 


X 




* 


♦**♦* 

*CN * 

♦ E3^ 

* * 

SELECT 




X 






**C4******* 




♦C5 


♦POST DEVICE^ 




RETURN TO ADDR 


♦ STATUS FROM ♦ 




IN REG 9 


♦ CSW TO BYTES ♦ 




. EXT03 IF 


* 4 AND 5 ♦ 




ATTENTION. 


♦ OF CCB ♦ 




. EXT02 IF ERP 


*********** 




TRANSIENT 
RETURNED (SVC 3) 


I **** 




TO EXIGN OR 


* * 




EXWHY. 


. ..* * ♦ 




. EXT01 FOR OTHER 


♦ G5^ 




CONDITIONS. 


**** 






TRNOFF X 






**Q4******* 






♦ RESET DEV ♦ 






♦BUSY, POST DEV+ 






♦ END + INTER- ♦ 






♦VENTION REQ«D+ 






♦FLAG IN PUB^ 






*********** 






'. **** 






♦ ♦ 






...♦ CQ ♦ 






♦ 04+ 






X **** 






TSTERF .*. 






E4 *. 




♦ E5 


.* *. 




SUPERVISOR 
GENERATION 


.* PIOCS ♦. YES 


♦. ERROR RTN .* 




OPTION. 


*. OPERATING. ♦ 






*. *H5 .♦ 






*. .* 


X 




♦ NO 


***** 




j 


♦CM ♦ 
♦ Bl* 
* * 

* 




X 


PURGE 




.♦. 






F4 ♦. 




♦ F5 


.♦ *. 




IF ADDRESS NOT 


.* TEB/ ♦. NO 


PRESENT = DEVICE 


♦. TEBV/EVA .♦ 




END ONLY. IF 


♦. OPTION .♦ 




PRESENT = CHANNEL 


♦. ^E5 .♦ 




END. 



**Hl******* 

♦CHANGE ATTN^ 

♦RTN PIB FLAG * 

* TO X«83« TO 

* INCLUDE ♦ 

♦ ATTN RTN * 

*********** 



.♦ MPS 
OPTION 
♦ . +E5 



ATTENTION 

ROUTINE 

.IN SYSTEM. 

♦. +K5 .♦ 





.♦.♦ CKA* 




...X. 


* H4^ 




X 


**** 


CEDETST 


.♦. 
H2 ♦ 






* 


*. 


.** 


DEVICE 


*. 


*. 


END 


.* 



***** 
*CP ♦ 
* Bl* 



TEB *. NO 
OPTION .♦..X 
*E5 .* 



♦G5 
CQ-B4 
FF-E5.H5 
JG-F4 
HH-F4 



**** 

* * 

* 1 * 

* * 
**** 



* 3 * 

* * 
**** 



**K2******* 
RESET DEVICE^ 

♦ BUSY AND ♦ 
INTERVENTION 

♦ REQUIRED ♦ 
FLAGS IN PUB^ 

*********** 



***** 
** * 
♦ C5^ 



.♦. 




*J5 


J4 ♦. 




PTAFTCH FOR 


.♦ *. 




SSANERRY, Zi 


.♦ DEVICE ♦. NO 




♦. 2495 TCR .♦ 


.X 




♦. ♦ES .♦ 






♦ . .♦ 






♦ . .♦ 


X 


♦ YES 


♦**** 




*CM * 


X* 


* A2^ 




* * 


X 


* 


*****K4********** 




♦ GET TEB/TEBV ♦ 




♦ NUMBER FROM ♦ 


♦K5 


* PUB AND ♦ 


SET TO BRANCH IF 


♦CALCULATE ADDR * 


LOGICAL TRANSIENT 


♦ OF TEB/TEBV ♦ 


IS IN ATTENTION 


***************** 


ROUTINE 


X 

***♦♦ 




♦CM ♦ 




♦ Al* 
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Chart CM, $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 4 of 7) 
Refer to Chart 04 • 



*CN * 
• Al» 



.»CL-F4,H4,J4 



RESET RETRY 

COUNTER IN 

TEB/TEBV 



»CL « 

• E4* 

PURGE X 

»*B1*»*»»»» 

* POST • 

• TRAFFIC BIT » 

• IN CCB • 

• BYTE 2 = • 

* X'80« • 



RESET RETRY 

COUNTER IN 

PUB 



A3 *. 

.♦REQUEST*. 
.•PIB HIGHER «. NO 
.PRIORITY THAN.*... 
».INT PROG .» 
•. PIB .» 



• K4 



• YES 



»»»»B3**«*»*»»» 
LOAD ADDRESS 

OF EXT03 
INTO REGISTER 

9 FOR 
GENERAL EXIT 



•»*A4******* 

RESET PIB 

POINTER IN 

REGISTERS 

8 AND 10 



CBF 

OR SEEK 

•SEP USED 



AP 
OPTION 

*H4 


• . NO 
•••«.. 


'•YES 




X I 

D3* "«. 1 
.♦ M.T. ». 

WAITING *. 
FOR S.T. TO .» 
. FINISH .* 
♦.CNCL .» 

*. .* . 
• NO 


!x... 





*#E2******* 

• SET OFF • 
•CBF/SEEKOVLP 

BIT IN CCB 
• (BYTE 12, 

♦ BIT 7=0) » 



»»»»»G1»*»******* 
•GETPIB CR» 
»-»-*-•-»-»-»-#—# 

• GET ADDR OF » 

• REQUESTOR • 

• PIB » 



###»*F3***»»«**» 

• SET PIB 

• FLAG TO 
•N0N-SVC7-B0UND 



. NO . 


» DEVICE ». 


X...». 


A 1052 .* 








• • •* 


X 




#»»* 


»YES 


CN • 




Al» 




* • 




* 






X 


#< 


***HZ* ********* 


* 


DECREASE • 


• 


NUMBER OF • 


s 


BUFFERS IN • 


• 


USE BY 1 • 


• « 


•••»••••»»•»*•« 



X 

•*G3******* 

* SET * 

• REQUESTER • 
♦PIB FLAG TO NOT* 

• SVC 7 • 

* BOUND • 



• 5 • 
• •** 



•»»*»J1»«»»*»*»«« 

• POINT TO PIB • 
» EXTENSIONS • 

• OF REQUESTER • 
♦AND INTERRUPTED* 

• TASK * 



«H4 
SUPERVISOR 
GENERATION 
OPTION. 



»J4 
DEQUEUE FIRST CHANQ 
ENTRY FROM QUEUE FOR 
THIS DEVICE AND ADD 
IT TO THE FREE LIST. 
WHEN MICR = 1412/1419, 
THE SYSTEM MASK IS SET 
AT THIS POINT TO 
DISABLE I/O INTERRUPTS 
ONLY. 



ANY MICR 
SUPPORT 



SSM TO 

DISABLE 

INTERRUPTS 



***D5******** 
RESET REQID 

ENTRY FOR 

THIS CHANQ 

TO X'FF' 

*J4 



AP 


* 


. NO 


OPTION 






*H4 












♦ . .* 






• YES 






X 






•#F5*******« 


># . 








RESET TASK 






REQUESTOR 




* . 


ID TO X«FF« 




* 




X '. 



*#»#*G5****** 

* SAVE PUB 

* CHANQ 

* POINTER 



»»*«H5******** 

MOVE CHAIN 

FIELD FROM 

CHANQ ENTRY 

TO PUB CHANQ 

POINTER 



**«*J5***«»**» 

MOVE FREE 

LIST POINTER 

TO CHAIN 

FIELD OF 

CHANQ ENTRY 



Kl *. 

.•REQUEST*. 

•PIB HIGHER ». 

RRTY THAN INT. 

•.PROG PIB .• 

*. »J3 .• 

• • •• 

• NO 

lx 


YES 
*..... 


•»#»«K2***«»*»*«» 

• LOAD ADDRESS • 

• OF EXT03 INTO • 
..X* REG 9 FOR • 

•TASK SELECTION • 

• • 


•*K3»****** 

* SSM TO ♦ 
• DISABLE • 

• INTERRUPTS • 


• K4 
NOTE 

IF THE INTERRUPTER PROGRAM 
HAS HIGHER PRIORITY THAN THE 
PROGRAM TO WHICH THE DEVICE IS 
ATTACHED, RETURN IS TO THE 
INTERRUPTED PROGRAM. IF THIS 
IS NOT THE CASE, GO TO TASK 
SELECTION 


; 


X 

• » 

• 3 * 

• • 


X 

»•«* 

• • 

• 2 • 

• • 
•••• 
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Chart CN. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 5 of 7) 
Refer to Chart 04. 



***** 
























.• CM- 


-F2 


»G2 


X 












Al *. 












SEEK 




NO 


SEPARATION 






•K2 


* 





•#B1*«»**«* 

• TRN OFF BTS» 

• FOR POST AT * 

♦DEVICE END AND 

•ACCEPT UNREC * 

•EROR IN CCB« 



GET ADDRESS 

OF CCW 

FROM CCB 



•«*»A2**»***** 
LOAD RETURN 

ADDRESS 

TSTEOJ AND 

GET CHAN AND 

UNIT NUMBER 



GET 

CHANQ 
ENTRY 



♦••*C2**«***»* 

BRANCH TO 

AREA IN LINK 

REG 7 • 



•««D1»»»»»*« 

LOAD FIRST 

CCW AND 

TURN ON 

CHAIN BIT 

IN SEEK 



*««E1«»«»»»» 

TEST CCB 

BYTE 2 FOR 

EOF AND 

TURN OFF 

INDICATOR 



CPU 
MODEL 50 
. OR UP 



.» ENTSVC- 
UNCOND 
». BRANCH 



REQUESTS 


* 


NO 


FOR THIS 






DEVICE 


• 


















►YES 






X 












C4 ». 












DEVICE 


» 




AVAILABLE 


# 


• 


*. .* 












• NO 








X... 







ANY 
REQUESTS 
. ON MPX 
•.CHAN .« 



BMPX 

OPTION 

• K2 



• TEST 

PROCESSING 
*. «K2 



.» CCB ♦. NO 


DOTCH 


.« TELE- 


*. BYTE 2 .».. 




•. PROCESSING 


». X'40' -* 


• F2 


• . *K2 


•. EOF .» 


RETURN TO ADDR IN REG 9. 


*. . • 




.EXT03 IF ATTN INTERRUPT 




• YES 


OR DEVICE OF HIGHER 
PRIORITY PROGRAM. 
.EXT02 IF ERP TRANSIENT 
RETURNED (SVC 3) TO 
EXIGN OR EXWHY. 


• YES 




.PDSWB IF ENTERED FROM 


X 


X 


SMICR EXIT ROUTINE. 




•»G1***«**» 


.EXT01 FOR OTHER 


G3 ». 




CONDITIONS. 




• TURN ON • 




YES .• DEVICE 


♦ ACCEPT UNREC • 




.X..«. ON 


•I/O ERROR IN * 




•.MULTIPLEX 


• CCB • 




•.CHAN .• 


»*»*#♦#»*»» 


* • CP-H2 






♦ * ♦ JH-F3 


• NO 




• • HH-H3 




* • . 


• 




* 5 »...X 












• •»* X 




X 


INITSIO .♦. 




. .*. 


HI *. 


*#»»*H2*********» 


H3 •. 


.* *• 






.« CHAN ». NO 


* LOAD RETURN * 


.« 2260 






». DEVICE 


•. *K2 .» 


* GIOADR * 






» * 




«. .* 




• . .« 



SEEK 

SEP OR 

PTO 

». »K2 . 



• ♦••Kl« 

LOAD RETURN 

ADDRESS 

DELKOTCK AND 

GET CHAN AND 

UNIT NUMBER 



GET 
CHANQ 
ENTRY 



X 
• *• 

* 
♦ 2 



• K5* 
GIOADR 



SUPERVISOR 
GENERATION 
OPTION. 



SSM TO 
DISABLE I/O 
INTERRUPTS 



SELECTOR 

CHANNEL 

. SUPPORT 



.♦ ANY • 

». DEVICES FOR 

*. RESTART .* 



CL-B4 
CM-C3 
DC-E4.E5 
DD-D5 
KF-J3 • 
HF-G4 • 
VC-G1 • 
VC-K2 • 
VC-K4 • 



SUBTRACT 1 

FROM NUMBER 

OF DEVICES 

TO BE STARTED 



G4 •. 

DEVICE 



USER 

WANTS 

SENSE 



♦ CQ 

* H^ 

SELBMX 


X 
G5* *• 


**•• 


BURST 

MPX 

DEVICE 



NO .* TELE- *. 
...♦. PROCESSING .» 
♦. «K2 .• 



♦ Bl* 
INITRG 



SIMULATE 


* 


.YES .« DEVICE 


MPX 




X A 2260 


CHANNEL 


• 


. *. 


. 




X «. .♦ 
*•«•* »N0 

• CP * 


....X. 




» Bl* INITRG . 


X 




* * X 






« •*••* 






• • * 


• 3 • 




• F2* 



♦ K5 
CE-B1 
CF-A1 
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Chart CP. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 6 of 7) 
Refer to Chart 04. 



♦A2 
CK-K1.K3 
CL-J2 

CK-MULTIPLE ENTRIES 
CQ-G4 



• A4 
SYSLST 
SYSIN 
SYSOUT 
SYSRDR 
SYSIPT 
SYSPCH 



. *CK-J4,K4 
. CL-02 ' 
X CKA-C1 



INIT REGS 

TO FIRST PUB 

ON CHANNEL 



TP 
OR 1419D 

NOT 
•.MCRR .» 



»#»«C1»*«»#*»» 

LOAD ADDRESS 

OF PUB 

LAST 
STARTED 



INCREMENT 

POINTER TO 

NEXT PUB 

ENTRY 



PAST *. 
LAST PUB 
. ON THIS .» 
•.CHNL .» 



INITCHN1 

#*»»#F1«»*»»»*»» 
•LOAD ADDRESSES 

* OF PUB LAST 
» STARTED AND 

* FIRST PUB 

* ON CHANNEL 



.« PUB ». N 

•.CHANQ POINTER.*. 
*.IS X'FF' .• 



INCREMENT 

POINTER TO 

NEXT PUB 

ENTRY 



E2 ». 

.• PAST » 
LAST PUB 
ON THIS 
. CHANNEL 



.• IS ». NO YES 


.* 


IS THERE 


*. THERE A .* 






A CCB 


•. CCB .« 






















X 








• YES 


»CN • 






*N0 


. SELECT 


» E3» 






X 


.X 
















*• • 


X 






» K2» 


















* MOVE RESIDUAL » 








* COUNT FROM » 








* CSW TO CCB » 
















X 
















E3 ». 
















.« TP OR *. 








». RETAIN/370 .* 








». *F4 .* 











.• IS «. 

* DEVICE 
SYSTEM I/O 



DEVICE 
TYPE 
DASD 



F3 ♦. 
.• CCB • . 

SPECIFY 
APPENDAGE 
. ROUTINE . 



SUPERVISOR 
GENERATION 
OPTION. 



FREDEV1 


Gl «. 






* PUB 






CHANQ 




*. 


POINTER 


- 



##»#»H1*««»»»»«» 

* INCREMENT 

• POINTER TO 
•NEXT PUB ENTRY, 
•BEGIN AT FIRST 
•PUB ON CHANNEL 



NO .* LAST 
...•- PUB 

«. STARTED 



MOVE ADDRESS 

OF NEXT CCW 

IN CHAIN TO 

CCB 



POST STATUS 

FROM CSW 

TO CCB 



• BRANCH TO • 


.« SYSFIL 


♦ ADDR IN LINK • 


♦. OPTION 


* REG 7 ♦ • 


•. *F4 


•CP-D1 WITH 


*«N0 


MPS. CP-D2 




WITHOUT MPS. 


X 




K2 


»CQ • 


RETURN TO ADDR IN REG 9. 


• B2« 


. EXT03 IF ATTN INTERRUPT 




OR DEVICE OF HIGHER 




PRIORITY PROGRAM. 


SYSFILE3 


. EXT02 IF ERP TRANSIENT 




RETURNED (SVC 3) TO 




EXIGN OR EXWHY. 




. EXTOL FOR OTHER 




CONDITIONS. 




. PDSWPF (JH-K3) IF MICR 




IS SPECIFIED. 





GET ADDRESS 

OF DIB FOR 

THIS FILE 



UPDATE 

CURRENT 

DISK ADDRESS 

IN DIB 



GET ADDRESS 

OF REQUESTOR 

PIB 



GET ADDRESS 

OF CORRECT 

COMREG IN 

REG 7 



INTERRUPT 
DURING 
. OPEN 
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Chart CQ. $$A$SUP1 - SGTCHS Macro, I/O Interrupt (Part 7 of 7) 
Refer to Chart 04. 



CP-B5,C5,H5,J3,J4 



BURST ON 
MULTIPLEX 

. OPTION . 



SUPERVISOR 
GENERATION 
OPTIONS. 



»«»C2»»*»»»** 

DECREMENT 

CSW ADDRESS 

BY 8 TO GET 

ADDRESS OF 

LAST CCW 



STORAGE 
PROTECT 

»C1 



DATA 
ADDRESS 
IN CORE 



» 2 

*»» 
TSTBMX 



.« BURST • 
.ON MULTIPLEX 
•. DEVICE .* 



•♦D3****»«* 

MOVE BURST * 
* MPX MASK 
• TO BRSFLG 
•IN START I/O 

•ROUTINE »D5* 



BMPX 

OPTION 

• CI 



B^ *. 
.• CTRL ». 

.« UNIT END, ». YES 

-DEV END, UNIT 

•CK OR UNIT.* 
*.EXCP .» 

*. .• X 

♦NO ••♦ 



•POST DEVICE* 
BUSY X'SO* • 
IN PUB 
FLAG BYTE • 



X 








D4- •. 




.»DEV END*. 




* POSTING ♦. 


NO 


REQUESTED . 




«. IN CCB .* 


. 








X 


• YES 






♦CL 






* F4 


















TSTER 


X 




»*E*t»»»«»»» 




•POST DEVICE* 




END POSTING * 




REQUIRED 




X'04' IN PUB * 




• FLAG BYTE » 





GET ADDRESS 

OF REQUESTER 

PIB 



•»H1»*»»**» 

POST EOF 

AND UNIT 

EXCEPTION 

IN CCB 







F2 *. 

/♦ 

READ 

'•NO 



NO .• SELECTOR •. 

...•CHANNEL OPTION. 

•. »C1 .* 



• POST EOF • 

X'20« IN 

PUB CHANNEL 

SCHED FLAG 



*»J3»»*«**« 

POST EOF 

X'20« IN 

REQUESTER 

PIB 



.» 


INTERRUPT 


». 


NO 




FROM MPX 








CHANNEL 




















X 




•YES 




*CP * 
♦ Bl» 




. . .X. 








X 


INITRG 




H4 ». 








.BURST ON» 








MULTIPLEX 




YES 




OPTION 






* 


♦ CI 


* 


* 








X 




♦NO 




• CN * 

» G5» 




X 








♦ ♦♦»♦ 








♦ ♦ ♦ 




SELBMX 



»K4 
RETURN TO ADDR IN REG 9. 
. EXT03 IF ATTN INTERRUPT 

OR DEVICE OF HIGHER 

PRIORITY PROGRAM. 
. EXT02 IF ERP TRANSIENT 

RETURNED (SVC3) TO EXIGN 

OR EXWHY 
. EXTOl FOR OTHER 

CONDITIONS. 
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Chart CR. $$A$SUP1 - SGTCHS Macro, I/O Interrupt Subroutines 
Refer to Chart 04. 



****A1********* 

* * 

* CQDSP * 

* * 
*************** 



* GET CHANQ * 

* POINTER * 

* FROM PUB * 

* * 
***************** 



****A3********* 

* * 

* GETPIB * 

* * 
*************** 



****A5 ********* 

* * 

* ZROREG * 

* * 
*************** 



ZROREG X 

*****B5********** 

* LOAD CHANNEL * 
♦NUMBER IN REG2 * 

* LOAD ADDRESS OF* 

* FOCL IN REG 3 * 

* * 
***************** 



****C 3 ********** 

LOAD LTK * 

FROM COMM * 

REGION TO * 

REGISTER 8 * 

* 

**************** 



*****C4********** 

* LOAD LID * 

* FROM COMM * 

* REGION TO * 

* REGISTER 8 * 

* (TASK LTK) * 
***************** 



*****D i ********** 


*****D2 ********** 




D3 *. 


* * 


* CALCULATE * 




.* * 


* LOAD ADDR * 


* ADDRESS OF * 


YES .* 


* OF LUBID * 


* CHANQ ENTRY * 




.*. PTO 


* TO REG 5 * 


* IN REG A * 




*. OPTION 


* * 


* * 




*. *F2 .* 


***************** 


***************** 


X 


*. .* 






**** *NO 






* 


* 






* 1 


* 






* 








*** 


* '. 
X 


X 


X 




.*. 


*****gl ********** 


*****£ 2********** 




E3 *. 


# * 






.* * 


* CALC ADDR * 


* CALCULATE * 




.* I/O 


* OF CHANQ * 


* ADDRESS OF * 




*. REQUEST 


* ENTRY IN * 


* LUBID ENTRY * 




*. FROM 


* REG 4 * 


* IN REG 5 * 




♦B-TRAN.* 


***************** 


***************** 




*. .* 


Ix 


* 




♦ NO 






xl 






X 


X 






.*. 


*****Fi ********** 


♦ F2 




F3 *. 


* * 


SUPERVISOR 




.* * 


* LOAD ADDR * 


GENERATION 




.* AP 


* OF CCB * 


OPTIONS. 




*. OPTION 


* INTO REG 1 * 






*. *F2 


* * 


**** 




*. .* 


***************** 


* * 




*. .* 




* l * 




*N0 




* * 








**** 








X 

.*. 




X 


X 


G2 *. 




*****G3****** 


****Gi********* 


.* *. 




* MOVE REQID 


* RETURN TO * 


.* FROM *. NO 




*F0R THIS CHA 


* LINK ADDR * 


*. FETCH .*... 




* ENTRY TO 


* * 


*. ERP/LTA .* 




* REGISTER 8 



NO .* IS * 
...♦.THIS CHANNEL 
♦.SUPPORTED.* 



****E4********* 
♦EXIT VIA REG 9 * 
♦(IGNORE CHANNEL* 
* INTERRUPT) * 

*************** 



**** 

* * 

* 2 * 

* * 
**** 



*****(= 5********** 
♦LOAD ADDRESS OF* 

* FIRST PUB ON ♦ 

♦ CHANNEL INTO ♦ 

♦ REGISTER 3 ♦ 

* * 
***************** 



****P5********* 

* RETURN VIA * 

* LINK REG * 

* * 
*************** 



*************** 



***************** 



*****G4********** 

* MOVE TASK * 

* REOID FOR * 

* THIS CHANQ ♦ 

* ENTRY TO * 

* REGISTER 8 * 
***************** 



♦ 2 



YF 


S .* 




.*. 




*. 




*. 




* 




J2 




.* 




.* 




*. 




♦ . 




*. 




* 



SUPIB 

*****K2********** 

* STORE SUPVR * 

* PIB DISPLACE- * 

* MF.NT (X«60' ) * 

* IN REG 6 ♦ 

* * 
***************** 



**** 
GETPIBI X 

*****H3** ******** 

* CALCULATE ♦ 

* ADDRESS OF ♦ 

* PIB FOR ♦ 

* CHANQ ENTRY ♦ 

* IN REGISTER 8 * 
***************** 



****J3********* 

* * 

* RETURN TO ♦ 

* LINK ADDRESS * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 
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Chart DA. $$A$SUP1 - SGUNCK Macro, Unit Check Entries (Part 1 of 
Refer to Chart 06. 



2) 



*DAA-B2,C2,D2 



MODEL ♦ . NO 

50 OR UP 

• B5 .♦ 



Bl ♦ 
BUSY 



.»CNDTI0N». 
.* CODE NOT « 
». OPERATIONAL 



»*CH 
•SET DEVICE ♦ 

* STATUS TO ♦ 
X'44' CHANNEL 

* STATUS TO * 
*X'F0« *A5 • 



BUSY 
ON MPX 
CHANNEL 



.♦ CHAN ». NO 

•DATA OR CHAIN- 

♦.ING CHECK.* 



K4* 



UNTCK2 

«»»»»B3*» ♦ * 

♦SET RETRY FLAG 

♦ IN IOERR AND 
♦GET SENSE BITS 

♦ IN CCW *F5 



USER 
UNIT 
CHECK 



ADD ONE TO 

NOSTART 
I/O COUNTER 



T/P OR 
1419D 
*B5 



CHAN 

QUEUE PTR 

. =X'FF' . 



El ♦. 

.* DASD ♦. 
NO .DEVICE USING*. 
(..». SKSEP AND . 
♦.LONG SEEK.* 
♦. OP .♦ 

YES 



* RESET 

TRAFFIC, UE 
♦AND AUE BITS 



E3 ♦. 
« CCW * 
PRESENT 
(REG 8 
NOT 0) 



EOF 
BIT ON 

'♦NO 


*. YES 


X 

Hl*»^»** 

SET AUE 
BIT ON 


\ : 


Ix '. 



CHAN 
CHAINING 
. OPTION 
*. ♦ BS .* 



CHAN 
CHAINING 
.BIT ON- IN. 
*. CCB .♦ 



GET 
COMMAND 
ADDRESS 



* STORE COMMAND 
♦ADDRESS IN CAW 

* AND IN CCB 



N0CCB1 

*».»«F3**»**ft*» 

♦ RESET ENTRY 

♦ FLAG, SET NO 
♦CCB AVAILABLE 

♦ IGNORE FLAGS 

♦ IN IOERR ♦FS 



G3 *. 
.* PUB ♦. 

.♦DEVICE END ♦. NO 

.POSTING FLAG 

♦. ON .♦ 



RESET NO CCB 

AVAILABLE 
FLAG IN IOERR 



YES .♦ CHAN 
...♦. QUEUE PTR= 
♦. X'FF' . 



♦ IS IT 

A MESSAGE 
♦WRITER CCB. 



NO .♦ BURST ♦ 

X..*.ON MULTIPLEX 

♦. OPTION .♦ 



BURST ON 
MULTIPLEX 
. DEVICE . 
*. (PUB).^ 



• •^♦♦♦♦♦♦^ 

♦ TURN OFF ♦ 

♦BURST ON MPX ♦ 

♦FLAG AT BRSFLG 

♦IN START I/O * 

♦ROUTINE *G5* 



♦ Al» 
PRTPRG 



USER 
WANT 
SENSE 



SPECIAL SWITCHES 
FOR I/O DEVICE 
NOT OPERATIONAL. 



SUPERVISOR 
GENERATION 
OPTION. 



♦ POST ♦ 
UNRECOVERABLE 

♦ ERROR FLAG ♦ 
♦ IN CCB * 



♦ F5 
IOERR IS THE 
MASK BYTE IN 
INSTRUCTION 
CCBQED, CHART DB. 



IF NO. IGNORE CHANNEL 
STATUS BITS BECAUSE, 
IN THIS CASE, BITS THAT 
ARE ON WILL STILL BE ON 
IN THE NEXT CSW STORED 
FOR THIS UNIT WHEN IT 
REACHES AN END 
CONDITION AND IS 
PROCESSED AT THAT TIME. 



RESET 
ERROR 
FLAGS 
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Chart DAA. $$A$SUP1 - SGUNCK Macro, Unit Check Entries (Part 2 of 2) 
Refer to Chart 06. 



• DA * 

* J3* 



♦A3 
SUPERVISOR 
GENERATION 
OPTION. 



NO .» PTO* 
,..*.YES OR TAPE= 
*. 7 OR 9 . 
*. *A3 .* 



02 « 

» 

TAPE 



«•••• *YES 
•DA * 
• A4* 





•••E2******* 




* 




» 


• 


INITIALIZE 


• 


• 


FOR TAPE 




• 


ERP 




* 




• 



RELOCATE 
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Chart DB. $$A$SUP1 - SGUNCK Macro, Build Error Queue Entry 
Refer to Chart 06. 
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* Bl* 
ERR31 



»»E2******* 

•SET NO CCB 
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Chart DC. $$A$SUP1 - SGUNCK Macro , Error Recovery Exits (Part 1 of 2) 
Refer to Chart 06. 
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Chart DD. 



$$A$SUP1 - SGUNCK Macro, Error Recovery Exits (Part 2 of 2) 
Refer to Chart 06. 
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Chart DE, $$A$SUP1 - SGUNCK Macro, DEQUER and RSTREG Subroutines 
Refer to Chart 6. 
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Chart DF. $$A$SUP1 - SGUNCK Macro, Error Start I/O and Channel Failure Subroutines 
Refer to Charts 06 and 07. 
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Chart DG. $$A$SUP1 - SGUNCK Macro, Machine Check Interrupt 
Refer to Chart 07. 
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Chart DH. $$A$SUP1 - SGUNCK Macro, Quiesce I/O Task 
Refer to Chart 07 
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Chart EA. $$A$SUP1 - SGDFCH Macro, Fetch (Part 1 of 9) 
Refer to Chart 03. 
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Chart EB. $$A$SUP1 - SGDFCH Macro, Fetch (Part 2 of 9) 
Refer to Chart 03. 
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Chart EC. $$A$SUP1 - SGDFCH Macro, Fetch (Part 3 of 9) 
Refer to Chart 03. 
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Chart ED. $$A$SUP1 - SGDFCH Macro, Fetch (Part 4 of 9) 
Refer to Chart 03, 
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Chart EDA. $$A$SUP1 - SGDFCH Macro, Fetch (Part 5 of 9) 
Refer to Chart 03. 
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Chart EDB. $$A$SUP1 - SGDFCH Macro, Fetch (Part 6 of 9) 
Refer to Chart 03. 
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Chart EDC. $$A$SUP1 - SGDFCH Macro, Fetch (Part 7 of 9) 
Refer to Chart 03. 
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Chart EE. $$A$SUP1 - SGDFCH Macro, Fetch (Part 8 of 9) 
Refer to Chart 03. 
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Chart EF. $$A$SUP1 - SGDFCH Macro, Fetch (Part 9 of 9) 
Refer to Chart 03. 
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Chart EG. $$A$SUP1 - SGDFCH Macro, Fetch Subroutine (Part 1 of 2) 
Refer to Chart 03. 
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Chart EH. $$A$SUP1 - SGDFCH Macro, Fetch Subroutine (Part 2 of 2) 
Refer to Chart 03. 
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Chart FA. $$A$SUP1 - SGSVC Macro, SVCs 1, 12, and 13 
Refer to Chart 03. 
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Chart FB. $$A$SUP1 - SGSVC Macro, SVCs 5 and 29 
Refer to Chart 03. 
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Chart FC. $$A$SUP1 - SGSVC Macro, SVC 2 (Part 1 of 2) 
Refer to Chart 03. 
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Chart FD. $$A$SUP1 - SGSVC Macro, SVC 2 
Refer to Chart 03. 



(Part 2 of 2) , SETLT1 and SETLT2 Routines. 
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Chart FE. $$A$SUP1 - SGSVC Macro, SVCs 7 and 11 
Refer to Chart 03. 
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Chart FF. $$A$SUP1 - SGSVC Macro, SVCs 3 and 4 
Refer to Chart 03. 



J2* 
!svc 3 



MOVE X«03« 

INTO TRTPTA 

TO INDICATE 

PTA IS 

FREE 



«*#»B3»***««** 

LOAD ADDRESS 

OF THE 

A-TRANSIENT 

NAME INTO 

REG 1 



»##»C3***»**»» 

LOAD REG 

WITH ADDRESS 

OF THE 

A-TRANSIENT 

AREA 



CLEAR 

FIK 

(REG 6) 



*A4 
FB-C2 
GD-G1,G2 



*B4* 



»A5 
SUPERVISOR 
GENERATION 
OPTION 



LOAD PIK 

FROM COMM 

REGN TO 

REG 6 

(FIK) 



PTO 

OPTION 

»A5 





»#B5»*»**» 




• 


SET SUPVR 


* 




PIB FLAG 






TO X 


85«t 






SUPVR 




* 


ACT 


VE 


t * 


»»# 












*CCA- 


-E3.F3.J4 






CD-D4,E4 


















SFT 


X 






>«C5* ►***•►»** 


» 


MOVE 


CHAN 


» 




AND UNIT 






TO 


/O 




* 


OLD 


PSW 


# 


#»# 






»»«* 



»SAVE REGS 12-0 

* IN PROG SAVE 

• AREA 



DEQUE 
NO .* 



*»F1*****»* 

*RESET SUPVR* 

» PIB FLAG * 

*TO X'04', SUPVR* 

* INACTIVE * 



INDICATE PTA 
BUSY, SET PSW 
IN PTASAVE TO 
REISSUE SVC 3 



* SET SVC 3- 

WAITING-TO- 
•FETCH SWITCH 



* LOAD A-TRAN 

* INTO THE A- 
♦TRANSIENT AREA 



INITIALIZE 

A-TRAN BASE 

REG 11 



SVC 

ISSUED BY 

. B-TRAN . 



CLEAR 

FIK 

(REG 6) 



RESTORE R 
IN PHASE 
NAME + 6 



•»»JL»**«*»»* 

LOAD ADDR 

OF EXT02 

INTO REG 9 

FOR GENERAL 

EXIT 



LOAD ADDRESS 

OF ERROR 

QUEUE ENTRY 

INTO REG 6 



.*. 


CALFET X 


G3 *. 






•FCHRT1 E 


PHYS *. 




TRANSIENT .» 


» LOAD PHASE 


OVLP .* 


•FROM CI LIB TO 


».SUPP .* 


* MAIN STORAGE 



INDICATE 

PTA BUSY 

TRTPTA 



X 
**J2****««* 

* SET ERP 
SWITCH IN 
DEQUEUER 

SUBROUTINE 

* TO NOP 



««J3«»»###* 
BRANCH TO 
$$ANERR1 
CHART TG 



»#««K2***»»***« 

BRANCH TO 

ENTRY ADDRESS 

IN REG 15 



*K4 
BA-F2 

BB-G3,H1,H4 
JG-K3 



RESTORE 
USERS 
REGS 



# E4» 

TRNOFF 



• 


STORE PHASE « 


•CQDSP 


CP« 




ENTRY ADDR * 








FROM REG TO * 


* RESTORE 






USER SAVE * 


* USERS 




li 


AREA (REG 1) * 


* REGS 


• *»« 



*K5 
ENTERED FROM $£ANERRZ 
WHEN SVC 3 IS ISSUED AND 
REGISTER 15 WAS LOADED 
WITH THE ADDRESS OF 
PUBDEQ. 



X 
2 « 



208 DOS Supervisor and Related Transients 



Chart FG. $$A$SUP1 - SGSVC Macro, 
Refer to Chart 03. 
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Chart FH. $$A$SUP1 - SGSVC Macro, SVCs 22, 23 , 24, and 26 
Refer to Chart 03. 
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Chart FJ. $$A$SUP1 - SGSVC Macro, Program Check Interrupt and SVCs 16 and 17 
Refer to Charts 02 and 03, 
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• TO REG * 



• ••»»C4-*»»»»»*»*« 
•LOAD USER SAVE • 
♦AREA ADDR FROM • 
•PC OPTION TABLE* 

• IN REG • 



•♦••♦D4»*»*»*»»« 

• RESTORE PC 
» OLD PSW AND 
•REGS FROM USER 

• SAVE AREA TO 
•PROG SAVE AREA 



YES .• USER 
...♦. PC ROUTINE 
*. IN USE . 
♦. «H4 .• 



C5 ». 

.• USER ♦. 
♦ RTN ADDR • 

TO BE RESET 
•. »G5 .» 



• STORE USER PC 

• RTN ADDR AND 
•SAVE AREA ADDR 



*»E4*»**«»* 

• SET REGS 

SAVED X^O' 

IN PIB 

FLAG BYTE 



* B2» 
EXT01 



SET0P1 

» COMPLEMENT 
» THE USER PC 

• ROUTINE ADDR 

• IN REG 

• »H4 



X 
• 4 



CE 

ROUTINES 

♦K4 



NO .* TRANS 
X..^. DUMP 
♦- ACTIVE 



• NO 



•♦♦••H3*» ••••»»• 

* MOVE OLD PSW 

• AND RESS FROM 
♦PROG SAVE AREA 

♦ TO USER SAVE 

♦ AREA FOR EXIT 



♦ G5 
USER PC ROUTINE ADDRESS 
TO BE STORED IS SPECIFIED 
IN REGISTER 0. IF REGISTER 
0=0 THE ROUTINE ADDRESS 
IS TO BE RESET. ADDRESS 
OF USER SAVE AREA IS 
SPECIFIED IN REGISTER 1. 



ROUTINE IS IN USE. 
WHEN RETURNING FROM THE USER ROUTINE VIA AN EXIT 
MACRO THE ADDRESS IN THE OPTION TABLE IS RE- 
COMPLEMENTED (RESTORED). 



• SAVE OLD PSW 

• AND REGS IN 
•PROG SAVE AREA 







«J4 






COMPARE USER SAVE AREA 






LIMITS TO END OF SUPVR 


X 




AND END OF MAIN STORAGE 


•♦♦•• J 3»^ ♦♦••»••• 


AODRESSES. 


• MOVE USER PC 






•RTN ADDRESS TO 






•PROG CHECK OLD 






• PSW, LOAD NEG 

• REG *H4 






t l 





TRANS DUMP 

CE DUMP 0F~*" 
LTA, PTA WITH 
GEN'L REGS 



....X. 
X 
• •♦• 

• • 

• 2 • 



•••••K2********* 

* LOAD USER 

♦ ROUTINE ADDR 
•FROM PC OPTION 

• TABLE TO 

• REGISTER 



• ••• 

• • 

• 3 ♦ 



STORE REG 

IN PC OPTION 

TABLE 



• K4 
SUPERVISOR 
GENERATION 
OPTIONS. 



•K5 
SEE NOTE B4 
ON CHART CH. 
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Chart FK. $$A$SUP1 - SGSVC Macro, Program Check Interrupt 
Refer to Chart 02. 



OPTIONS — USER PC ROUTINE WITH (STORAGE PROTECT, INTERVAL TIMER, OR USER OC ROUTINE). 



***** 
*AA * 
* F3* 



***** 
*JG * 
* CI* 



SEE CHART BA IF NO USER PC 
ROUTINE OPTION PRESENT. SEE 
CHART FJ IF NONE OF THE OTHER 
OPTIONS LISTED ABOVE ARE 
PRESENT. 



*B1 
SUPERVISOR 
GENERATION 
OPTIONS. 



MICR 

OPTION 

*B2 



* DASDFP * 

OR DISK I/O 
*. *B1 .* 



.♦PROGRAM*. 
CHECK * 
SWITCH 

*D5 .* 



*B5 
REFER TO NOTE 
B4, CHART CH. 



***** 
*CH * 
* E2* 



*****0l ********** 
♦SAVE ENTRY REGS* 

* 9-13 AND * 
♦INITIALIZE 2ND,* 

* 3RD, AND 4TH * 
*BASE REGISTERS ♦ 
***************** 



*G1 
PROGRAM CHECK 
OCCURRED IN 
PROBLEM PROGRAM 
(BACKGROUND 
OR FOREGROUND) 
IF 30 OR LESS. 



*****D2********** 

* STORE REGS * 

* 9-11 AND LOAD ♦ 

* BASE REG 11 * 

* WITH 4096 * 

* * 
***************** 



***** 
*JG * 
* Al* 



TRANS 

DUMP 

ACTIVE 



****#G2********** 

* *TRANS DUMP * * 
*_*_*_*_*_*_*_*_* 

* *CE .DUMP OF * * 

* LTA, PTA WITH * 

* ♦GEN'L REGS * * 
***************** 



*****[)3** ******** 

* * 

♦SAVE REGS 9-11 * 

* UNTIL GENERAL ♦ 

* EXIT ♦ 

* * 
****** *********** 



** F3 ******* 

♦MOVE X'28' ♦ 

♦INTO HLD PSW ♦ 

♦ FOR PROG ♦ 

♦CHECK OLD PSW^ 

* * 

*********** 



************* 



*****D4********** 

* * 
♦SAVE REGS 9-13 ♦ 

♦ UNTIL GENERAL ♦ 

♦ EXIT ♦ 

* * 
***************** 



* GET ADDR OF * 

♦ PROPER PIB ♦X 

♦ INTO REG 8 ♦ 

* * 
***************** 



♦ G4 
RETURN FROM PCITRT 
SUBROUTINE IF USER 
ROUTINE IS IN USE 
OR B-TRANSIENT IS 
OPERATING. BOTH RETURNS 
BRANCH TO ERR20. 



**** 

* * 

* 1 * 

* * 
**** 



*****D5********** 

♦ GET ADDR OF ♦ 

♦ PC OPTION ♦ 

♦ TABLE INTO ♦ 

♦ REGISTER 4 ♦ 

♦ * 
***************** 



*****F5********** 

♦0PTRT1 FM^ 

*_*_*_*_*_*_*_*_* 

♦ GET USER ♦ 

♦ ROUTINE AND ♦ 
♦SAVE AREA ADDRS^ 
***************** 



*_*_*_*_*_*_*_*_* 

* EXIT TO ♦ 

* USERS ROUTINE * 

* *G4 ♦ 
***************** 





H2 ♦. 




.♦ PID 


YES 


.* GREATEPs 


. . .* 


. THAN X'30 




*. ^Gl 




*. 


X 


♦ . .♦ 


***** 


♦ NO 


♦ BA ♦ 




♦ A3^ 




* * 


X 



.♦ PIK ♦ 
♦ GREATER 

THAN X'30' 
*. *G1 



* 1 * 

* * 
**** 



212 DOS Supervisor and Related Transients 



Chart FL. $$A$SUP1 - SGSVC Macro, External Interrupt (Part 1 of 2) 
Refer to Chart 05. 



*A4 
SUPERVISOR 
GENERATION OPTION. 



* SAVE ADDR * 

* OF EXTERNAL * 

* OLD PSW FOR * 

* GENERAL EXIT * 

* * 
***************** 



*****Bi ********** 
*SAVE REGS 9-11 * 

* (9-13 IF CE * 

* OPTION) IN * 

* NORMAL SAVE * 

* AREA * 
***************** 



GET PIB * 

ADDRESS AND * 

SAVE REGS * 

*************** 



**D1******* 
*RESET WAIT * 

* FLAG IN 
EXTERNAL 

* OLD PSW 

* * 

*********** 



* USER 

OC ROUTINE 

*. OPTION . 

*. *A4 .* 



Gl *. 
.EXTERNAL*. 
.* INTERRUPT *. YES 
*.KEY FLAG SET .*... 
*. IN PSW .* 
*. .* 
*. .* 
*NO 

**** 
* * 
...* 5 * 

X. * * 

X **** 
EXT1 .*. 

HI *. 
.* TIMER *. 
YES .* INTERRUPT *. 
...*. SET IN .* 
*. PSW .* 



X 
*** 
* 
* 1 



EXT03 

**** 

* * 

* 6 * 

* * 
**** 



PDTKY X 

*****K !*********» 

* SAVE ADDR OF * 

* EXTERNAL OLD * 
*PSW, MOVE REGS * 

* TO NORMAL * 

* SAVE AREA * 
***************** 



**** 

* * 

* 2 * 



BYPASS 

TIMER 

UPDATE 



**#**C 2 ********** 

* GET ELAPSED * 

* TIME AND TIME * 

* OF DAY FROM * 

* SYSTIMER AND * 

* SYSTOD *K3 * 
***************** 



*****02********* 

* RESET 

* SYSTIMER TO 

* MAXIMUM VALUE 

* X'FFFFFFFF' 



*****E2** ******** 

* SHIFT LOW * 
*ORDER BYTE FROM* 

* ELAPSED TIME * 
*AND CONVERT TO * 

* POS. QUANTITY * 
***************** 



*****F2********** 

* ADD MAXIMUM * 

* VALUE * 

* X'OOFFFFFF' * 
*TO TIME OF DAY * 

* * 
***************** 

I **** 

* * 
..X* 4 * 



G2 *. 

.EXTERNAL*. 

.* INTERRUPT *. 

.X*.KEY FLAG SET . 

*. IN PSW .* 



*****B 3** ******** 
*STORE REGS 9-11* 

* IN AUXILIARY * 
*SAVE AREA, AND * 

* SET UP 2ND * 

* BASE REG * 
***************** 



*****B4 ********* 
*SAVE REGS 9-13 

* IN AUX SAVE, 

* SET UP 2ND, 

* 3RD, AND 4TH 
*BASE REGISTERS 
**************** 



*****A5********** 

* * 

* STORE UPDATED * 

* TIME OF DAY * 

* IN SYSTOD * 

* * 
***************** 



**B5******* 

* * 

*NOP INTERRUPT* 

* BYPASS - * 

* TMRSW * 



PROB 

PROGR 

.INTERR 



INTERRUPT 

FROM 
. MICR 



PDSUPV 

*****C4**** ****** 
*MOVE REGS 11-13* 

* FROM AUX AREA * 
...X* TO SAVE AREA * 

* PDREG * 



***************** 



*****D4** ******** 

* * 

* SAVE REGS * 

* 1-10 AT * 

* PDSAVB+12 * 

* * 
***************** 



IT 

OPTION 
*A4 



**** 

* * 

* 6 * 



*BC *EXT03 



TMERT1 X 

**D5******* 

* RESET 

* SWITCH AT 
* JTBRC IN 
*ATTN ROUTINE 

* TO A NOP 
*********** 



*****E5********** 

* GET PIB ADDR * 

* OF PROGRAM * 

* SUPPORTED * 

* BY THE TIMER * 

* * 
***************** 



INTERRUPT 
FROM 
. MICR 



***** 
*BG * 
* E4* 



*****G3 ********** 

* SAVE ADDR OF * 

* EXT. OLD PSW * 

* (X« 18» ) AND * 

* MOVE REGS TO * 
*NORML SAVE AREA* 
***************** 



**H2** 
♦CHANGE ATTN* 

* RTN PIB * 
FLAG TO X'81' 

* ACTIVE * 
* * 

*********** 



**j2******* 

* POST * 
EXTERNAL 
INTERRUPT 

FLAG IN PUB 

* * 
*********** 



TIMER 
FEATURE 

*A4 



MPS 

SUPPORT 

*A4 



*****j 3** ******** 
*SAVE USERS REGS* 

* IN BG SAVE * 

* AREA, GET BG * 

* PIB ADDRESS * 

* INTO REG 10 * 
***************** 



*****j4********** 

* GET PIB ADDR * 

* OF PROGRAM, * 

* STORE USERS * 

* REGS IN PROG * 

* SAVE AREA * 
***************** 



*****H5** ******** 

* * 

* GET ID OF * 

* TASK ISSUING * 

* SVC 24 * 

***************** 



* CANCEL * 

FLAG SET IN 
*.THIS PIB .* 



*K3 
SYSTIMER = THE TIME 
ELAPSED SINCE THE TIMER 
INTERRUPT OCCURRED 
(TIMER PASSED THROUGH 
0). SYSTOD IS 
UPDATED TO THE TIME 
THAT THE NEXT TIMER 
INTERRUPT OCCURS. 



**** EXT03 



***** 
*FM * 
* Bl* 
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Chart FM. $$A$SUP1 - SGSVC Macro, 
Interrupt Subroutines 
Refer to Chart 05. 



External Interrupt (Part 2 of 2) and External 



♦*»»»B1*»»«***»« 
» LOAD USER 
•INTERVAL TIMER 
* RTN ADDR AND 
•USER TECB ADDR 
•INTO REGS 5+6 



USER 
TECB ADDR 
. PRESENT . 



POST 

TRAFFIC BIT 

IN USER'S 

• TECB • 



•A3***** 
0PTRT2 



0PTRT2 X 

#»*»»B3»»»»*»** 

• ADD NO. OF 

• THIS SVC TO 

• REG 4 TO GET 

• POINTER TO 

• OPTION TABLE 



♦LOAD POINTER TO* 

* OPTION TABLE • 

* TO REG 4 • 



USER 
ROUTINE 
IN USE 



• RESET PIB 
* FLAG BYTE 
•BIT 7 TO NOT 
•SVC 7 BOUND- 



RETURN TO 

LINK 

ADDRESS 



* LOAD ADDR OF 
•INTERVAL TIMER 

* OPTION TABLE 

* INTO REG 4 



• RESET PIB • 

FLAG BYTE 

•BIT 7 TO NOT • 

•SVC 7 BOUND* 



» 


•»»»E1*»**»»»*** 


• 


>CITRT FM» 










EXIT TO USER 


* 


» 


IT ROUTINE 




* 


»K2 


* 




X 












Fl ». 






• * •• 




NM 


.•B-TRANSIENT» 






.ACTIVE FOR IT 
«. OWNER .• 


« 



»»»*E2********* 

CLEAR ADDR 

OF TECB FROM 

IT (INTERVAL 

TIMER) OPTION 

TABLE 



PTO 

OPTION 

• K3 



SET PIB 

FLAG BYTE 

TO INDICATE 

* PTO BOUND • 



•SET PIB FLAG 

• BYTE TO NOT 

» SVC 7 BOUND 



♦ SET SWITCH 

AT ITBRC IN 
♦ATTN ROUTINE 
• TO BRANCH • 



MULTIPLE RETURNS 
FROM PCITRT 
ROUTINE. 



• K2 
THE INTERRUPT 
IS IGNORED (NO EXIT 
SET UP) IF THE 
INTERVAL TIMER 
ROUTINE IS IN USE. 



• LOAD PIK (KEY 
•OF INTERRUPTED 

• PROGRAM) INTO 

• REGS 3 AND 5 



*»»*»E3** »»•»»»» 

• ADD RES 5 TO 
•REG 4 TD POINT 

• R4 TO OPTION 

• TABLE FOR 

• PROGRAM 



• LOAD USER 

♦ ROUTINE ADDR 

* FROM OPTION 
♦TABLE TO REG 5 



**#»G3******** 
LOAD USER 
SAVE AREA 
ADDR FROM 
OPTION TABLE 
INTO REG 6 



#*H3*****»» 
RETURN TO 
LINK ADDR 



NO .• PC 
,..». SUPPORT 
*. »K3 



PC • 
INTRPT 
.EXECUTION.* 



• K3 
SUPERVISOR 
GENERATION 

OPTION. 



PTO 


• 


. YES 


OPTION 






•K3 


















• NO 






X 






»F5»»****< 






RETURN TO 




* . 


LINK 






ADDRESS+4 






**•* 


»*•»*< 







**G5******* 
RETURN TO 

LINK 
ADDRESS+8 



* SAVE OLD PSW 

* AND REGS IN 
•PROG SAVE AREA 



J4 *. 




•••#-J5-*##»#»*»- 


». 




• SAVE OLD PSW « 


FETCH ». 


NO . 


• AND REGS IN • 


IN SAME 




•USER SAVE AREA • 


PROGRAM .« 




• FOR EXIT FROM • 






* USER ROUTINE * 


*• .* 







MOVE USER 

ROUTINE ADDR 

TO OLD PSW 
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Chart FN. $$A$SUP1 - SGSVC Macro, Program Check Interrupt (SVCs 16 through 21 with 
Options) 

Refer to Chart 03. 



USER PC ROUTINE WITH (STORAGE PROTECT, INTERVAL TIMER, OR USER 0C ROUTINE). 



BL 

SEE CHART FJ IF ONLY 


SVC L7 AND 21 
• J2» 

Ix. . . 


USER PC ROUTINE, OF 
THE ABOVE LISTED 
OPTIONS, IS PRESENT. 


EXTRTL X 

»»#»»B2»****« 



SVC 16 AND 20 



SVC 18 

*BH « 
* J2« 



SVC19 X 
•TMEKEY1 



CHECK PIK 

AGAINST 
TIMER KEY 



LOAD A 

1 INTO REG 4 

TO CALC SVC 

NUMBER 

FOR EXIT 



C2 ». 

AP 

OPTION 

»C3 

'♦YES 



USER SAVE AREA HAS OLD 
PSW AND REGS FOR RETURN 
TO PROBLEM PROGRAM. 



»F1 
WHEN ENTERING A USER 
ROUTINE, THE USER RTN 
ADDRESS IN THE OPTION 
TABLE IS COMPLEMENTED 
TO INDICATE THE 
ROUTINE IS IN USE. 
WHEN RETURNING FROM THE 
USER ROUTINE VIA AN EXIT 
SVC THE ADDRESS IN THE 
OPTION TABLE IS 
RECOMPLEMENTED 
(RESTORED). 



E2 


*. 




.» PIK ». 




YES .» GREATER * 




THAN 




«. X'30« .* 




• . *D3 .• 




X ». .» 




♦ •»• »N0 




BA «ERR21 




A3* 












» 


X 


. 


SXPC1 X 






•0PTRT2 FM» 






* GET PIK AND 




• ADDR OF OPTION 




» TABLE 


tl 



SUPERVISOR 
GENERATION 
OPTION. 



♦ D3 
PROGRAM CHECK 
OCCURRED IN 
A PROBLEM 
PROGRAM 
(BACKGROUND 
OR FOREGROUND) 
IF 30 OR LESS. 



• SAVE OLD PSW • 
» AND REGS IN • 
•PROG. SAVE AREA« 



D<t *. 

IS THIS OC 

**»YES 



E4 *. 
.» PIK * 

» GREATER 
THAN X«30' 



SVC18 X 
•TMEKEY1 



CHECK PIK 

AGAINST 
TIMER KEY 



MOVE PIK 

TO LOCATION 

TWTIMS 



• E5 
USER ROUTINE ADDR TO BE 
STORED IS SPECIFIED IN 
REG 0. IF REG 0=0, 
THE ROUTINE ADDR IS TO 
BE RESET. ADDR USER 
SAVE AREA IS SPECIFIED 
IN REG 1. 



SXPC2 

»»»** F 4 »»»»#»•» * 
•0PTRT2 FM 

• GET PIK AND 
•ADDR OF OPTION 

• TABLE 



• COMPLEMENT • 

• NEW USER • 
•ROUTINE ADOR IN» 

• REG 3 • 



THE NEW USER ROUTINE 
ADDR BEING STORED IS 
NOT IN COMPLEMENTED 
FORM. 



* RESTORE 

* PROGRAM SAVE 

* AREA FROM 
♦USER SAVE AREA 



SET0P1 

• "complement* 

• user routine 

• ADDRESS 

• IN REG 3 
» »F1 



.• USER • 
RTN ADDR 
TO BE 
. RESET 



J4 ♦. 

» USER * 

ROUTINE 

IN USE 

•Fl 



•VALIDATE LIMITS* 

• OF USER • 

• SAVE AREA * 



#»»»»J5»»»»«»»»»« 

• STORE NEW • 

• USER ROUTINE • 

• AND SAVE AREA • 
•ADDRS IN OPTION* 

• TABLE «G5 » 
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Chart FP. $$A$SUP1 - SGSVC Macro, Console Buffering Routine (Part 1 of 2) 
Refer to Chart 04. 



CONBUF 

•*»»#B1# 
•CONBOK 



C0NBUF2 

*#»»#B2* 
•C0NB0K 



TEST IF DATA 

BUFFERING IS 

POSSIBLE 



TEST IF DATA 

BUFFERING IS 

POSSIBLE 



• ALL 
BUFFERS IN 

• . USE 



#*##B3»»*#»»*» 

STORE CCB 

ADDR IN CHAN 

QUEUE 

ENTRY 



*«»»C3*»«*«*»» 

RESTORE 

END OF CHAIN 

CODEt X«FF«, 

IN 

CHQCHAIN 



CHANGE DATA 

ADDR IN CCW 

TO POINT TO 

BUFFERED 

DATA 



•POINT USER 
COMPLETE, 



#»#D2******** 

LOAD ADDR 

OF NEXT 

BUFFER INTO 

REG 7 FROM 

CBNEXT 



.» ADDR * 
.BEYOND TABLE 
». END .» 



•••F2***»*«* 

LOAD ADDR 

OF FIRST 

BUFFER 

(CBTAB) 

INTO REG 7 



#*D3»«*»»»* 

MOVE 

USER CCW 

TO BUFFER 

AREA 

(CBCCW) 



• Gl 

SUPERVISOR 
GENERATION 
OPTION. 




• GET LENGTH 

* OF USER # S 

* DATA IN 

• CBMOV 



INCREMENT 

POINTER TO 

NEXT BUFFER 

AND SAVE 

IN CBNEXT 



»»«H2**»»*»»» 

INCREMENT 

CBINUSE TO 

INDICATE 1 

MORE BUFFER 

USED 



##»**G3«*»»*»»» 

♦ SET DATA 

• LENGTH 

♦ TO INCLUDE 

* PARTITION ID 

* PREFIX 




GET 
REQUESTOR 
PIB ADDRESS 



RESTORE CBF 

BASE REG AND 

MOVE DATA 

PREFIX TO 

BUFFER 




GET USER 

DATA ADDRESS 

AND MOVE 

DATA TO 

BUFFER 



»«*•• J2 ♦••»»»#•»• 
» MOVE USER'S # 

• CCB TO BUFFER • 
•AREA AND INSERT* 

• RELOCATED CCW • 
» ADDRESS • 



»»K2»»*»»«» 
•SET SWITCH • 

♦ AT CBCCB+12 
TO X'Ol' TO 

• INDICATE 

* CON BUF • 



»««K3*»*»««*» 

CHANGE DATA 

ADDR IN CCW 

TO POINT TO 

BUFFERED 

PREFIX 
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Chart FQ. $$A$SUP1 - SGSVC Macro , Console Buffering Routine (Part 2 of 2) 
Refer to Chart 04. 



*** A 2** ******* 
* 
C0NB0K * 
* 

************** 



*****B2********** 

* LOAD ADDR * 

* OF CCW * 

* INTO REG 6 * 

* * 
***************** 



*****C 2**** ****** 

* * 

* SAVE CONTENTS * 

* OF REG 8 * 

* IN CBSAVE * 

* * 
***************** 



***** 02 ********** 

* SET UP * 

* REG 7 WITH * 

* ADDR OF * 

* CCW END * 

* * 
***************** 



* CCW 
ADDR 
WITHIN 
CORE 



F2 *. 
.* WRITE *. 
NO .* COMMAND * 
(..*. (09,01) FOR 
*. 1052 .* 



G2 *. 

♦COMMAND* 

OR DATA 

CHAINED 

CCW 



H2 *. 
.* ANY *. 
.♦BITS 3,5,7 
. ON IN CCB 
*. BYTE 2 . 
*. *G3 .* 
*. .* 
*N0 



USER *. YES 
WANTS .*... 
SENSE .* 



OUTPUT 
EXCEEDS 
.80 BYTES 



*****04********** 

* SET UP REG 7 * 

* WITH ADDRESS * 

* OF DATA END * 



***************** 



DATA 
WITHIN 
CORE 



****P4********* 

* RETURN TO * 

* ADDR IN * 

* LINK REG 5+8 * 
*************** 



**** 

* * 

* 2 * 



****P5********* 

* RETURN TO * 

* ADDR IN * 

* LINK REG 5 * 
*************** 



*G3 
CONSOLE BUFFERING 
IS NOT DONE IF 
USER WANTS POST 
AT DEVICE END, 
ACCEPT UNRECOVERABLE 
I/O ERROR, OR HAS 
OWN UNIT CHECK 
ROUTINE. 



**** 

* * 

* i * 

* * 
**** 
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Chart FR. $$A$SUP1 - SGSVC Macro, SVCs 43 and 45 
Refer to Chart 03. 



CPU 

M00EL=30 

• A3 



SVC45 CODING 
GENERATED ONLY 
IF CPU MODEL 
30 OR 40. 



STORE USER«S 
PSW SAVE 
AND LINK 
ADDRESSES 



ENABLE 

EMULATOR 

MODE 



* TURN ON 
EU INTERFACE 

•(COMREG+134, 
•X'40' BIT) • 



GET SDR 

TABLE 

INDICATORS 



•RELOCATABLE*. 

VERSIDN OF . 

*. CSMO .* 



•VALIDATE ADDRS 

• FROM CSMO TO 

• BE USED IN 

• SUPERVISOR 



»*»»»E2*»»**»»*» 

* MOVE BRANCH 
•TABLE ADDR AND 

• EDIT-ASSIST 

• TABLES TO 

* SUPERVISOR 



C3 ♦. 
.« MPS, • 
• SP.OC.OR 
IT SUPPORT 



• REQUEST 

FROM 
•BACKGROUND. 



RESTORE 

SYSTEM 

BASE 



SVC43 














X 


• NO 






• LF 




• C5 


X 








*LF » 


SDRSDR 


• C4« 





PUT PROBLEM 

PROGRAM IN 

SUPERVISOR 

STATE 



•••*F1»»*»*»»«« 

COMPATIBILITY 

FEATURE 

NO. 4460 



•SAVE REGS 9-13 
» SET UP RETURN 
• PSW 



••••F2*»******* 

GIVE ADDRS OF 
EDIT-ASSIST 

TABLES NOW IN 
SUPERVISOR 
TO CS/40 



••••♦HI •••«•*••♦• 


»H2 


•GENENT BF« 


.SET SYSTEM MASK=255. 




.TURN ON MACHINE 


» INITIALIZE • 


CHECK BIT. 


• ENTRY • 


.SET MATCHING 


•••«•*•••••. ••••! 


STORAGE PROTECT KEY. 



.» IS ». 

• REQUESTER 
BACKGROUND 



SUPERVISOR 
GENERATION 
OPTION. 



.OLTEP ACTIVE 



«H5 
REG 1 CONTAINS OLTEP 
ENTRY ADDRESS ON INITIAL 
ISSUING OF SVC 46. 
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Chart FS. $$A$SUP1 - SGSVC Macro, SVC 51 
Refer to Chart 03. 
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Chart GA. $$A$SUP1 - SGDSK Macro, Disk Error Recovery (Part 1 of 2) 
Refer to Chart 06. 
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Chart GB. $$A$SUP1 - SGDSK Macro , Disk Error Recovery (Part 2 of 2) 
Refer to Chart 06. 



TRKCHK X 

* SET ERROR 

* CODE IN CSW 

* AND UPDATE 

* CCW ADDRESS 



SET UP 
TIC 

CCW 



EDRDHA1 

««**»B5* 

» TURN ON CHAIN 

• BIT TO READ 

* HOME ADDRESS 
» AND RECORD 



READ HOME 

ADDRESS AND 

RECORD 



•#C5»**»»«« 

LOAD ADDR 

OF CCW 

TO READ 

HOME ADDR 



HEAD 


• 


YES 


NUMBER 






GT 9 


















• NO 






. .xl 






X 








E3 ». 












HEAD 


• 




NUMBER 






GT 19 


















• YES 






!x 







INCREMENT 

HEAD 

NUMBER 



POST END 

OF CYLINDER 

TO CCB 



•POST TRACK • 

• OVERRUN OR • 
•END OF CYLINDER* 

• TO CCB * 



DISABLE 

WRITE 

ON SYSRES 



F4 ♦. 

.• DOES ». 
PIB ALLOW 
WRITE ON 

. SYSRES . 



ENABLE 

WRITE 

ON SYSRES 



»»»*»H1»*»*»**»»* 


*»»*»H2»*»*»*« 


• LOAD ADDR • 


•CQDSP 


» OF RECOVERY • 




» CCW TO • 


* RESTORE CHAN 


» REG 8 • 


* SCHEDULER 


» * 


* REGISTERS 







• G2* 
EXIGN 



»»»»F5*«*«*»»» 

MOVE UPDATED 

SEEK ADDR 

TO ERROR 

QUEUE TABLE 



SUPERVISOR 
GENERATION 
OPTIONS. 



DEVICE 

IS 
SYSRES 



•**H4»*»***»* 

LOAD ADDR 

OF RECOVERY 

CCW TO 

REG 8 



STORAGE 

PROTECT 

FEATURE 

♦. »J3 .• 



LOAD CCW 

KEY TO 

REG 2 



Charts 221 



Chart GC. $$A$SUP1 - SGTCON Macro, VLDADR Subroutine 
Refer to Chart 02. 
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Chart GD. $$A$SUPl - SGTCON Macro, 
Refer to Chart 02. 
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Chart HA. $$A$SUP1 - MCRAS Macro, Resident Machine Check Handler 
Refer to Chart 08. 
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Chart HB, $$A$SUP1 - MCRAS Macro, RAS Monitor (Part 1 of 
Refer to Chart 09. 



2) 
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Chart HC. $$A$SUP1 - MCRAS Macro, RAS Monitor (Part 2 of 2) 
Refer to Chart 09. 
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rhart HD. $$A$SUP1 - MCRAS Macro, Resident Channel Check Handler (Part 1 of 
Refer to Chart 9, 



4) 
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Chart HE. $$A$SUP1 - MCRAS Macro, Resident Channel Check Handler (Part 2 of 4) 
Refer to Chart 09. 
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Chart HF. $$A$SUP1 - MCRAS Macro, Resident Channel Check Handler (Part 3 of 4) 
Refer to Chart 09. 
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Chart HG. $$A$SUP1 - MCRAS Macro, Resident Channel Check Handler (Part 4 of <D 
Refer to Chart 09. 
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FROM REQID 
TABLE . 



CONSOLE ». NO 
BUFFERING .*... 
. OPTION .• 
#. »A5 .• 



CONSOLE 

BUFFERING 

CCB 



REDUCE BUFFER 
IN USE 
COUNT 



••••H2*»****** 
• RETURN 



# PUB 

MATCH ADDR 

*.IN ERPIB . 

*. PUB .* 



•UPDATE TO NEXT 

• ERPIB AND 

• LOGOUT BUFFER 



NO .• END 
...». OF ERPIB 
«. QUEUE 



•**F4******* 
RETURN VIA 
REG 7 + 4 



• HAS 

RETRY BEEN 
•.COMPLETED. 



•*E5******* 

RETURN 

VIA REG 7 
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Chart HH. $$A$SUP1 - MCRAS Macro, DASD Channel Check Handler 
Refer to Chart 8. 



•POST DASD ERPIB* 

* ACTIVE, PUT * 
•REQUESTER'S ID • 

• IN THE ERPIB • 



UPDATE 
RETRY 
COUNT 



RETRY ». 
COUNT 
•EXCEEDED .» 



RESET BUSY 
BIT IN 
THE PUB 



*G0 TO CCEXIT3 
TO TRY TO RESTART 
THE CHANNEL. 





. • 


FETCH 


• 


YES 






OPERATION 
'•NO 

X 
C4***». 




X 

• **** 

• HA • 

• B2» 

EMGEX 


NO 


.» 


LTA 
REQUEST 


* 


• 



• PUT OWNER 

• OF LTA ID 
•INTO REQUESTER 

• ID 



#»»*E4«*»»»»»»* 

TURN OFF DASD 

ERPIB SAVE 

PIB OF 

INTERRUPTED 

TASK 



F2* *♦. 

.** FETCH *». YES 
«. OPERATION 


CCDVAL2 
..X» 


»F3**»»»»» 

VALIDATE 
FETCH 


: 


X 

• POST* • 

* CHANNEL • 

• FAILURE TO » 

• PROPER • 

• PIB • 


•NO 

Ix 




\ 






X 
CCDVAL4 .». 

G2 *. 

.»* CHANNEL *». NO 
♦. CHECK ON .* 






X 
*#**»G<****»«»*»** 
♦ERRSETO BB» 

♦ CANCEL • 


». SIO .• 






• TASK • 



• RESET SIO BIT 

• AND RESTORE 
•DEVICE ADDRESS 



RESET BUSY 
BIT IN 
THE PUB 



TURN OFF 
SIO BIT IN 
RASFLAGS 



♦ CN * 

* HI* 

INITSIO 



•• J4»«*#*»* 

• RESTORE • 
•INTERPTED PIB* 

•ADDRESS, RESET 
•SEEK OVERLAP • 

• BIT * 



•GO TO TRNOFF TO 
DEQUEUE THE CCB AND 
RESTART THE CHANNEL. 
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Chart JA. $$A$SUP1 - SMICR Macro, External Interrupt (Part 1 of 3) 
Refer to Chart 05. 



♦BG-E3,D4 
FL-J4 

***** 



***** fl 3** ******** 

* INSERT * 
♦OWNERSHIP FLAG * 

* IN 'PDTASK' * 
♦(CHART JH) FOR * 

* PRIORITY TEST * 
***************** 



**** 

* * 

* 2 ♦ 

* # 
**** 



* SAVE * 

* INTERRUPT * 

* STATUS * 

* * 
***************** 



AP 

OPTION 

♦ B2 



.♦ MPS *. YES 
♦ B2 ...... 

*. .* . 


*. .* . 
*. .* 
*NO 


) 

**D1*1 

* TURN 

* WAIT I 

EXTEf 

* OLD 
* 

****** 


****** 

OFF * 
JIT IN * 
*NAL * 

PSW * 

* 
****** m 




X I 



**E1******* 

* TURN OFF * 
♦BITS AND 1 

* IN INTERRUPT 
* STATUS 

* * 
*********** 



*****fl ********** 



***************** 



PDMPI 

*****G1 ********** 
♦GET POINTER TO * 

♦ TABLE OF DTF ♦ 
♦ADDRESSESt'AND'* 

♦ OUT INTERRUPT ♦ 

♦ BIT *G2 * 
***************** 



MPS *. NO 
*B2 .*... 

.* 



***** 

♦ JH ♦ 

♦ Gl* 



♦ G2 
SEE FIGURE SHOWING 
TABLES FOR MICR DTF 
ADDRESS AND POINTERS. 



*****C 3** ******** 

♦ LOAD PIB ♦ 
♦TABLE EXTENSION^ 

♦ ADDRESS IN ♦ 

♦ REGISTER 10 ♦ 

♦ * 
***************** 



*****Q3** ******** 

* * 

* SAVE PROGRAM ♦ 

* PRIORITY ♦ 

* NUMBER ♦ 

* ♦ 
***************** 



*****£ 3********** 

♦ * 

♦ GET PARTITION ♦ 

♦ ID OF TASK ♦ 

♦ IN REG 10 ♦ 

♦ * 
***************** 



*****p 3** ******** 

♦ STORE .♦ 
♦OWNERSHIP FLAG ♦ 
♦IN INSTRUCTION ♦ 

♦ PDSPK ♦ 



*** 



************ 



*****Q3** ******** 

* * 
♦GET PROTECTION ♦ 

♦ KEY AND STORE ♦ 

♦ IN PSW ♦ 

* ♦ 
***************** 



*****H3*^**^****^ 

♦ GET ADDRESS ♦ 

♦ OF DTF TABLE * 

♦ FOR THIS * 
♦INTERRUPT FROM * 

♦ PDTABB ^G2 * 
***************** 



*****C 4** ******** 

♦ STORE ♦ 
♦OWNERSHIP FLAG ♦ 
♦IN INSTRUCTION ♦ 

♦ PDCLI ♦ 

♦ ♦ 
***************** 



*****C5***« ****** 

* * 
♦ADD 1 TO PCU TO^ 
♦GET SCU CHANNEL^ 

* AND UNIT ♦ 

* * 
***************** 



♦ TEST I/O 
TO CLEAR 
♦ INTERRUPT ♦ 

***************** 



***** 
*JB ♦ 
♦ Bl* 



.♦CHANNEL^. 
YES .♦ END OR ♦. 
...*. DEVICE END .♦ 
♦. ONLY .♦ 



***** *nq 
*JB ♦ 
♦ HI* 



***** *yeS 
♦JE * 
♦ Al* 

♦ ♦ X 

* ***** 

PDTIOERR ♦JF ♦ 
♦ Bl* 



NO .♦ AP 
...♦. OPTION 
♦ . ^B2 



*****K1 ********** 



***************** 



..X. 
X 

**** 

* * 

* 1 * 

* * 
**** 



J3 ♦. 
ADDRESS 



***** 

♦ JH ♦ 

* Gl* 



*****K3********** 

* * 
♦LOAD DATA INTO * 
♦REGISTERS FROM * 

* DTF TABLE * 

* * 
***************** 
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Chart JB. $$A$SUP1 - SMICR Macro , External Interrupt (Part 2 of 3) 
Refer to Chart 05, 



***** 

*JA * 
* E5* 



*A3 
SUPERVISOR 
GENERATION 
OPTION. 



**** 

* * 

* 3 * 

* * 
**** 



.♦IGNORE,*. NOT 
.* BUSY, OR *. OPER 
. AVAILABLE .*. 



**** 

* * 

* 2 * 

* * 
**** 



X 

***** 
*JH * 
* Gl* 

* * 

PDEXT1 



* 1 * 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 



***** 

*JE * 

* G4* 

* * 



***** 
*JF * 
* HI* 



FIRST 

TIME 

SWITCH 



#♦03******* 

* * 
TURN ON 

FIRST TIME 
SWITCH 

* * 
*********** 



* FIRST 

TIME SINCE 
*. OPEN 



**P3******* 

* TURN ON * 
FIRST TIME 
SINCE OPEN 

SWITCH 

* * 
*********** 



PDSCAW X 

*****B4** ******** 

* STORE ADDRESS * 

* OF STACKER * 

* SELECT CCW * 

* IN CAW FOR * 

* START I/O * 
***************** 



CA *. 
.* MPS *. 
.*OR STORAGE 
PROTECT 
*. *D5 



*****D4********** 

* * 

* MOVE STORAGE * 

* PROTECTION * 

* KEY TO CAW * 

* * 
***************** 



E4********** 

* * 

* UPDATE * 

* RECORD * 

* COUNTER * 

* * 
***************** 



* SET FLAG IN 

* I/O AREA FOR 

* GOOD RECORD 
* 
*************** 



***** 
*JE * 
* D2* 



* UPDATE * 
♦CURRENT RECORD * 

* POINTER * 

* * 
***************** 



.* LATE S.S. *. NO 
.OR AUTO SELCT.*... 
*. ON SCU .* 



***** 
*JF * 
* CI* 



*****j 3** ******** 

* GET POINTER * 

* TO FIRST I/O * 
.X* AREA, REMOVE * 

* HIGH-ORDER * 

* BYTE * 
***************** 



.X. 



ARM CHANNEL 

PROGRAM FOR 

DISENGAGE 



**** 

* * 

* 3 * 

* * 
**** 



*****j4********** 

* INSERT DUMMY * 

* COMMAND CODE * 

* FOR FAILURE * 

* TO DISENGAGE * 

* * 
***************** 



..X. 
X 

**** 



.* 1419D * 


. YES 


*. *D5 


.* 




*. .* 






*. .* 






*. .* 




X 


*N0 




***** 

*JC * 

* Bl* 

* * 

* 


X 






*****C5********** 




* GET ADDRESS 


* 




* OF READ CCW 


* 




* AND STORE 


* 




* IN TIC CCW 


* 





***************** 



*****Q5********** 

* GET I/O AREA * 

* ADDRESS FROM * 

* CCW AND ADD * 

* LENGTH OF * 

* RECORD * 
***************** 



*****F5********** 

* * 

* GET FIRST * 

* I/O AREA * 

* ADDRESS * 

* * 
***************** 



*****G5********** 

* * 

* STORE I/O * 

* AREA ADDRESS * 

* IN CCW * 

* * 
***************** 



*****H5********** 

* * 

* MOVE SENSE * 

* BYTES TO * 

* BUFFER * 

* * 
***************** 



***** 
*JC * 
* F2* 



PDNOSS 

****#K5 ********** 

* NO-OP STACKER * 

* SELECT CCW * 

* COMMAND * 

* CODE * 

* * 
***************** 



.PDSS 

X 

***** 

*JC * 

* B5* 

* * 
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Chart JC. $$A$SUP1 - SMICR Macro, External Interrupt (Part 3 of 3) 
Refer to Chart 05. 



***** 

*JB * 
* K5* 



***** 


RETURN FROM 
USER'S STACKER 
SELECT ROUTINE 
(VIA ENTSVC, 
(CHART BH). 

*** 


*BH * 
* C4* 


* 
* 2 



*****d ********** 

* * 

* GET I/O * 

* ADDRESS FROM * 

* FIRST CCW * 

* * 
***************** 



*****D1 ********** 

* * 

* ADD LENGTH * 

* OF BUFFER * 

* RECORD * 

* * 
***************** 



*****p i ********** 



***************** 



*****Gi ********** 

* * 
♦STORE I/O AREA * 

* ADDRESS IN * 

* ALTERNATE CCW * 

* * 
***************** 



*****H1 ********** 

* PUT * 

* CORRESPONDING * 

* SENSE BYTES * 

* INTO I/O AREA * 

* ADDRESS * 
***************** 



**jl******* 

* TURN OFF * 
SENSE BIT 

FOR BUSOUT 
CHECK 

* * 
*********** 



GET I/O 
ADDRESS FROM 
ALTERNATE CCW 



********* 



RESTORE 

BRANCH AT 

ENTSVC 

* * 

*********** 



*****C 3 ********** 

* RESTORE * 

* CONTENTS * 

* OF REGISTERS * 
*AND SVC OLD PSW* 

* * 
***************** 



D3 *. 
.* USER *. 
♦WANTS BATCH*. 
NUMBERING . 



**** 
PDSS X 

*****B5********** 

* * 

* MOVE IN * 

* TIC COMMAND * 

* CODE * 

* * 
***************** 



*C4 
SUPERVISOR 
GENERATION 
OPTION. 



**** 

* * 

* 1 * 

* * 
**** 



*****£ 2 ********** 

* PREPARE * 

* COMMAND CODE * 

* IN STACKER * 

* SELECT CCW * 

* * 
***************** 



*****F2******** 
* 

* SAVE 

* REGISTERS 

* 5-1 
* 
*************** 



**G2******* 

* NO-OP THE * 
BRANCH AT 

ENTSVC 
(CHART BH) 

* * 
*********** 



*****H2********** 

* * 

* STORE * 

* SVC OLD * 

* PSW * 

* * 
***************** 



****J2********* 

* LOAD PSW * 

* TO USER'S SS * 

* ROUTINE * 
*************** 



*****£ 3** ******** 

* STORE ADDRESS * 

* OF BATCH * 

* NUMBERING * 

* CCW IN * 

* TIC CCW * 
***************** 



*****C 5 ********** 

* * 

* SET RETRY * 

* COUNTER * 

* TO 3 * 

* * 
***************** 

**** 

* * 
*JD-J2 * *. 

JF-F5 * * * .X... 
**** 
PDSIO X 

****05******* 

* START I/O 
TO SELECT 

* DOCUMENT 



***************** 



*****E4********** 

* * 

* SET FLAG * 

* TO INDICATE * 

* GOOD RECORD * 

* * 
***************** 



PDNOB 

*****p 3** ******** 

* STORE USER'S * 

* POCKET SELECT * 

* IN STACKER * 

* SELECT CCW * 

* AND BUFFER * 
***************** 



***** 
*JH * 
* Al* 



E5 *. 
.* *. 

AVAILABLE 

**. .** 
*. .* 
*N0 



NOT .* *. 
OPER.* PSW 
...*. CONDITION 
*. CODE 
*. .* 
X *. .* 

***** *csw 

*JF * .STORE 
* G3* 



G4 *. 
.* AUTO *. 
.* SELECT OR 
*. SPACING 
*. ERROR . 



**** 

* * 

* 2 * 

* * 
**** 



*****H4********** 

* NO-OP THE * 

* COMMAND CODE * 

* IN STACKER * 

* SELECT CCW * 

* * 
***************** 



**** 
PDREJT X 

*****j4********** 

* * 

* SET BUFFER * 

* MASK FOR * 

* REJECT POCKET * 

* * 
***************** 



1419D 


*. NO 


*C4 


.*.... 






.* 




*. .* 


X 


*YES 


***** 




*JD * 




* Bl* 


X 


* * 


***** 


* 


*JF * 


PDCSWST 


* B2* 




* * 




* 




PDCSWST 





* 


OFF-LINE 


*. 


NO 




SORT 




*.... 


* 


*. .* 


.* 


* 




*. .* 




X 




*YES 




**** 

* 




. PDNOSIO * 1 




X 




* 




***** 




**** 




*JH * 








* Al* 








* * 







* 2 * 

* * 
**** 
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Chart JD. $$A$SUP1 - SMICR Macro , ERP for 1412/1419 Start I/O 
Refer to Chart 05. 



**** 

* 6 * 



1412/1419 SIO 



CHAN 
DATA 
CHECK 







PDSERR1 .*. 








A3 *. 








.* *. 








.* PROGRAM *. 








♦ . CHECK .* 








*. .* 








♦ . .♦ 








*. .* 








♦ YES 








**** 








* * 








* 4 *... 








* * 








**** . 


.*. 




PDSERR3 X 


2 ♦ . 






*****B3********** 


* 






* SUBTRACT 8 * 


3RD 


*. YES 




* FROM THE CCW * 


RETRY 






* ADDRESS IN * 




* 




* THE CSW * 


.* 






* * 


♦ . .* 


X 




***************** 


♦ NO 


**** 






* 


* 






* 1 


* 




X 


* 


* 




**** 


**** 




* * 








* 2 * 






X 


* * 






*****C3** ******** 


**** 






* STORE THIS * 

* CCW ADDR * 

* IN THE * 

* CAW * 



**** 

* * 

* 6 * 

* * 
**** 



*D2 
SUPERVISOR 
GENERATION 
OPTION. 



****E1*********** 

PDSIORT JD 
**-*_*-*_*-*_*_** 
GET 
* SENSE * 

***************** 



.♦SHOULD *. 
.* NOT-OCCUR *. NO 
*. SENSE BYTE .*. 
♦BITS " ' 



***************** 



*****D3** ******** 

* ADD 8 TO ♦ 

* POINT TO * 

* THE CCW ♦ 

* IN ERROR * 

* * 
***************** 



E3 ♦. 
.♦STORAGE*. 
.♦PROTECTION ♦. YES 
♦. OPTION .*.... 
*. *D2 



GET SENSE ROUTINE 

****A5********* 

* * 

* PDSIORT ♦ 

* * 
*************** 



*****B5********** 
♦SAVE CSW IN SVC* 

♦ OLD PSW SAVE * 

♦ AREA AND MOVE * 
♦SENSE CCW ADDR ♦ 

♦ TO CAW * 
***************** 



****C 5 ********** 

GET * 

CHANNEL * 

AND UNIT ♦ 

NUMBER * 

IN REG 1 * 

**************** 



****05*********** 

* SIO * 
TO GET 
♦ SENSE * 
***************** 



.X* 



.* 



.♦ 



*****E4********** 

* MOVE * 

* STORAGE * 
PROTECTION ♦ 

* KEY INTO * 

* CAW * 
***************** 



PDETIO .♦. 
E5 
NOT- .* PSW 
OPER. .♦ CONDITION 
...♦. CODE AFTER 
♦ . TIO 



*. 



S 3, 4,.+ 
6, 7 .* 



♦ 3 



**** 
PDSN02 X 

*****Gi ********** 

* POST BIT IN ♦ 

* CCB FOR ♦ 

* UNRECOVERABLE * 

* I/O ERROR ♦ 

* * 
***************** 



*****Hl********** 

♦ MOVE CSW ♦ 

♦ TO ♦ 

♦ DTF ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



*****jl ********** 

♦ MOVE CSW ♦ 

♦ STATUS BYTES * 

♦ TO CCB ♦ 

♦ BYTE 4 * 

♦ * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****p 3** ******** 

♦ POST ♦ 

♦ DOCUMENT * 

♦ REJECT TO ♦ 

♦ BUFFER ♦ 

♦ * 
***************** 



***** 
*JC ♦ 
* J4* 



YES .♦ ♦. 

...♦.INTERVENTION .* 
♦.REQUIRED .♦ 



BUS ♦. NO 
OUT .*... 

CHECK .♦ 



*****H4********** 

* MOVE * 

* STORAGE ♦ 

* PROTECTION *X 

* KEY INTO ♦ 

* CAW ♦ 
***************** 



F5 *. 

.♦ ♦. 

.♦ UNIT ♦. 

CHECK 

♦.ON SENSE .♦ 

♦ . .♦ 

♦ . .♦ 



*****G5********** 

* * 

* STORE STACKER * 

* SELECT CSW * 

* IN CAW * 

* * 
***************** 



♦ STORAGE 

PROTECTION 

♦. OPTION . 

♦. *D2 .♦ 



J3 ♦. 
* * 

OVERRUN 



♦NO 
X.* 



PDSERR2 

*****j4********** 

♦ POST LATE ♦ 

♦ STACKER ♦ 
...X* SELECT MSG ♦ 

♦ TO BUFFER ♦ 



***************** 



***** 

*JC * 

* D5^ 

* * 



**** 
* 
2 * 
* 

**** 



***** 
♦JE ♦ 
* G4+ 



K3 ♦. 






**K4******* 


* 






* NOP 


COMMAND 


*« 


YES 


* STACKER 


REJECT 




♦ .. .. 


♦ SELECT CCW 




.* 




♦COMMAND CODE 


.♦ 






* 


♦ . .♦ 




X 


*********** 


♦ NO 




**** 

* * 

* 4 ♦ 


." 


X 




* * 


X 


**** 




**** 


**** 



*****j5********** 

* RESTORE * 

* CSW FROM ♦ 

* SAVE * 

* AREA ♦ 

* * 
***************** 



****K5********* 

* RETURN * 

* VIA LINK REG * 

* * 
*************** 
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Chart JE. $$A$SUP1 - SMICR Macro, ERP for 1412/1419 Test I/O 
Refer to Chart 05. 



.1412/1419 TIO 



YES .* CHAN 
...*. DATA 
*. CHECK 



*****B3********** 

* * 

* LOAD CURRENT * 
X* CSW ADDRESS * 

* INTO REG 8 * 

* * 
***************** 



CI *. 






*****C 3** ******** 


.* CHAN *. 




* SUBTRACT 8 * 


.* CHAINING *. NO 




* FROM THE * 


*.0R PROTECTION.*.... 






* CCW ADDR * 


*. CHECK .* 






* CONTAINED * 


*. .* 






* IN THE CSW * 


*. .* 






***************** 


*YES 








'. * * 








. . .* 2 * 








X. * * 








**** 


X 


X 


PDMVCSW X 


.*. 


.*. 


*****Di ********** 


D2 *. 


D3 *. 


* MOVE * 


.* *. 


.* IS *. 


* PAPER * 


.* UNIT *. NO 


.* THIS *. 


* DOC CSW * 


*. EXCEPTION .*.... 


*. ADDR LESS .* 


* TO THE DTF * 


*. .* . 


*. THAN .* 


* TABLE * 


*. .* 


*. .* 


* **************** 


*. .* X 


*. .* 




*YES ***** 


*N0 




*JB * 








* H2* 








* * 
* 








PDUPDT 




X 


PDMOV X 


X 


*****E i ********** 


*****£ 2********** 


*****£ 3** ******** 


* MOVE CSW * 


* MOVE CSW * 


* * 


* STATUS BYTES * 


* STATUS BYTES * 


* CLEAR SENSE * 


* TO CCB * 


* TO CCB * 


* INFORMATION * 


* BYTE 4 * 


* BYT 


E 4 * 


* AREA * 



***************** 



PDCHAN 

***** PI*** ******* 

* POST BIT IN * 

* CCB FOR * 

* UNRECOVERABLE * 

* I/O ERROR * 

* * 
***************** 



**** 
RXT2 X 
*****G !*********# 
*POST DISENGAGE * 



***************** 



***************** 



*****P2********** 

* * 

* MOVE CSW * 

* TO * 

* DTF TABLE * 

* * 
***************** 



***************** 



ERROR 

ON 
SENSE 



**** 

* * 

* 1 * 

* * 
**** 

*****B4********** 

* * 

* SCAN PUB * 

* TABLE TO * 

* FIND ENTRY * 

* * 
***************** 



ERROR 

PUB 
FOUND 



*****D4*« ******** 

* INCREMENT * 

* TO NEXT * 

* ENTRY IN *. 

* PUB TABLE * 

* * 
***************** 



CHANQ *. YES 
POINTER .*.... 
NULL .* 



**** 

* * 

* 2 * 

* * 
**** 



PDPDEQ 

*****Hl ********** 

* GET ADDRESS * 

* OF PUB * 

* TABLE AND * 

* CHAN AND * 

* UNIT NO. * 
***************** 



**** 

* * 

* 1 * 



****G 3** ********* 
PDSIORT JD 
**_*_*_*_*_*_*_** 
GET 
* SENSE * 

***************** 



H3 *. 
.*SHOULD *. 
YES .* NOT-OCCUR * 
...*. SENSE BYTE Ot 
*. BITS 0, .* 
*. 2,3 .* 
*. .* 
*N0 



PDERXT1 X 

*****G4********** 

* TURN ON * 

* DOCUMENT * 

* REJECT AND * 

* RECORD AVAIL * 

* IN I/O BUFFER * 
***************** 



*****H4********** 

* POST * 

* REJECT * 

* POCKET * 

* TO BUFFER * 

* * 
***************** 



.X. 
X 
**** 

* * 

* 3 * 

* * 
**** 



PDSN01 

****** 3** ******** 

* MOVE SENSE * 

* INFORMATION * 

* TO THE * 

* DTF TABLE * 

* * 
***************** 



***** 
*JH * 
* Gl* 



*****B5********** 

♦CQDSP CR* 
*_*_*_*_*_*_*_*_* 

♦POINT REGS 4 + * 

* 5 TO CHANQ + * 

* LUBID ENTRIES * 
***************** 



**C5******* 

* TURN OFF * 

* CHAN SCHED 
FLAG IN PUB, 

* SET REQID 

* TO X»FF« * 
*********** 



**E5******* 

* RESTORE * 
REQUESTOR 

ID IN CHAN 
QUEUE TO 

* X'FF* * 
*********** 



*****P5********** 

* SAVE THE * 

* CHAN QUEUE * 

* POINTER FROM * 

* THE PUB IN * 

* REG 8 * 
***************** 



*****G5********** 

* MAKE NEXT * 

* CHAN QUEUE * 

* ENTRY REQUEST * 

* FIRST ON * 

* PUB * 
***************** 



H5********** 

* INSERT CHAN * 

* QUEUE ENTRY * 

* AT HEAD OF * 

* FREE LIST * 

* * 
***************** 



**j5******* 

* TURN ON * 
TRAFFIC BIT 

IN CCB 
BYTE 2, 

* BIT 1 * 
*********** 



**K4******* 
*SET SWITCH * 

* AT PDSWZ * 
(CHART JH-J1) *X. 

* TO NOP * 
* * 

*********** 



YES .* CPU 
....*. MODEL 25 
*. *J4 



*N0 

.xIpdexit 



***** 

*JH * 

* Al* 

* * 
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Chart JF. $$A$SUP1 - SMICR Macro, ERP for 1419D SIO and TIO 
Refer to Chart 05. 



1419D TIO 
***** 
*JA * 
* G5* 



1419D SIO 
*JC *• 



* 1 * 

* * 



**** 

* * 

* 3 * 

* * 
**** 



PDTIOERR 


.*. 






PDCSWST 


.*. 








Bl *. 










B2 *. 








* 










* * 






.** 


CHANNEL 




YES 


YES 




CHANNEL 


* 




*. 


DATA 




*....X 






DATA 






*. 


CHECK 


* 






*. 


CHECK 


.* 




* 


.* 

*. .* 




X 






*. .* 

*. .* 








*N0 




**** 




*N0 






**** 








* 










* * 






* 2 


* 










*JB 


*. . '. 




* 


* 










* Jl* 






*** 


* 










**** 


X 










X 






PDREJDC 


.*. 






PDSERR1 










CI *. 










C2 *. 






.* 


* 










* * 






NO .* 


OVERRUN 


* 






* 


UNIT 


* 


NO 


. . .*. 


ON SCU 




* 


* 




CHECK 




*. . 



PDDFLT X 

*****B5********** 

* GET PRECEDING * 

* CCW (NO-OP * 

* CCW) AND * 
♦STORE IN CHAIN * 

* * 
***************** 



**** 
* 
4 * 



* 2 * 

* * 
**** 



*****D1 ********** 

* POST OVERRUN * 
♦SENSE BIT X'20'* 

* INTO BUFFER * 

* RECORD * 

* * 
***************** 



****E1 ********** 

POST DOCUMENT * 

REJECT MSG. * 

X'CF' TO * 

BUFFER * 

* 

**************** 



NO .* AUTO 
...*. SELECT 
*. ON SCU 



*****G1 ********** 

* POST AUTO * 

* SELECT X'80« * 

* TO BUFFER * 

* RECORD * 

* * 
***************** 



****H1********* 

POST DOCUMENT 

REJECT MSG 

X«CF« TO 

BUFFER 



X. 

X 

***** 



*****02 ********** 

* STORE CSW IN * 

* OLD PSW SAVE * 

* AREA AND MOVE * 

* SENSE CCW * 
♦ADDRESS TO CAW * 
***************** 



*****£ 2 ********** 

* GET CHAN * 

* AND UNIT * 

* NUMBER IN * 

* REG 1 * 

* * 
***************** 



****F 2 *********** 

* SIO * 
GET 
* SENSE * 

***************** 



*****04********** 

* MOVE SENSE * 

* INFORMATION * 

* TO DTF * 

* TABLE * 

* * 
***************** 



PDAGN 

*****05******* 

* STORE STACKE 

* SELECT CCW 

* ADDRESS IN 

* CAW 



*** 



c************* 



*E3 
SUPERVISOR 
GENERATION 
OPTION. 



PDETIO .*. 

G2 *. 

.* PSW *. NOT 

BUSY.* COND *.OPER 

...*. CODE AFTER .*... 

*. TIO .* 

*. .* 



.X. 



PDERXT1 X 

*****G 3** ******** 

* POST SCU NOT * 

* OPERATIONAL * 

* IN CCB * 

* BYTE 3, BIT * 

* * 
***************** 



PDERXT2 

*****H 3 ********** 

* POST BIT IN * 

* CCB FOR * 

* UNRECOVERABLE * 

* I/O ERROR * 

***************** 



***** j 2 ********** 

* RESTORE * 

* CSW * 

* FROM * 

* SAVE AREA * 

* * 
***************** 



.* *. YES 

♦.INTERVENTION .*... 
♦.REQUIRED .♦ 



PDERXT3 

*****j3********** 

* TURN ON * 

* DOCUMENT * 

* REJECT AND * 

* RECORD AVAIL. * 

* IN I/O BUFFER * 
***************** 



*****K 3** ******** 

* POST REJECT * 

* POCKET X'CF' * 

* TO BUFFER * 

* BYTE 5 ♦ 

* * 
***************** 



*****E4********** 

* POST EXTERNAL * 

* I/O INTERRUPT * 

* X'20« TO CCB ♦ 

* BYTE 3 ♦ 

* * 
***************** 



************ 



*****G4***^^^ 

♦ MOVE CSW 

♦ STATUS BYTES 
.* TO CCB 

♦ BYTE 4 



******* 

**** 

* # 

* 5 ♦. 

* * 
**** 



NO .♦ STORAGE 
...♦. PROTECT 
*. *E3 



*****F5 ********** 

* * 

* MOVE STORAGE * 

* PROTECTION * 

* KEY TO CAW * 

* * 
***************** 



MPS 

OPTION 

*E3 



*****j4********** 

* * 

* LOAD PIB * 

* TABLE ADDR * 

* INTO REG * 

* * 
***************** 



**K4******* 

* SET PIB 

FLAG TO 

NOT SVC 7 

BOUND 

* 

*********** 



NO .* THIS * 

• X *. PROGRAM HAS 

♦.PRIORITY .♦ 



***** 
*JH ♦ 
* Fl* 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 5 * 

* * 
**** 



**** 

* * 

* 6 * 

* * 
**** 
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Chart JG. $$A$SUP1 - SMICR Macro, Program Check Interrupt 
Refer to Chart 02. 



. BA-C5,E5 
. FJ-E1»B2 
X FK-D1,D2 



.* PROG *. 
.* CHECK IN 
. USER'S SS 
*. ROUTINE . 



* MOVE REGS * 

* 9-11 INTO * 

* NORMAL * 

* SAVE AREA * 
***************** 



**d******* 
♦SET SYSTEM ♦ 

* MASK TO 
DISABLE I/O 

♦ INTERRUPTS 

♦ ONLY * 

*********** 



*****C2********** 

♦ ♦ 

♦ GET ADDRESS * 

♦ OF BACKGROUND ♦ 

♦ PIB ♦ 

♦ * 
***************** 



#****C3********** 

♦ ♦ 

♦ CALCULATE * 

♦ ADDRESS OF * 

♦ INTERRUPTED ♦ 

♦ PROGRAM PIB * 
***************** 



PDNOPCK 


.♦ PREVIOUS 




*. CANCEL 

♦ . 






♦ . .♦ 




*YES 




**** 




♦ ♦ 




♦CN ♦... 




* B3* 




**** 




PDPRCAN X 


♦El 


**E2******* 


BA-CMNO PC ROUTINE) 


♦ 


FJ-BKNO SP,IT,OR OC ) 


* SET SWITCH 


FK-B3(SP,IT,OC) 


* AT ENTSVC 




♦ (CHART FB) 




♦ TO NO-OP 




*********** 



*F1 
SUPERVISOR 
GENERATION 
OPTION. 



**G2******* 
♦SET SWITCH ♦ 

* AT EXT04 * 
(CHART BD) TO 

♦ BRANCH FOR ♦ 
♦TASK SELECTS 

*********** 



E3 *. 

.* LTA ♦. 
IN USE 
BY THIS 

.PARTITION. 



***** F 3^ ♦ ♦♦♦♦♦♦♦ ♦ 

♦ * 

♦ GET ADDRESS ♦ 

♦ OF PROBLEM ♦ 

♦ PROGRAM SAVE ♦ 

♦ AREA * 
***************** 



*****G3** ******** 

♦ * 

♦ SAVE PROGRAM * 

♦ CHECK PSW * 

♦ IN PROBLEM * 

♦ PROGRAM AREA * 
***************** 



*****A4********** 



*************** 



*****B4********** 
♦ERRSET BB* 
*_*-*_*-*_*_*_*-* 

♦ MAKE ALL * 

* CANCEL CHECKS ♦ 



#*** 



t************ 



**C4******* 

* * 
TURN OFF 

LOGICAL 
TRANSIENT 

♦ CANCEL ♦ 
*********** 



*****D4********** 

* * 

* MOVE CHANNEL * 

* AND DEVICE ♦ 

* ADDRESS TO * 

* I/O OLD PSW * 
***************** 



*****E4********** 
*SETREG CK* 
*-*-*-*-*-*-*-*-* 

♦ POINT REG 3 * 

♦ TO PUB ENTRY ♦ 

♦ * 
***************** 



*****P4********** 
*CQDSP CR+ 
*-*-*-*-*-*-#-*-* 
♦POINT REGS 4 + ♦ 

♦ 5 TO CHANQ + ♦ 

* LUBID ENTRIES ♦ 
***************** 



***** 
♦CL ♦ 
♦ D4* 



***** 
*BE * 
♦ B3* 



PDDEQUE X 

**B5******* 

♦ SET X'80« ♦ 

♦ BIT IN PIB 
♦ FLAG FOR 

♦ REGISTERS 

* STORED * 
*********** 



*****C5********** 

♦ LOAD REG 9 ♦ 

♦ WITH ADDR OF * 

♦ EXT02 FOR ♦ 

♦ EXIT TO TASK * 

♦ SELECTION ♦ 
***************** 

**** 



NO .♦ OPERATOR * 
...♦.INTERVENTION 
♦. THIS .♦ 
♦.UNIT .♦ 



***************** 





.♦ THIS ♦. 








♦ TASK THE ♦ 


. YES 


♦ . 


I/O REQUESTER 
♦ . .♦ 


.♦ 


... 




♦ . .♦ 








*. .♦ 




X 




♦ NO 




***** 

♦ FF ♦ 

♦ C5+ 
* * 




X. 










OPSET 


PDDEl 


UE2 X 






*****G5********** 




♦ 




* 




* 


INCREMENT 


* 




* 


POINTER TO 


* 




* 


NEXT PUB 


* 




* 


ENTRY 


* 





*************** 



*****J1********** 



***************** 



*****j2********** 



***************** 



*****j3********** 

♦ * 
♦SAVE REGISTERS ♦ 

♦ 14-8 IN ♦ 

♦ PROBLEM ♦ 

♦ PROGRAM AREA ♦ 
***************** 



*****j4********** 

♦ * 

♦ SAVE REGS ♦ 

♦ 11-8 IN ♦ 

♦ PROBLEM ♦ 

♦ PROGRAM AREA ♦ 
***************** 



NO . 


* 


END ♦. 


...♦. 




OF PUBS .♦ 


• 


* 


.♦ 

*. .* 


X 




♦ . .♦ 


**♦* 




♦ YES 


♦ 






2 ♦ 






* 




X 


**** 




♦ BE ♦ 

♦ C3^ 
♦ * 

* 
CNCL+4 



***** 

♦ JH ♦ 

♦ Gl* 



* 1 ♦ 

* * 
**** 
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Chart JH. $$A$SUP1 - SMICR Macro, Exit Routine 
Refer to Chart 02. 



**B1* 



******** 



* UNBOUND THE * 

* SVC-7-B0UND * 

* PIB * 

* *C3 * 
***************** 



*****Di ********** 

* GET PIB TABLE * 

* XTNSION ADDR * 
*IN REG 10, ADD * 

* PIB TBL ENTRY * 

* DISPLACEMENT * 
***************** 



El *. 
.* THIS *. 
NO .* PROGRAM * 
X..*.HAS PRIORITY 



D2 *. 
.* THIS *. 
.* PROGRAM * 
.HAS PRIORITY 



***** pi ********** 

* * 

* ACTIVATE * 

* BRANCH AT * 
♦EXTOA FOR TASK * 

* SELECTION * 
***************** 



JA-J3 
JB-C1 
JE-A5 
JF-HA, 
JG-J1, 



*B3 
SUPERVISOR 
GENERATION 
OPTION. 



*C3 



THE DISPLACEMENT IN 
THE PIB TABLE WAS SET 
IN THIS INSTRUCTION 
FOR MPS ONLY ON 
CHART JA AFTER 
PDMPI. 



* 1 * 

* * 
**** 




X 
*****A4** ******** 

* * 

* RESTORE * 

* CSW AND CAW * 

* * 

* * 
***************** 




* ***** 
*FL * 
X * FA* 
.*. * * 
BA #. * 
.* *. 
NO .* OC *. . 
.. .*. OR IT .* 


PDKEY 

*****B5** ******* 

* 

* ALERT 
..X* ATTENTION 


*. *B3 .* OC OR 
*. •* BOTH 

"♦IT ONLY 


* ROUTINE 

* 

**************** 


Ix 




PDTIMER X 

*****C4**** ****** 

* UPDATE TIME * 

* OF DAY AND * 

* RESET TIMER * 

* TO INTERRUPT * 

* ALONE * 
***************** 


X 

.*. 

C5 *. 

.* *. 

YES .* *. 

...*. TIMER 

*. .* 
*. .* 
*. .* 
*N0 




* 


xl 



MODEL 
65 
*GA 



.* ANY *. 

.♦MPX DEVICE *. 

♦QUEUED BUT NOT. 

*. STARTED .* 



PROB .*SYSTEM ♦ . 
PROG .* STATE * 

*.AT INTERRUPT 

*. TIME .* 



***** 
*BD * 
* Fl* 



PDABEX 
YES .*" 



***** 
*BC * 
* Bl* 



RESTORE * 

SUPERVISOR * 

REGISTERS * 

* 

*************** 



**** 

* * 

* 2 * 

* * 
**** 



****P4********* 

* LOAD EXT * 
♦OLD PSWt ENTER * 

* WAIT STATE * 
*************** 



Gl *. 




.* MORE *. 




.* MICR * 


YES 


*. INTERRUPTS 


*. . . . 


*. .* 




*. .* 




*. .* 


X 


♦ NO 


***** 




♦ JA * 




♦ Gl* 




* * 




* 


X 


PDMPI 


.*. 




HI ♦ . 




.* MICR *. 




.* =14190 * 


YES 


♦ .OR NOT MODEL 


*.. .. 


*. 25 *B3 .* 




*. *GA .* 




♦ . .* 


X 


♦ NO 


**** 




* 




* 1 




* 


. 


**♦♦ 



MPS ♦. NO 
AND T/P .♦... 

*B3 .* 



*****H 3** ******** 

* * 

* GET CHANNEL ♦ 

* INDEX IN * 

* REGISTER 2 * 

* * 
***************** 



♦ GA 
USER'S 
CONFIGURATION. 



CPU 

MODEL 

25 



*****Ki ********** 

♦ * 

♦ MOVE CHANNEL * 

♦ AND UNIT ♦ 

♦ ADDRESS TO * 

♦ I/O OLD PSW * 
***************** 



♦ FORCE 

♦ CHANNEL 

♦ SCHEDULING 
************** 



**K3******* 

* * 
RESET SW 

AT PDSWZ 
TO BRANCH 

* ♦ 
*********** 



* 2 ♦ 

* ♦ 
*♦** 



**** 

* * 

* 1 * 
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Chart KA. $$A$SUP1 - SMCRR Macro, Channel Inboard Error Record Builder 
Refer to Chart 10. 



(Part 1 of 4) 



*DF ♦ 
* J4* 

X 
MCRRRTN .♦. 

Bl ». 

.♦* CPU *♦. 

♦ . MACHINE 
♦. CHECK .• 


YES 

X 

♦ ♦*•* 
*KG ♦ 

♦ Bl» 

MCRRCPU 


♦ 1 * 

X 
»MCRGTIME KH» 

* gIt timI ' ~« 

» AND JOB » 
« NAME • 


• NO 

X 
CI* "». 
NO .»* CPU **». 


X 
C2* *♦. 
.»* CPU *«. NO 


«. 50 .• 


*. 30 .* 



• B3 
MCRSWITC IS A POINTER 
SWITCH TO ROUTINES— 

- X«80« - FULL LOG 
ROUTINE 

- X«01« - MACHINE 
CHECK ROUTINE 

- OTHER - CIB ROUTINE 



♦SAVE INDICATOR 
» BYTE OF 

* MOD 30 LOGOUT 

* IN MCRSVIND 



CALCULATE 

CHANNEL 

NUMBER IN 

REGISTER 7 



CPU ♦ . NO 

MODEL 

50 .• 



••«C5»*»***** 

MOVE 

INTERRUPT 

CODE INTO 

RECORD FROM 

IOOPSW 



• TURN ON * 
• FULL LOG 

SELECTOR BIT 
» AT MCRSWITC 

* X'80» #B3 » 



•NOP BRANCH ♦ 

AT MCRCIBSW 

TO INDICATE 

CHANNEL 

* INBOARD • 



SAVE USER'S 
REGISTERS 

AND PSW 



*»**G1»**»«*»« 

MOVE A 1 

INTO CIB 

RECORD TO 

INITIALIZE 

FIRST RECORD 



•••♦HI 

MOVE CIB 

RECORD ID 

RECORD NUM 

AND MODEL NUM 

TO RECORD 



♦ ♦»D2^»«««»« 
INITIALIZE 

REG 7 AS 

POINTER TO 

MPX CHANNEL 

LOGOUT 



• ♦»*E2^« 

INITIALIZE 

LOOP COUNTER 

WITH VALUE 

2 



ERROR 
ON CHAN 
INDICATED. 



«*«*G2***^^»»» 

INCREMENT 

REGISTER 7 

TO NEXT CHAN 

IN LOGOUT 



• 


CLEAR • 




REG 7 • 






* 


• 




*#♦♦ 








..X»KB • 




* Bl» 




*»*• 








F3 ♦. 








MPX ♦. 


X^. 


CHANNEL .♦ 




MOVE 3 TO 

MCRSVIND TO 

INDICATE 

WHOLE 

CHAN DAMAGED 



MCRSCNCH 

#»»«#E5»»#»#»# 

• INSERT 

• DAMAGED 

• CHANNEL ID 

• INTO REG 7 



SELECTOR 

CHANNEL 

1 



GET FAILING 

DEVICE ON 
MPX CHANNEL 
INTO RECORD 



»»*F5*"*"»» 

STORE 

DAMAGED 

CHANNEL NUM 

IN RECORD 



•««««G5**»^^^^^' 

♦ MULTIPLY 

♦ DAMAGED CHAN 

♦ FOCL BY 8 FOR 
•POINTER TO 1ST 
•PUB ON CHAN 



J5» 



MOVE 
CHANNEL 2 
INTO CIB 

RECORD 
CIBFLDEV 



INDICATE 

ONLY DEVICE 

DAMAGE 

IN 

MCRSVIND 



MOVE DEVICE 

NUMBER TO 
CIB RECORD 



MOVE FAILING 

DEVICE ID 

TO RECORD 

FROM 

LOGOUT 



♦ J5 
REGISTER 7 NOW CONTAINS 
A DISPLACEMENT INTO THE 
PUB TABLE WHICH POINTS 
TO THE FIRST PUB ON THE 
DAMAGED CHANNEL. 
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Chart KB. $$A$SUP1 - SMCRR Macro, Channel Inboard Error Record Builder (Part 2 of 
Refer to Chart 10. 



4) 



.» MCRSWITC= *. NO 

». X'80'-FULL 

». LOG -* 



*#B3*«*»»» 

LOAD PUB 

POINTER 

INTO REG 



.». MCRMPX 

CI ». #»*»#C2«»*»»» 

* ♦. » MOVE A 

MPX • . YES • INTO CIB 
CHANNEL X» RECORD- 
DAMAGE .» » CIBFLDEV 



.♦ 


SELECTOR 


» 


. 




CHANNEL 








I 
'•YES 






















»KA 










• G3« 
















MCRSEL1 X 






*»» h»El*«***» 








MOVE 




• 




CHANMEL 1 








INTO CIB 








RECORD- 






* 


CIBFLDEV 




* 






< 
















Fl «. 














.# 


CPU 


* 






MODEL 






* 


5 


3 


.» 





»»E2**«**«* 

MOVE 
CHANNEL 3 
INTO CIB 

RECORD 
CIBFLDEV 



• MOVE 

« FAILING 

• DEVICE ON 
•CHANNEL 1 INTO 
» CIB RECORD 



X...* 

• KA » » 
» B5* 

MCRCHDMG 



»J1 

THIS ROUTINE SCANS FOR 
ALL ACTIVE DEVICES ON 
THE CHANNEL AND MOVES 
THE FIRST 10 TO THE 
CIB RECORD. 



*»G2»****» 

MOVE 

CHANNEL 2 

INTO CIB 

RECORD 
CIBFLDEV 



MCRRDIAG 

*»«#H2«»»»»»» 

CALCULATE 

FAILING 

DEVICE AND 

MOVE INTO 

CIB RECORD 



« ADD REG 6 TO * 
•REG 7 TO POINT • 
•TO FIRST PUB 0N» 
• DAMAGED CHAN • 



SAVE ADDRESS 

OF FIRST PUB 

IN LOCATION 

MCRFIRST 



»»«»*E3«*»**»***» 
•INITIALIZE LOOP* 
•COUNTER (REG 6)« 
• WITH 11 « 



•POINT REG 5 TO • 

• FIRST OF 20 • 

• ENTRIES IN • 
•ACTIVE DEVICES • 
•LIST (CIBACDEV)* 



•#»«G3*»*»»««* 

POINT REG 2 

TO THE 

DAMAGED TASK 

LIST 

MCRCNTST 



MCRL00P2 .•. 

H3 ». 
.• ERROR *. 
NO .* CHAN SAME 
...». AS PUB 
•. CHAN 



.• 1ST •. 

10 ACTIVE 

DEVICES 

.RECORDED . 



MOVE ACTIVE 

DEVICE TO 
CIB RECORD 



PCINT 

REGISTER 4 

TO CORRECT 

CHANQ 

ENTRY 



• ••«• D4< •*••**••• 
•INCREMENT REG 5» 

• TO POINT TO » 

• NEXT ENTRY IN » 

• ACTIVE DEVICE • 
•LIST (CIBACDEV)* 



MCRRTSTQ .». 

E4 ». 
.* CCB • 
NO .» QUEUED 
...♦. TO THIS 
». DEVICE 



••••C5***«***>* 
NOVE CHQCHAIN 
TO PUB BYTE 2 
TO MAKE NEXT 
REQUEST FIRST 
IN PUBQUEUE 



MOVE CHANQ 

ENTRY TO 

HEAD OF 

FREE LIST 



• POINT REG 4 

• TO CCB AND 

• POST TRAFFIC 

• AND UNRECOV 
•I/O ERR -X' AO' 



SELECTOR • 
CHANNEL 
. DAMAGED .• 


YES 


"•NO 




X 

G4**'». 
.• IS ». 

THIS ♦ 
THE FAILING 
. DEVICE .• 


• '. 


• YES 




•*X 





««»G5«**»**»* 

PGINT 
REGISTER 3 
TO CORRECT 
REQID ENTRY 



».H4«#»««»« 

• TURN OFF • 
• DEVICE BUSY • 

* AND OPER INTV 
•POST DE BITS » 

* IN PUB • 



•»»J4»»**«»* 

SAVE PUB 

CHANQ 

POINTER IN 

REG 3 



YES 


> * 


AP 




'•- 


GPTION 


X 




• . . • 






• NO 


KC • 






CI* 






• * 






* 







«*«J5«*"*««* 

MOVE 
PROGRAM ID 

FROM 

REQIDTAB TO 

MCRREQID 
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Chart KC. $$A$SUP1 - SMCRR Macro, Channel Inboard Error Record Builder (Part 3 of 4) 
Refer to Chart 10. 



***** 

*KB * 
* H5* 



**** 

* * 

* 2 * 

* * 
**** 



. 


X 


X 


MCNOTSP .*. 


*****B1 ********** 


B2 ♦ . 


* GET TASK ID * 


.* *. 


* IN MCRREQID * 


.* ACCEPT * 


* AND NULL * 


♦.UNRECOVERABLE 


* TSKIDTAB- * 


*. ERROR .* 


* X«FF« * 


*. *G1 .* 


***************** 


*. .* 


**** '. 


*YES 


* * . 

* *... *KB-H5,J5 




* * * 




**** 


X 


X 


.*. 


*****ci ********** 


C2 *. 


* * 


.* *. 


* NULL * 


.* SKSEP * 


* REQIDTAB * 


*. OPTION 



*****B3** ******** 

* MOVE * 

* IDENT TO * 

* CANCEL * 

* LIST * 

* * 
************ 



[*** 



***** 

*KB * 
* J3* 



*****C3********** 

* INCREMENT * 

* POINTER TO * 

* NEXT * 

* ENTRY * 



***************** 



•00' .* 

.* 
. .* 
*YES 



**E1******* 

* FORCE * 
SUPERVISOR 

CANCEL 
MCRREQID 

* X'60' * 
*********** 



***** 



********* 



*****D2********** 

* * 

* GET * 

* DEVICE * 

* TYPE * 

* * 
***************** 



DASD 
DEVICE 
. 2311 

*. .* 



*G1 
WITH SEEK SEPARATION 
THE «AUE' BIT HAS A 
DIFFERENT MEANING. 



♦HI 
THE AUE-BIT INDICATES 
SEEK SEPARATION. 



♦Jl 
INDICATES THE 
AUE-BIT IS VALID. 



EOF 

BIT OFF 

♦HI 



**H2******* 

♦ TURN ♦ 

OFF 

EOF BIT 

♦Jl 

* * 
*********** 



***************** 





♦ FAILING 


* 


. NO 




* 


DEVICE 
*. 

*. .* 
*. .* 
♦YES 


* 


.♦ 


* 


X 

**** 












* 


3 












* 


{<*** 




X 










*****E3********** 






* 


GET 










* 


ADDRESS OF 




* 






* 


FIRST 




* 






* 


C( 


;w 




* 







INCREMENT ♦ 

TO NEXT ♦ 

PUB ♦ 

* 

*************** 



***************** 



.♦ ACCEPT ♦. YES 
.UNRECOVERABLE.^.... 
*. ERROR .♦ 



*****G3** ******** 

♦ SAVE ♦ 

♦ REQID OF ♦ 

♦ DAMAGED ♦ 

♦ DEVICE ♦ 

♦ * 
***************** 



*****G4**** ****** 



***************** 



**J2******* 

* * 
SET OFF 
INVALID 
AUE-BIT 

* * 
*********** 



*****H 3** ******** 

♦ LOAD ♦ 

♦ REG 4 * 

♦ WITH CCB ♦ 

♦ ADDRESS * 

♦ * 
***************** 



**** 

X 
***** j 3** ******** 

♦ INITIALIZE ♦ 

♦ REGS AND ♦ 

♦ SET UP REG 9 * 

♦ FOR EXT 01 * 

♦ * 
***************** 



*****K3«* ******** 

♦ MOVE PSW FROM ♦ 

♦ MCRRPSW1 TO ♦ 

♦ PTA SAVE FOR ♦ 

♦ RETURN FROM ♦ 

♦ GENERAL EXIT ♦ 
***************** 



***** 

♦ KF ♦ 

* D3+ 
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Chart KD. $$A$SUP1 - SMCRR Macro, Channel Inboard Error Record Builder (Part 4 of 4) 
Refer to Chart 10. 



* H3* 






* 2 * 


* * 






* * 


* 






**** 


X 








MCREND01 .*. 






X 


Bl *. 






*****B2******* 


.* CPU * 






* GET ADDRESS 


NO .* MODEL 


* 




* OF SAVE AREA 


...*. 50 




** 


* FROM 


*. *H4 


* 




* ATTENTION PI 


*. . * 








*. .* 






************** 


*YES 






**** * 

* * 

* 1 *... 

* * 
**** 


X 






MCRCHMVN X 


*****£!******:< 




** 


*****C2******* 


* SAVE 




* 


* 


* PTR 




* 


* MOVE 


* IN 




* 


* NAME TO 


* TABLE 




* 


* CIBNAME 






* 


* 


ft**************** 


************** 



**** 

* * 

* 3 * 

* * 
**** 



*****B3 ********** 

* SAVE ID * 

* OF * 

* INTERRUPTED * 

* TASK * 

* * 
***************** 



*A4 
IF THE CPU M0DEL=30 OR 40-- 
AN X'30' IN THE INDICATOR BYTE OF THE 
DAMAGED CHANNEL IN THE LOGOUT MEANS 
THAT A SELECTIVE RESET FAILED TO 
DISCONNECT THE DAMAGED DEVICE FROM 
THE CHANNEL. THE CHANNEL IS CONSIDERED 
INOPERABLE AND ALL TASKS WITH PENDING 
I/O INTERRUPTS FROM DEVICES ON THAT 
CHANNEL ARE CANCELED DUE TO CHANNEL 
FAILURE. IF THE INDICATOR BYTE IS NOT 
X«03't THE DAMAGED DEVICE WAS 
SUCCESSFULLY DROPPED FROM THE CHANNEL 
AND ONLY THE TASK WITH A PENDING 
INTERRUPT FROM THAT DEVICE IS CANCELED. 



CPU 

MODEL 
40 



*****0l ********** 

* * 

* GET * 

* OWNER * 

* ID * 

* * 
***************** 



NO .* ACCEPT * 
..*. RECOVERABLE 
*. ERROR .* 



*****F1 ********** 

* GET ID * 

* FROM * 

* MCRUNID * 

* * 
***************** 



**0 3** ******** 

MOVE * 

INTO MST * 

OF TASKS * 

TO BE * 

CANCELED * 

************** 



*****E3 ********** 

* MOVE CSW * 

* TO CIB * 

* RECORD- * 

* CIBCSW * 

* * 
***************** 



YES 


* 


OWNER 


. . .* 


SUPERVISOR 




*. 










X 




*. .* 


**** 




*N0 


* 






1 * 






* 






**#* 




. 



*****F2 ********** 

* MOVE SUPVR * 

* IDt X'60 1 * 

* INTO LIST OF * 

* TASKS TO BE * 

* CANCELED * 
***************** 



* CPU 

IN PROBLEM 
*. STATE . 



* 3 * 

* * 
**** 



CHANNEL 

CONTROL 

CHECK 



*****G 3** ******** 

* MOVE FAILING * 

* CCW TO CIB * 

* RECORD- * 

* CIBFLCCW * 

* * 
***************** 



.* 4 



.* DAMAGED * 
♦.DEVICE BEING 
*. USED .* 



*****£ 4******* 

* DECREMENT 

* POINTER TO 

* DAMAGED 

* TASK LIST 
» BY 1 
************** 



*****P4** ******* 

* INSERT 

* DAMAGED 

* DEVICE USER 
♦INDICATOR INTO 

* REG-10 X'FF' 
**************** 



**** 


* * 


* 6 * 


* * 


**** 


X. 


RCNLOP X 


RNODMG .*. 


E5 *. 


.* END 


S .* OF 


.*. DAMAGED 


*. TASK 


f.LIST . 



ft ****J1 ********** 

* * 

* FIND * 

* NAME IN * 

* COMREG * 

* * 
***************** 



* 1 * 
*K1 * * 
DO NOT **** 
CANCEL 
TASK IF I/O 
INTERRUPT. 



GET 

OWNER 

PIB 



TASK 
OWN 
LTA 



**** 

* * 

* 2 * 



*****K2********** 

* POINT * 

* TO * 

* ATTENTION * 

* PIB * 

* * 
***************** 



**** 
MCRGTLST X 

*****H3********** 

* POINT TO * 

* LIST OF * 

* DAMAGED * 

* TASKS- * 

* MCRCNTSK * 
***************** 



SELECTOR 

CHANNEL 

. DAMAGED 

*. *A4 .* 



*****K3** ******** 

* NULL NEXT * 

* ENTRY IN * 

* DAMAGED * 

* TASK LIST * 

* * 
***************** 



*H4 
IF THE MCRR 
CONDITION WAS 
ACCOMPLISHED 
BY A MACHINE 
CHECK INTERRUPT, 
THE INTERRUPTED 
TASK MUST BE 
CANCELED 
BECAUSE OF THE 
UNRELIABILITY 
OF THE 
INSTRUCTION 
ADDRESS PORTION 
OF THE MACHINE 
CHECK OLD PSW. 



.* ALL *. 
.* BOUND *. YES 
TASK- .*... 
*. X'OO' .* 



ATTEN 

ROUTINE 

X'40' 



***** 
*KE * 
* Bl* 



• EQ 
.OR 
.HI 



SUPVR 

TASK 

X«60' 



**j5******* 
* ENABLE * 

* SWITCH 
MCRSUPSW 

* TO CANCEL 
SUPUR- X«FO«* 

*********** 



***** 
*KE * 
* Fl* 



**** 

* * 

* 5 * 

* * 
**** 
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Chart KE. $$A$SUP1 - SMCRR Macro , Write CIB Record 
Refer to Chart 10. 



* LOAD TASK * 

* ID INTO * 

* REGISTER 10 * 

* * 
***************** 



CPU 

MODEL 

50 



*****B 3 ********** 

* MOVE LOGOUT * 

* TO RECORD * 

* AREA * 

* -12 BYTES * 

* * 
***************** 



*****B4********** 

* INITIALIZE * 

* FIRST 4 BYTES * 

* OP RECORD * 

* 4 * 

* * 
***************** 



*****d ********** 




C2 *. 




*****C 3** ******** 


*****C4********** 


* ADD PIBBT TO * 




.* *. 




♦MCRRWRIT KJ* 


* MOVE LOGOUT * 


* REGISTER 10 * 




.* MCR *. YES 


*_*_*_*_*_*_*_*_* 


* TO OUTPUT * 


* TO POINT TO * 




*. SWITCH ON .* 




* WRITE CIB * 


* AREA * 


* CORRECT TASK * 




*. X'01« .* 




* RCD AND CLEAR * 


* -34 BYTES * 


* PIB * 




*. .* 




* OUTPUT AREA * 




***************** 




*. .* 
*NO 


X 

***** 

*KG * 

* B3* 

* * 


***************** 


***************** 

**** * 

* * 

* 2 *... 

* * 






X MCRSAFTR 




**** 


X 








X 


X 


*****D1********** 




D2 *. 




*****0 3** ******** 


*****04** ******** 


* MOVE CHANNEL * 




.* *. 




* INITIALIZE * 


*MCRRWRIT KJ* 


♦FAILURE CNCL CD* 


YES .* MCRSWITC *. 




* FIRST 4 BYTES * 


*_*_*_*_*_*_*_*_* 


* INTO ERRSETOD * 




.*.X«80' - FULL .* 




* OF RECORD * 


* WRITE CIB * 


* FOR POSTING * 




*. LOG .* 




* 2 * 


* RCD AND CLEAR * 


* IN PIB *H1 * 




*. .* 




* * 


* OUTPUT AREA * 


***************** 


X 

**** 


* **N0 




***************** 


***************** 




*KF 








**** * 




* B4* 






* * 




* * 








*KF *... 




* 








* H5* 
**** X 


X 




X 




X 


MCRSUPSW .*. 


*****£!********** 




*****E2********** 




*****E3«* ******** 


E4 *. 


*ERRGO BB* 




* MOVE PART * 




* MOVE LOGOUT * 


.* *. 


*_*_*_*_*_*_*_*_* 




* OF LOGOUT * 




* TO OUTPUT * 


.* CANCEL *. NO 


* CANCEL * 




* TO OUTPUT * 




* AREA * 


*.SUPVR SWITCH .*.... 


* DAMAGED * 




* AREA * 




* -75 BYTES * 


*. ON .* 


* TASK * 




* -12 BYTES * 




* * 




***************** 




***************** 




***************** 


*. .* X 
*YES ***** 


**** '. 










**** . *KF * 


* * 










* * * Bl* 


*KD *... 










*KH *... * * 


* J5* 










* H4* . * 


**** . 










**** . MCRECOVR 


MCRBUMP X 




X 




X 


X 


*****F1 ********** 




*****F2********** 




*****F3********** 


**P4******* 


* * 




*MCRRNRIT KJ* 




*MCRRWRIT KJ* 


* DISABLE * 


* BUMP INDEX * 




*_*_*_*_*_*_*_*_* 




*_*-*-*_*_*_*-*-* 


* SWITCH TO * 


* TO NEXT ENTRY * 




* WRITE CIB * 




* WRITE CIB * 


* CANCEL SUPVR * 


* IN DAMAGED * 




*RECD AND CLEAR * 




* RCD AND CLEAR * 


* WITH X'FO' * 


* TASKS LIST * 




* OUTPUT AREA * 




* OUTPUT AREA * 


* * 


***************** 




***************** 




***************** 


*********** 


X 
***** 












*KD * 












* E5* 




X 




X 


X 


* * 




*****Q 2 ********** 




*****G 3** ******** 


*****G4** ******** 


* 




* INCREMENT * 




* INITIALIZE * 


* POINT * 


MCRCNLOP 




* RECORD * 




* FIRST 4 BYTES * 


* REGISTER 10 * 






* COUNT TO * 




* OF RECORD * 


* TO SUPERVISOR * 






* 2 * 




* 3 * 


* PIB * 



************ 



***************** 



************ 



♦ HI 
CANCEL CODE POSTED 
IS STRIPPED OF 
X'40' - X'lB' 
CHANNEL FAILURE 
CANCEL CODE - X'5B' 



X 


X 


MCRCNCOD X 


*****H2********** 


*****(.) 3** ******** 


**H4******* 


* INITIALIZE * 


* MOVE LOGOUT * 


*INST X'50'-* 


* FIRST FOUR * 


* TO OUTPUT * 


*CHAN FAILURE 


* BYTES OF * 


* AREA * 


* CANCEL CODE- 


* 2ND RECORD * 


* -75 BYTES * 


*INTO ERRSETOO 


* * 


* * 


* *H1 * 


***************** 


***************** 


*********** 


**** *. 




* 


* * 






* 1 *. . . 




X 


* * 




***** 


**** X 




*DG * 


.*. 


X 


* E5* 


J2 *. 


*****j3********** 


* * 


.* *. 


*MCRRWRIT KJ* 


* 


.* CPU *. 40 


*_*_*_*_*_*_*_*_* 


HARDCHAN 


*. MODEL .*.... 


* WRITE CIB * 




*. = .* . 


* RCD AND CLEAR * 




*. .* 


* OUTPUT AREA * 




*. .* X 


***************** 





* MOVE LOGOUT * 
*TO OUTPUT AREA * 

* -12 BYTES * 

* * 
***************** 



*****K2*** 

* MOVE REST * 

* OF LOGOUT * 

* TO OUTPUT * 

* AREA * 

* -56 BYTES * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



* 2 * 

* * 
**** 
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Chart KF. $$A$SUP1 - SMCRR Macro, MCRR Exit Routine 
Refer to Chart 10. 



* i * 

* * 
**** 



.* THIS *. 
.* PARTITION *. NO 
OWN .*... 

*. LTA .* 



..X* 3 * 

X **** 



01 * 

.* THIS 

TASK 

OWN 

LTA 



*****£! ********** 

* ZERO * 

* LTA * 

* KEY * 

* * 
***************** 



**Gi********** 

ZERO * 

LTA * 

OWNER * 



***************** 



MCRNEQLD X 
*****C2**** 

* LOAD ADDRESS * 
*0F INTERRUPTED * 

* PIB INTO * 

* REGISTER 10 * 

* * 
***************** 



**D2******* 

* SET PIB * 
FLAG TO 
X«80« - 

PROGRAM NOT 

* PRESENT * 
*********** 



*****E2 ********** 

* RESTORE * 

* MACHINE * 

* CHECK NEW * 

* PSW * 

* * 
***************** 



**F2******* 
* ENABLE * 

* BRANCH TO 
HARD CHAN 

* FAILURE RTN 
*AT CHFAIL1 * 

*********** 



*****£ 2 ********** 

* CLEAR LIST * 

* OF DAMAGED * 

* TASKS- * 

* MCRCNTSK- * 

* WITH X'FF' * 
***************** 



*****H2********** 

* CLEAR LOGOUT * 

* AREA FOR * 

* FUTURE * 

* MACH CHECK * 

* CONDITION *J1 * 
***************** 



*****B 3** ******* 

* LOAD ADDRESS 

* OF EXT02 

* INTO 

* REGISTER 9 
* 
**************** 



*****£ 3** ******** 

* POINT * 

* REGISTER 3 * 

* TO FIRST PUB * 

* ON CHANNEL * 

* * 
***************** 



*KC *... 
* K3* 
**** X 
MCSELECT .*. 
D3 * 



NO 



MPS 

OPTION 
*K1 



*****£ 3 ********** 

* * 

* LOAD CHANNEL * 

* FROM PUB INTO * 

* REGISTER 2 * 

* * 
***************** 



*****p 3** ******** 

* ADD CHAN * 

* PUB TABLE * 

* INDEX VALUE * 

* TO REG 2 * 

* *K5 * 
***************** 



**#**g 3 ********** 

* MOVE CHANNEL * 

* NUMBER OF * 

* INTERR DEVICE * 

* TO IOOPSW * 

***************** 



**H3******* 
♦MOVE X'84 1 * 

* INTO SUPVR 

PIB FLAG 

* BYTE 

* * 

*********** 



*J1 
CPU MODEL LOGOUT AREA- 
30 - 12 BYTES 
40 - 196 BYTES 
50 - 164 BYTES 



**** 

* * 

* 1 * 



MCRFULL X 

*****B4** ******** 

* MOVE PART OF * 

* LOGOUT TO * 

* OUTPUT AREA * 

* -12 BYTES * 

* * 
***************** 



**C4******* 

* TURN ON * 

* OBR FULL * 
*LOG BIT - X'Ol' 

* OUT AREA * 

* BYTE 12 * 
*********** 



*****D4** ******** 

* INITIALIZE * 

* FIRST 4 BYTES * 

* OF FIRST OF * 

* 4 RECORDS * 

* * 
***************** 



*****£ 4** ******* 


*MCRRWRIT 


KJ 


*- 


*_*_*_*. 


i*_*_*_ 




WRITE 


CIB 




RCD AND 


CLEAR 


* 


OUTPUT 


AREA 


**************** 



*****F4** ******** 

* * 

* INITIALIZE * 

* FIRST 4 BYTES * 

* OR RECORD 2 * 

* * 
***************** 



* MOVE LOGOUT * 

* TO OUTPUT * 

* AREA * 

* -75 BYTES * 

* * 
***************** 



* WRITE CIB 

* RCD AND CLEAR 

* OUTPUT AREA 
**************** 



*****j4******* 



*****B 5 ********** 

* MOVE LOGOUT * 

* TO OUTPUT * 

* AREA * 

* -75 BYTES * 

* * 
***************** 



*****C5********** 
*MCRRWRIT KJ* 
*_*_*_*_*_*_*_*_* 

* WRITE CIB * 

* RCD AND CLEAR * 

* OUTPUT AREA * 
***************** 



*****D5********** 

* * 

* INITIALIZE * 

* FIRST 4 BYTES * 

* OF RECORD 4 * 

* * 
***************** 



*****E5** ******** 

* * 

* MOVE LOGOUT * 
*T0 OUTPUT AREA * 

* -2 BYTES * 

* * 
***************** 



* WRITE CIB 

* RCD AND CLEAR 

* OUTPUT AREA 
**************** 



**G5******* 

* RESET CPU * 
MODEL 50 

RECORD NO. 
INDICATOR 

* TO 2 * 
*********** 



**H5******* 

* TURN OFF * 
♦FULL LOG BIT 

AT MCRSWITC 
* BIT 

* * 
*********** 



***** 
*KE * 
* £4* 



*K1 
SUPERVISOR 
GENERATION 
OPTION. 



CIB 


* 


NO 


* 


INITIALIZE 


* 


MCRSUPSW 


CONDITION 








FIRST 4 BYTES 








* 




* 


OF 


RECORD 3 


* 




*. .* 






* 






* 




*. .* 




X 


***************** 




*YES 




***** 
*BC * 
* CI* 












X 




* * 






X 




*K5 


***** 










**** 




REGISTER 2 NOW 


*CN * 




EXT02 






* * 




CONTAINS A POINTER 


* E3* 










* 2 * 




INTO CHANNEL PUB 


* * 










* * 




TABLE (CHNPUBTB) - 


* 










**** 




ADDR OF PUB LAST 


SELECT 














STARTED ON CHANNEL 
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Chart KG. $$A$SUP1 - SMCRR Macro t Machine Check Error Record Builder 
Refer to Chart 10. 



SYSTEM 

ALL 

B0UN0 



SAVE GENERAL 

REGISTERS 0-6 

IN RECORD 

CPUGPRG1 



*B2 
BLOCKS B4, C4, AND 04 
INITIALIZE REGISTERS 
5-7 FOR LOOP TO 
DETERMINE ACTIVE 
DEVICES TO BE RECORDED 
IN CPU RECORD. 



MCRSAFTR X 

»«B3*»****» 
• TURN OFF 

* POINTER TO 
« MCR ROUTINE- 

* MCRSWITC= 
» X«00« «G2 



SAVE 

REGISTERS 

7-15 IN 

MCRSVRG 



*«C3******* 

•MOVE X«58« » 
INTO INSTR 

TO POST 
CANCEL CODE 

•IN PIB *J2 * 



# 


***«D1****«*»«** 


* 


SVEREG 


BAA* 




T»-»— « -•-»-•- »- 






SAVE USER 
REGISTERS 0- 


S 


» 




-1H 


• 


« 


AND PSW 




* 




X 
















El •. 














.• CPU 


• 






MODEL 








«. 50 


.• 





CIBACDEV IS TO BE BUILT 
AS A LIST OF THE FIRST 
10 ACTIVE DEVICES ON 
THE CHANNEL. 



MCREND03 X 

•**«»B5******* 

• SAVE 

• MACHINE 
» CHECK OLD 
« PSW 



•»E2**»*»*« 

• ENABLE 
SWITCH AT 
MCRCIBSW 

WITH X'FO'- 

• BRANCH 



SAVE ERA 
IN REGISTER 
SAVE AREA 



••••E3»*»*»*»» 

LOAD ADDRESS 

OF MCRRAREA 

INTO REG 1 

FOR OBR 

WRITER 



THIS 

TASK 

OWN 

LTA 



***E4******** 

GET ADDRESS 

OF SAVE 

AREA FROM 

ATTENTION 

PIB 




X 


MCRNSPCN 






D5 *. 








IS 


• . YES 


THE PTA 




BUSY 










X 


• NO 






• DG 




• D 


X 








•KH * 


MACHEK1 


• Dl« 












MCREND04 







X 




* 1 • 


X 




MCRNLTA X 




♦•#F1«»»****» 




• • 


•»*»»F3** *•*•** 














• MOVE A 1 




• MOVE • 




CLEAR 






» INTO RECORD 




• NAME TO • 




REGISTER 7 






• AREA TO 


• 


• RECORD- • 










• INDICATE 




» CIBNAME • 


* 








• FIRST RECORO 


* 


» » 








• *** . 








• G2 






• 3 »... 








MCRSWITC IS A POINTER 














SWITCH TO ROUTINES— 










X 




X«80' - FULL LOG 


MCCPUEX1 X 




MCRCPUEX X 


»»*» 




ROUTINE 


»»»#«G3 »*••»••» 


\* 


*#*»#G4 •«•»*»»»»• 




MOVE 3 TO 




X«01» - MACHINE 


» INITIALIZE 


* 


• INITIALIZE ♦ 




MCRSVIND TO 




CHECK ROUTINE 


•FIRST 3 ENTRIES* 


• FOR SCAN * 


» 


INDICATE 




OTHER - CIB ROUTINE. 


« OF CPU RECORD 


* 


• FOR ACTIVE * 




SELECTOR 






• AT CPUID 




• DEVICES • 


*« 


CHAN DAMAGED 


»« 






w * 





•«H1«»«»«»* 
» TURN ON 

• POINTER TO 
MCR ROUTINE- 

• MCRSWITC= 
• X'Ol* «G2 



»»J1*»#«»»» 
•MOVE X«5F« ♦ 

INTO INSTR 
TO POST 

CANCEL CODE 
•IN PIB »J2 • 



PUT TIME 
AND JOBNAME 
INTO CPU REC 



MCRL00P3 

**»»»H4«»»»*» 

* SCAN 

* FOR 

* ACTIVE 

* DEVICES 



X'lB' - CHANNEL FAILURE 

CANCEL CODE. 
X'1F« - CPU FAILURE 

CANCEL CODE. 



* PROBLEM • 

PROGRAM 
•INTERRUPTED* 



J4 * 

END 

OF 

SCAN 



SET 

SUPVR 

PIK 



MOVE DEVICE 
TO CPU 
RECORD 
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Chart KH. $$A$SUP1 - SMCRR Macro, Write Machine Check Record 
Refer to Chart 10. 



MCRSCPHM X 

**A5******* 
* SET CPU * 

* CANCEL CODE 
* X«5F' INTO 

* ERRSETOD 



***** 



*** 



***B2******* 

INITIALIZE 

FIRST 3 

BYTES OF 

RECORD 3 



*************** 



MCREND04 X 

*****D1 ********** 
*MCRRWRIT KJ* 
*-*-*-*-*-*_*_*-* 

* WRITE CPU * 

* RCD AND CLEAR * 

* OUTPUT AREA * 
***************** 



*****£! ********** 

* INITIALIZE * 

* FIRST 3 * 

* BYTES OF * 

* RECORD 2 * 

* # 
***************** 



*****P1 ********** 

* * 
*M0VE REGISTERS * 

* 7-15 TO * 

* RECORD * 

* * 
***************** 



****D2**** ****** 

MOVE LOGOUT * 

TO OUTPUT * 

AREA * 

-8 BYTES * 

* 

******** 



***** 



*****03 ******** 

* MOVE LOGOUT 

* TO OUTPUT 

* AREA 

* -75 BYTES 
* 
*************** 



*****E2********** 

* INITIALIZE * 

* CPU FAILURE * 

* CANCEL CODE- * 

* X'1F« IN * 

* MCRCNCOD * 
***************** 



WRITE CPU 

RCD AND CLEAR 

OUTPUT AREA 

*************** 



*****H1 ********** 

* MOVE * 

* FLOATING * 
*POINT REGISTERS* 

* TO RECORD * 

* * 
***************** 



WRITE CPU * 

RCD AND CLEAR * 

OUTPUT AREA * 

**************** 



CPU 

MODEL 

30 



*****H2 ********** 

* INITIALIZE * 

* FIRST 3 * 

* BYTES OF * 

* RECORD A * 

* * 
***************** 



*****J2********** 

* MOVE LOGOUT * 

* TO OUTPUT * 

* AREA * 

* -75 BYTES * 

* * 
***************** 



WRITE CPU * 

RCD AND CLEAR * 

OUTPUT AREA * 

**************** 



***C4********** 

INITIALIZE * 

FIRST 3 * 

BYTES OF * 

RECORD 5 * 

* 

*************** 



NO .* AP OPTION 



**C5****** 

* SET 
RETURN 
ADDRESS 
AND CSW 

* ERRGO 



**** 
* 
* 3 



CPU 

MODEL 

50 



*****£ 4********** 

* MOVE REST * 

* OF LOGOUT * 

* TO OUTPUT * 

* AREA * 

* -14 BYTES * 
***************** 



**E5********** 
MOVE REST * 
OF LOGOUT * 
TO OUTPUT * 
AREA * 
-62 BYTES * 

************** 



X 
****#P4** ******** 

* MOVE REGISTER * 
*PARITY RECORD- * 




* TO OUTPUT * 

* AREA * 
***************** 

.'x 


** 
* 

* 3 
* 

** 



* WRITE CPU 

* RCD AND CLEA 

* OUTPUT AREA 
************** 



**** 
KJ* 

_*_* 



* POST PIB 

* CANCEL 

* FLAGS 
*************** 



***** 
*KE * 
* F4* 



**J5******* 

* RESET * 
RETURN 

ADDRESS FOR 
ERRGO TO 

* ORIGIN * 
*********** 



* 2 * 

* * 
**** 



Charts 247 



Chart KJ. $$A$SUP1 - SMCRR Macro, MCRGTIME and MCRRWRIT Subroutines 
Refer to Chart 10. 



**A1********* 

MCRGTIME * 
* 
************* 



*****B1 ********** 

* GET TIMER * 

* INTO REG 5 * 

* AND TIME * 

* OF OAY * 

* INTO REG 6 * 
***************** 



*****d ********** 

* CALC ACTUAL * 

* TIME OF DAY * 

* IN REG 6 * 

* AND MOVE TO * 

* REC - CIBTIME * 
***************** 



*****D1 ********** 

* PACK DATE * 

* INTO CIBDATE * 

* FROM * 

* COMREG * 
***************** 



****£ i********* 

* RETURN * 

* VIA LINK REG * 

* REG-7 * 
*************** 



**** A3** ******* 

* * 

* MCRRWRIT * 

* * 
*************** 



*****B 3** ******** 

* * 

* INITIALIZE * 

* FOR OBR * 

* WRITER * 

* * 
***************** 



*****£ 3********** 

* SAVE * 

* REGS 1-7 * 

* AT- * 

* MCRSV17 * 

* * 
***************** 



**D3******* 

* TURN ON * 

* MCRR BIT * 
♦FOR OBR WRITER 

* COMREG+134 * 

* X'80' * 
*********** 



*****E 3** ******** 

* SAVE PIK, * 

* INITIALIZE * 

* PIK WITH * 

* SUPVR ID * 

* PIK + 1 X'60' * 
***************** 



*****p 3** ******** 

* SAVE * 

* REGS 9-14 * 

* AT * 

* ERA * 

* * 
***************** 



WRITE 
* MCRR * 

RECORD 
**************** 



* l * 

* * 
**** 



****B4********** 



***************** 



* * RESTORE * * 

* * PIK * * 

* * piK+1 - * * 

* * * * 
***************** 



* MACHINE 


* 


. YES 


CHECK 




,* 




♦.OCCURRED 


.* 






*. .* 








*. .* 






X 


*N0 






***** 

*DG * 

* Dl* 

* * 

* 






MACHEK1 


X 








***E4********** 




CLEAR 




* 




MCRR 




* 




MESSAGE 




* 




AREA 




* 





***************** 



****F4** ******* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REG-7 * 



* SSM TO 

* DISABLE 

* INTERRUPTS 
* 
************** 



**J3******* 

* TURN OFF * 

MCRR BIT 

COMREG+134 

X«7F' 



**** 



****** 
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Chart LA. $$A$SUP1 - SEND Macro, Exit to System Message Writer or Task Selection and TP 
Routines 

Refer to Chart 10. ' -■ 



*A2 
MULTIPLE ENTRIES FROM 
SDR/OBR A-TRANSIENTS. 



*A3 
SUPERVISOR 
GENERATION 
OPTIONS. 



***# 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 3 * 

* * 
**** 



***** 
*CKA* 
* J4* 



SDRMM X 

* ****B1 ********** 

* DISABLE * 
♦INTERRUPTS AND * 

* LOAD REG 15 * 
*WITH EXT02 ADDR* 

* FROM REG 9 * 
***************** 



*****Cl ********** 

* * 

* SET UP BASE * 

* REGISTER FOR * 

* ERBLOC * 

* * 
***************** 



*****0l********** 

* SET UP TASK * 

* SELECT * 

* DEFAULT- * 

* X'OO' IN * 

* SVC3NM+7 *K1 * 
***************** 



**Ei******* 

* CHANGE * 
♦BRANCH MASK, * 

* SDRMMM, TO * 
♦X'40' FOR SDR* 

* USER REQ * 
*********** 



**B2******* 

* CHANGE * 

♦BRANCH MASKt ♦ 

* SDRMMM, TO * 

*X'20« FOR OBR* 

'* REQUEST * 

*********** 



*****C2********** 

* CORRECT * 

* A-TRANSIENT * 

* NAME AT * 

* SVC3NM * 

* * 
***************** 



CALL 
BY OBR 
WRITER 



RBBY12 .*. 

D2 *. 
.♦REQUEST*. 
.♦FROM MCRR- ♦. YES 
♦.COMREG + 134 .*.... 
*. BIT " 



.* 



.* 



.* SDRFLAG * 
♦.GREATER THAN 
*. SDRQUE .♦ 



♦ 2 ♦ 

* * 
**** 



USER 

SDR 

REQUEST 



**B3******* 

* * 

* DETACH 

* SUPERVISOR 

* PIB - X'FE' 

* * 
*********** 



*****Q3** ******** 

* POINT * 

* REGISTER 11 * 

* TO PROPER ♦ 

* PIB * 

* * 
***************** 



**03******* 
♦SET PIBFLG * 

* WITH X'01' 

NOT SVC 7 

* BOUND 

* * 

*********** 



*****E3** ******** 

* CLEAR PIK ♦ 

* SAVE AREA- ♦ 

* SDRPT1 - * 

* WITH X«00» ♦ 

* * 
***************** 

**** 



*****Q4********** 

♦ RESTORE ♦ 

♦ REGISTERS ♦ 

♦ 9-12 FROM ♦ 

♦ ERA * 

♦ * 
***************** 



.♦PTO OR IDRA*. 

OPTION 

♦. *A3 .♦ 



**D4******* 
♦MOVE X«03' ♦ 

♦ INTO TRTPTA 
TO INDICATE 

♦ PTA FREE 

* * 

*********** 



**** X 

.*. 

F3 ♦. 

.♦REQUEST*. 

.♦ FROM TP* * 

♦.COMREG + 134 

*. BIT 2 .* 



**** 
* 
7 * 
* 

**** 



*****E4********** 

♦ RESTORE THE R ♦ 

♦ IN THE * 

♦ TRANSIENT ♦ 
♦NAME AT SVC3NM * 

♦ SSANIERR * 
***************** 



***** 
*KJ * 
* H2* 



TPSDR1 X 

**B5******* 

* TURN ON * 

*TP INDICTOR, * 

* X»20« IN * 

♦COMREG + 134 ♦ 



*****C5********** 

♦ * 

♦ SAVE ALL ♦ 

♦ REGISTERS ♦ 

♦ AT CSW ♦ 

♦ * 
***************** 



*****05********** 

* * 

* LOAD SDR * 

* ADDRESS ♦ 

* INTO REG 1 * 

* * 
***************** 



***** 
*LF * 
* C5* 



**** 

* * 

* 5 * 



Gl *. 






*****q 2 ********** 


.♦REQUEST*. 






* MOVE A B * 


.* FROM TP. ♦ 


. NO 




* INTO FETCH * 


.COMREG + 134 


*.. . 




* NAME FOR * 


*. BIT 2 .♦ 






* $$ANERAB- * 


♦ . .♦ 






♦SYSTEM MSG WTR ♦ 


*. .* 






***************** 


♦ YES 






**** *. 

* * . 

* 8 ♦. .. 

* * 


X 






**** X 


.♦. 




CONTINU .*. 


HI *. 






H2 ♦. 


.* *. 






.♦ GOING ♦. 


.* ERRLOG * 


NO ) 




.♦ TO TASK ♦. 


OR TP 


.*. . • 




*. SELECTION .* 


*. *A3 .* 






*. *K4 .* 


*. .* 






*. .* 


♦ . .♦ 


) 


: 


♦ . .♦ 


*YES 


*» 




♦ YES 




* 


* 


**** 




* 


* 


* * 




* 




. ..* 2 * 




** 


*** 


* * 
**** 


X 




GOMCRR X 


**** J 1 ********** 




*****j2********** 


SET UP FETCH 


* 




*LOAD SAVED PIK * 


NAME FOR 


* 




♦ INTO REG 9, * 

* POINT REG 11 * 


SSANERAH 


* 




TP TRANSIENT 


* 




* TO PIB TABLE * 



***************** 



**K1********* 
SVC3 * 
FETCH * 
$$ANERAH * 

************* 



***************** 



MCRR 

OPTION 

*A3 



ERRLOG 

OPTION 

*A3 



.♦REQUEST*. 
.* FROM MCRR ♦ 
.COMREG + 134 
*. BIT 2 .♦ 



**H4******* 

* * 
SET 

TRTPTA 
X'03" 

* * 
*********** 



TPRETRN X 

**G5******* 
* RESTORE ♦ 

* BASE REG 
* AND SSM TO 

* DISABLE 
♦INTERRUPTS ♦ 



* PTO OR ♦ 

IDRA OPTION 
*. *A3 .* 



****K3** ******* 

* SVC3 FETCH * 

* $$ANERAB OR * 

* EXT02 *K4 * 
*************** 



SEE SVC DISCUSSION IN 
THE RESIDENT SUPERVISOR 
SECTION OF THIS MANUAL. 



*****J5********** 

* RESTORE * 

* CCD AND * 

* ALL REG * 
♦FROM SAVE AREA ♦ 

* * 
***************** 



****K5********* 

* BRANCH TO * 

* ADDR REG 7 * 

* +4 * 
*************** 
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Chart LB. $$A$SUP1 - SEND Macro, Routines to Test SDR Error Queue and to Schedule SDR 
Update of Internal Counters 
Refer to Chart 10. 



ROUTINE TO SCHEDULE 
SDR UPDATE OF INTERNAL 
COUNTERS. 



SUPERVISOR 
GENERATION 
OPTION. 



•**B1****»*** 

POINT 

REGISTER 11 

TO ENTRY IN 

SDR TABLE 

»A2 



CI *. 
.» ANY ». 

» ERRORS » 
ACCUMULATED 



SDRXI02 X 

•»*ft*B2******** 

* CALCULATE 

* TEB ADDRESS 

* IN REGISTER 

* 11 



SDR2QT X 

#*»»»B3»****«*«» 
« POINT REG 14 
•TO BYTE BEYOND 
» SDR SWITCHES 
• SDRQUE 



PTO 

OPTION 

*A4 



» * 
• 2 * 



.» TEB * 

*. ERROR COUNT 

*. .* 



TEB 

OPTION 

«A4 



DEVICE 
TAPE 
2400 



SDRXI03 

*»D2**»»«** 
« RESTORE * 

* CONDITION 
« CODE FROM 

* REGISTER 12 



*«#C3 »»*»«*»» 
LOAD NUMBER 
OF SWITCHES 

INTO 
REGISTER 



SDR2QT1 

»*»*»D3*»***»»* 
« POINT 

* REGISTER 14 

* TO LAST 

» QUEUE ENTRY 



SET QUIESCE 
PIB FLAG 
TO X'85« 



»»«E2*«****»* 

RESTORE 

SYSTEM BASE 

REGISTERS 

11 AND 12 





.* PUBERR « 


.NO 




« 


. ERROR COUNT 
». .* 


.*• 


"j 








X 




• YES 




*•* 




»**• . 












? 




3 »... 






X 


:oi x 




*•• 




>«**G1*»****** 
















POINT RB 








TO PIB 








TABLE 






* 




1 





• SDR2 • 

OR SDR3 
•.SCHEDULED.* 



•*»»«H1*»«»*»**« 

• POINT 

• REGISTER 11 

* TO ENTRY IN 

♦ SDR SWITCH 
•TABLE - SDRQUE- 



X 

*#J1»*#»**» 

SCHEDULE 

SDR2 WITH 





• . .» 




• LD • 




• YES 




• C2» 




X 




x. 












SDR2QT2 X 




G3 •• 




#*»*»G4 *»*•♦••»•• 








• SUBTRACT • 


NO . 


• SDR2 » 




• 1 FROM • 




SCHEDULED 




• SWITCH • 








• COUNTER • 


X 


«. .* 




• • 


• YES 






• LD * 








* B2» 
























SDR23 






X 




X 






*f*##H3»**»«»»» 




H4 ♦. 


» 


SAVE QUEUE 


• 






ENTRY 




NO .* SWITCH •. 




ADDRESS IN 




COUNTER .» 




SDRQSVE FROM 




*. .♦ 




REGISTER 14 




X *«..»* 

»•*• «YES 

• 4 » '. • • 

• • ...» LD • 

»•*• . • G3* 




X 




SDRNO X 


»#«»«J3»* **»«** 






* 


SUBTRACT 1 


* 


• RESTORE • 




FROM NUMBER 




• REGISTERS « 




OF QUEUE 




• 11 AND 12 • 




ENTRIES LOAD 


» 


• AS BASE • 


I 


INTO REG 14 


• » 


• REGISTERS • 



•*»K3»»*»»*«* 
GET ADDRESS 

OF SDR 
ACCUMULATOR 

AREA INTO 
REGISTER 14 
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Chart LC. $$A$SUP1 - SEND Macro, 
File Update 

Refer to Chart 10. 



Update SDR Half-Byte Counters and Schedule Recorder 



*C1 
LOADING REGISTER 10 
WITH 65K IS THE SAME 
AS LOADING A LOOP 
COUNTER WITH 17. EACH 
TIME THE COUNTER 
UPDATE ROUTINE IS 
ENTERED, THE SRA 
INSTRUCTION (BLOCK 
F2) SUBTRACTS 1 FROM 
THE COUNTER UNTIL THE 
FINAL RESULT OF ZERO 
COMPLETE THE LOOK 
(BLOCK G2>. 



***B2********** 

PUT SDRTABF * 

COUNTERS * 

INTO WORK * 

AREA * 

*************** 



*****C2********** 

* INITIALIZE * 

* UPDATE MASK * 

* -REGISTER 10 * 

* WITH 65K * 

* * 
***************** 



***** 02 ********** 

* LOAD ADDRESS * 

* OF WORK AREA * 

* INTO * 

* REGISTER 13 * 

***************** 



*****£ 2 ********** 



***************** 



*****B3 ********* 

* ADD 1 TO 

* ERROR 

* COUNTER AT 

* SDR2WKA 

* VIA REG 15 
**************** 



*****C 3** ******** 

* ADD 3 TO * 

* ERROR COUNT * 

* IN REGISTER * 

* 15 * 

***************** 



*****p 3** ******** 

* CLEAR LOW * 

* ORDER BYTE * 

* OF REGISTER * 



SDR2A5 X 

*****£ 3********** 

* POINT * 

* REGISTER 13 * 

* TO NEXT * 

* COUNTER * 

* * 
***************** 



SDR2A4 X 

*****B4**** ****** 

* PUT RESULTS * 

* FROM COUNTER * 

* UPDATE BACK * 

* INTO * 

* SDRTABF * 
***************** 



*****C4** ******** 

* ZERO * 

* ERROR * 

* ACCUMULATOR * 

* AT * 

* SDREACC * 
***************** 



*****D4** ******** 

* RELOAD * 

* REGISTER 14 * 

* WITH SDR * 

* QUEUE ENTRY * 

* ADDRESS * 



*****£4********** 

* CLEAR * 

* QUEUE ENTRY * 

* OF SDR2 * 

* REOUEST * 

* * 
***************** 



*C5 
WHEN SDR 2 ROUTINE HAS 
BEEN ENTERED 13 TIMES 
AN OVERFLOW OCCURS 
(BLOCK C3) WHICH CAUSES 
RECORDER FILE UPDATE TO 
BE SCHEDULED. 



SDR2A3 

*****F2********** 

* SHIFT MASK * 

* RIGHT 1 BIT * 

* INTO POSITION * 

* IN REG 10 * 

* *C1 * 
***************** 



COND 
CODE - 
. END OF 
*.LOOP .* 



*****H 2 ********** 

* ' LOAD * 

* ACCUMULATED * 

* ERRORS FROM * 

* SDREACC INTO * 

* REGISTER 12 * 
***************** 



* IN * 

CORE 

COUNTER 

OVFLOW 



**G4******* 
* SCHEDULE * 

* EXTERNAL 
UPDATE-X«04» 

* IN SDR 
♦ERROR QUEUE* 

*********** 



* LOOP * 
BIT POS 

ON IN 
REG 12 



**** 

* * 

* 1 * 



**** 
* 
* 2 
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Chart LD. $$A$SUP1 - SEND Macro, Gather Update Information and Fetch Writer 
Refer to Chart 10. 



**** 

* * 

* i * 

* * 
**** 



SDR23 X 

*****B2 ********** 

* CLEAR SDR3 * 

* REQUEST IN * 

* SDR ERROR * 

* FLAG BYTE * 

* * 
***************** 



YES .* RECORD 
...*. OVERFLOW 
*. *C5 



*****D2********** 

* * 

* SAVE FLAG * 

* BYTE ADDRESS * 

* IN SDRFLAG * 

* * 
***************** 



*****£2********** 

* * 

* CLEAR * 

* WORK AREA * 

* SDRRECD * 

* * 
***************** 



*****P2********** 

* GET DISPLACE- * 

* MENT INTO * 

* SDR SWITCHES * 

* IN REG 14 AND * 

* SAVE IN REG * 
***************** 



ENTRY 

FOR THIS 

PUB 



SDRYES 

*****B4****: 

* MOVE CHANNEL 

* AND UNIT AND 
...X* PUB DEVICE 

* TYPE TO 

* SDRRECD 



*****C 3 ********** 

* LOAD SDR FLAG * 

* BYTE ADDRESS * 

* INTO REGISTER * 

* 9 * 

* * 
***************** 



*****D 3 ********** 

* CLEAR SDR23 * 

* REQUEST * 

* WITH X«F3' * 

* IN FLAG BYTE * 

* * 
***************** 



**E3******* 
*SET REQUEST* 

* COMPLETE * 
FLAG-X'80' 

* IN FLAG * 
* BYTE *C5 * 

*********** 



*****p 3 ******** 

* GET CORRECT 

* TASK PIB 

* ADDRESS IN 

* REGISTER 9 
* 
*************** 



ANY 
ERRORS 
QUEUED 



*****E4********** 

* * 

* ESTABLISH * 

* BASE REGISTER * 

* FOR SDRTABF * 



*****F4** ******** 

* MOVE SENSE * 

* ID AND DEVICE * 

* TYPE, X'62' * 

* FOR 2314 INTO * 

* SDRRECD * 
***************** 



*C5 
SDR FLAG BYTE-- 
X«80' - UPDATE 

REQUEST COMPLETE 
X«40« - EXTERNAL 

FILE COUNTERS 

HAVE OVERFLOWED 
X«20' - I/O ERROR 

HAS OCCURRED 
X'08' - SDR UPDATE 

HALF-BYTE COUNTERS 

ROUTINE IS REQUIRED 
X»04« - UPDATE SDR 

RECORD IS REQUIRED. 



X 
*****G2********** 

* POINT * 

* REGISTER 14 * 

* TO COUNTER * 

* LOCATION IN * 

* SDR TABLE * 
***************** 


X 
**G3******* 

* TURN ON * 

* NOT SVC7 * 
* BOUND, BYTE * 

* BIT 7 IN * 

* PIB * 
*********** 

X 
***** 


INST X 

*****G4********** 

* RESTORE * 

* SYSTEM * 

* BASE * 

* REGISTERS * 

* * 
***************** 


X 

*****H2********** 

* EXCHANGE * 

* CONTENTS OF * 

* REGISTERS * 

* AND 14 * 


*LB * 

* J4* 

* * 

SDR NO 


X 

*****H4********** 

* SET UP TO * 

* CALL PHASE * 

* SSANERAC- * 

* WRITER * 



************ 



*****j2********** 

* POINT * 

* REGISTER 14 * 

* TO CORRECT * 

* PUB * 

* * 
***************** 



***************** 



****j4********* 

* SVC 3 * 

* FETCH * 

* $$ANERAC * 
*************** 
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Chart LE. $$A$SUP1 - SEND Macro, Interpretive Error Accumulator 
Refer to Chart 10. 



* i * 
**** 



**** 
* * 

* 3 * 

* * 
**** 



ENTERED FROM DE-F2. 



***** 
*DE * 
* E3* 



SDR1RES1 X 

*****B1********** 

* SAVE WORK .* 

* REGISTERS * 

* 10-0 IN * 

* SDR1SV * 

* * 
***************** 



*****C ^ ********** 

* SET UP * 

* REGISTER 10 * 

* AS POINTER * 

* TO LAST ERROR * 

* QUEUE * 
********** A****** 



*****Q1 ********** 

* ALIGN FAILING * 

* CCW ADDR BY * 
*MVG ADDR OF LST* 

* QUE ENTRY TO * 

* SDR1RESF * 
***************** 



*****£!********** 

* POINT TO * 

* FAILING CCW * 
*BY SUBTRACTING * 

* 8 FROM * 

* ENTRY ADDR * 
***************** 



*****F1 ********** 

* SET UP * 

* ERROR QUEUE * 

* ADDRESS IN * 

* REG 11 FROM * 

* REG 10 * 
***************** 



****A2 ********* 



************* 



S0R1 X 

*****B2********** 

* SAVE WORK * 

* REGISTERS * 

* 10-0 IN * 

* SDR1SV * 

* * 
***************** 



*****C2********** 

* POINT * 

* REGISTER 13 * 

* TO FAILING * 

* CCW * 

* * 
***************** 



*****D2********** 

* SET UP * 

* ERROR QUEUE * 

* ENTRY ADDRESS * 
*IN REGISTER 11 * 

* * 
***************** 



*****E2********** 

* LOAD CCW * 

* ADDRESS * 

* INTO * 

* REGISTER 12 * 

* * 
******* 



*****P2 ********** 

* MOVE ERROR * 

* LIST TO * 

* PROCESS * 

* AREA- * 

* SDRMOD * 
***************** 



*G1 
MASK FORMAT 
X'FF' - END OF UPDATE 
X'FE' - BYPASS COUNTER 
X'FD' - SET UP 'OR' TO 
PREVIOUS COUNTER 
X'FC - IGNORE LIST 

ITEM OTHER TEST BIT 
IN ERROR QUEUE. 



SDR1RES 

*****G2********** 

* SET UP * 

* BASE REGS * 

* FOR RESIDENT * 

* ERP ROUTINE * 

* * 
***************** 



*J1 
SHIFTING THE ACCUMULATOR 
BIT POINTER BACK 2 CAUSES 
THE SRL INSTRUCTION AT 
SDR1B2 TO DECREMENT THE 
POINTER TO THE PREVIOUS 
ACCUMULATOR BIT INSTEAD 
OF INCREMENTING TO THE 
NEXT. 



.* THERE *. NO 
*. A .*; .. 
*. CCW .* 



READ 

COMMAND 

X'02» 



READ 
COMMAND 

X'OC 



SDR1A 

*****E 3** ******** 

* SET LIST TO ■* 
*READ DATA CHECK* 

* -SDRLIST * 

* BYTE O-X'FC * 

* BYTE 2-X'FF' * 
***************** 



SDR1B 

*****P3******* 

* ZERO 

* REGISTER 14- 

* ERROR 

* ACCUMULATOR 



**** 



******* 



*****B4********** 

# * 
♦LOAD LIST WORD * 

♦ INTO REGISTERS * 

* 12 AND 13 * 

* * 
***************** 



*****C4********** 

* CALCULATE * 

* ERQUE INDEX * 

* IN REG 13 - * 

* ADD TO ERQUE * 

* ADDRESS *C5 * 
***************** 



*****D4********** 

* PUT TM MASK * 

* INTO REGISTER * 

* 12 FROM * 

* MASK TABLE * 

* * 
***************** 



E4 ♦ . 
.* TEST *. 

FOR BIT *. NO 
IN ERROR .*... 
. QUEUE .* 
*. .* 
*. .* 



**F4******* 

* TURN ON * 
ACCUMULATOR 

BIT IN 
REGISTER 

* 14 * 
*********** 



A5 *. 

.♦CONTROL*. 

* WORD * 

X'FE' 
*. *G1 .* 



*****B5********** 

* SET UP 'OR' * 

* CONDITION * 

* FOR PREVIOUS * 

* COUNTER * 

* *J1 * 
***************** 



*C5 
REG 12 NOW CONTAINS 
INDEX INTO TM MASK 
TABLE. 



**Q5******* 

* NOP MVI * 
INSTRUCTION ' 



MODIFY 

* * 

*********** 



*****£5********** 

* SET UP BASE * 

* REGISTER * 

* FOR PUBADR * 

* -REG 12 * 

* * 
***************** 



*****G 3** ******** 

* LOAD 65K INTO * 

* REG TO * 

* INITIALIZE * 

* ERROR * 

* INDICATOR * 
***************** 



SDR1B2 

*****G4********** 

♦POINT REGISTER * 

♦ TO NEXT ♦ 

♦ ACCUMULATOR * 
♦BIT BY SHIFTING^ 

♦ RIGHT 1 BIT ♦ 
***************** 



*****G5**** ****** 

♦ MOVE ♦ 

♦ SENSE ID ♦ 

♦ AS IMMEDIATE ♦ 

♦ DATA INTO * 

♦ MODIFY ♦ 
***************** 



X 


X 


SDR1B3 X 




X 


*****H2********** 


*****H3** ******** 


*****H4**** ****** 


** H 5******* 


♦ SET LIST TO ♦ 


♦ SHIFT REG ♦ 


* POINT TO 


* 


* MOVE MVI * 


♦ WRITE ERROP ♦ 


* RIGHT 1 BIT ♦ 


* NEXT LIST 


* 


♦OP CODE INTO * 


♦ BYTE O-X'FE' ♦ 


* TO POINT TO * 


* CONTROL 




* INSTRUCTION 


♦ BYTE 2-X , FC« ♦ 


* FIRST * 


♦ WORD 


* 


* MODIFY * 


* *G1 ♦ 


* ACCUM BIT * 


* 


* 


* * 


***************** 


***************** 


***************** 


*********** 




**** '. 
* * 










* 5 ♦... 


X 








* * 


**** 




!x 




**** X 


* * 






X 


SDR1B1 .♦. 


* 5 * 




N0T2314 X 


*****J2********** 


J3 ♦. 


* * 




**J5******* 


* * 


.♦ IS ♦. 


**** 




* CALCULATE * 


* LOAD AND * 


HI .♦ LIST ITEM *. EQ 






* PUB ENTRY ♦ 


* TEST * 


...♦.CONTROL WORD .♦... 






* NUMBER ENTRY 


♦ REGISTER 12 ♦ 


♦ . X'FC .♦ 






♦ IN SDR ♦ 


* * 


*. *G1 .♦ 






♦ TABLE ♦ 


***************** 


X ♦. .♦ 
**** *LOW 

* * 

* 3 * 






*********** 


* 






* 


X 


* * X 






X 


**** 


**** **** 






***** 


* * 


* * 






*LF * 


* 1 * 


* 2 * 






♦ Bl* 
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Chart LF. $$A$SUP1 - SEND Macro, Call OBR/SDR Writers and Routines for OBR/SDR Requests 
(Part 1 of 2) 

Refer to Chart 10. 



*A5 
ENTERED FROM 
KJ-G3. 



***** 
*LE * 
* J5* 



*****B1********** 

* INSERT * 

* ACCUMULATOR * 

* ERRORS FROM * 

* REGISTER 14 * 

* INTO SDREACC * 
***************** 



*****Di********** 

* MOVE SENSE * 

* ID INTO * 

* COUNT AREA * 

* RF2314 * 

* * 
***************** 



***** 
*DH * 
* E3* 



SDROBRW X 

*****B2********** 

* LOAD ADDRESS * 
*0F ERROR OUEUE * 

* ENTRY INTO * 

* REGISTER 10 * 

* * 
***************** 



*****££********♦♦ 

* MOVE A * 

* INTO FETCH * 

* NAME BYTE * 



***************** 



*****E1 ********** 

* RESTORE * 

* WORK * 

* REGISTERS * 

* 10-0 * 

* * 
***************** 



*****F1 ********** 

* RESTORE * 

* SYSTEM * 

* BASE * 

* REGISTERS * 

* * 
***************** 



SDR 

RECORDS 

*H3 



*****E2********** 

* MOVE C * 

* INTO FETCH * 

* NAME FOR * 

* $$ANERAC * 

* SDR CALL * 
***************** 



X 

***** 
*DE * 
* G2* 



CALL 
FOR 
SDR 



*****G2********** 

* MOVE A * 

* INTO FETCH * 

* NAME FOR * 

* SSANERAA * 

* OBR CALL * 
***************** 



**** 

* * 

* 1 * 



*****B3********** 

* INDEX REG 10 * 

* TO INDICATOR * 

* BYTE, STORE * 

* BACK INTO * 

* SDRFLAG * 
***************** 



*****C3********** 

* MOVE * 

* RECORD INTO * 

* COMMON AREA * 

* -SDRRECD * 

* * 
***************** 



*****D3** ******** 



***************** 



*****E3** ******** 

* DECREMENT * 

* ERQPTR ADDR * 

* BY 16-NEW * 

* LAST ENTRY * 

* ADDRESS * 
***************** 



****P3********* 

* SVC 3 * 

* FETCH * * 

* * 
*************** 

♦$$ANERAC FOR 
SDR OR 

$$ANERAA FOR 
OBR, MCRR. 



****A4********* 

* SDROBR * 

* *A5 * 

* * 
*************** 



**** 
* * * 
BG-J2* * 
FR-D5* * * 
**** 
SDROBR X 

**C4******* 

♦MOVE X'Ol' * 

♦INTO SDRSDR2 * 

* TO INITIALIZE 

* ROUTINE FOR ♦ 

♦ OBR ♦ 

*********** 



BH-J2 
LA-D5 
FR-D5 
***** 



SDRSDR X 

**C5******* 

♦MOVE X«00' * 

♦INTO SDRSDR2 ♦ 

♦ TO INITIALIZE 

♦ ROUTINE FOR * 

♦ SDR * 

*********** 



SDRSDR1 

*****D4********** 

* LOAD ERROR * 

* QUEUE ♦ 

* ADDRESS INTO ♦ 

* REGISTER 6 ♦ 

* * 
***************** 



IS 
OUEUE 
FULL 



***** 
*FC * 
* F4* 



SDROBRO X 

*****H2********** 

♦ MOVE ADDR OF * 

♦ ERROR OUEUE * 

♦ ENTRY INTO * 

♦ SDRFLAG FOR * 

♦ ALIGNMENT * 
***************** 



*****j2********** 

♦ PUT * 

♦ REQUESTOR * 

♦ PIK INTO * 

♦ SAVE AREA * 

♦ * 
***************** 



*H3 
SUPERVISOR 
GENERATION 
OPTION. 



*****P4********** 

* POINT * 

* REGISTER 11 ♦ 

* TO SDR ♦ 

* TABLE ♦ 

* * 
***************** 



MCRR 

OPTION 

*H3 



ERRLOG 

OPTION 

*H3 



.♦REQUEST*. 
_ NO .* FROM MCRR ♦ 
X...^.COMREG + 134 



***** 
*LG * 
* B2* 
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Chart LG. $$A$SUP1 - SEND Macro, Routines for OBR/SDR Requests (Part 2 of 2) 
Refer to Chart 10. 



*****B2********** 

* * 

* SAVE MCRR * 

* REGISTERS * 

* 9-12 * 

***************** 



*LF * 
* JA* 

**** A 

SDRNMCRR .*. 

C2 *. 
.* IS *. 
NO .* FILE 
...*. READY 

*. SDRFLGS . 
*=X«01'.* 
X *. .* 

**** *YES 



**E2******* 
* MAKE * 

* SUPERVISOR * 

INACTIVE 

* WITH X'84' * 
*IN PIBSUPVR* 

*********** 



*D3 
SUPERVISOR 
GENERATION 
OPTION. 



*****F2******** 

* GET NEXT 

* QUEUE ENTRY 

* ADDRESS AND 

* STORE IN 

* ERQPTR 

***************: 



PTO 

OPTION 
*D3 



**H2******* 

* ACTIVATE * 

QUIESE 

PIBQUIS 

FLAG X«87' 

* # 
*********** 



**H3******* 

* ACTIVATE * 

QUIESE 

PIBQUIS 

FLAG X'85' 

* * 
*********** 



*************** 



*****C4* ********* 

* MOVE ADDRESS * 

* FROM * 

* SDRSDERF * 

* TO EROCSW * 

***************** 



**D4******* 
*M0VE X'01' * 

SDR WRITER 
REQUEST, 

INTO EROFLG 
* * 

*********** 



SDRSDR2 

**E4******* 
*PUT REQUEST* 

* TYPE INTO 
* QUEUE AT 

* ERQCSW 4- 4 

* *E5 * 
*********** 



* 1 



**** 
SDRSDR2X 

*****F 4** ******** 

* SET UP * 

* REGISTER 11 * 

* AS BASE * 

* WITH 4096 * 

* * 
***************** 



*****G4 ********** 

* * 

* MOVE PIK * 

* INTO * 

* ERQCSW * 

* * 
***************** 



***** 
*BC * 
* Bl* 



*E5 
IMMEDIATE DATA MODIFIED 
AT LOCATIONS SDRSDR AND 
SDROBR. 



**J2******* 

* TURN ON * 
UNBOUND * 

FLAG BYTE * 
QUIESCE I/O * 

* PIB * 
*********** 



*****K2** ******** 

* STORE * 

* MCRRAREA * 

* ADDRESS IN * 

* SDRSDERF * 

* FOR ALIGNMENT * 
***************** 
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Chart LH. $$A$SUP1 - SEND Macro , LTA Subroutine 



**A2********* 
LTA * 
*A3 * 
* 

************* 



*****B2 ********** 

* * 

* LOAD ADDRESS * 

* OF PUB * 

* FOR SYSRES * 

* * 
***************** 



*A3 
THIS SUBROUTINE IS LOCATED IN THE LOGICAL 
TRANSIENT AREA AND IS USED ONLY ONCE 
DURING IPL. ENTRY IS FROM THE FETCH MACRO 
(SGDFCH, CHART EA) THE FIRST TIME IT IS 
EXECUTED. THE ENTRY TO THIS ROUTINE IS 
OVERLAID BY NEW INSTRUCTIONS BEFORE THIS 
ROUTINE EXITS. 



* SYSRES *. 

ON SELECTOR . 

*. CHANNEL .* 



**C3******* 
*RESET BURST* 

* MULTIPLEX * 

FLAG IN 

* SYSRES PUB * 
* * 

*********** 



*****£ 2 ********** 

* SET RECORD * 

* LENGTH FOR * 

* CORE IMAGE * 

* LIBRARY TO * 

* 1683 FOR 2314 * 
***************** 



*****G2********** 
*SET CORE IMAGE * 

* DIRECTORY * 

* ADDRESS FOR * 

* 2314 * 

* *G3 * 
***************** 



*****H2 ********** 

* DECREASE * 
♦RETURN ADDRESS * 

* IN REG 14 * 

* BY 6 BYTES * 

* * 
***************** 



***** j 2 ********** 

* OVERLAY TWO * 

* INSTRUCTIONS * 

* IN FETCH * 

* ROUTINE * 

* *J3 * 
***************** 



****«2 ********* 

* BRANCH TO * 

* OVERLAID * 

* INSTRUCTIONS * 
*************** 

CHART EA 



*F3 
SUPERVISOR 
GENERATION 
OPTION. 



*G3 
CYLINDER 0, 
TRACK 10, 
RECORD 1. 



*J3 
THE TWO INSTRUCTIONS THAT 
BRANCHED TO THIS ROUTINE 
AT IPL TIME ARE NOW REPLACED 
BY THOSE THAT WILL BE USED 
FOR NORMAL PROCESSING IN THE 
SGDFCH MACRO (SEE CHART EA). 
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Chart MA. $$A$SUP1 - SGTHAP Macro, Track HOLD 
Refer to Chart 03. 



»*»»A1»******* 
LOAD R4 WITH 

ADDRESS OF 

TKHD1 (BLOCK 

Gl) FOR 

BRANCH REG 



»A2*****»*»* 
SVC35A » 



GET TRACK 

TO BE 
PROTECTED 



SVC35A 

»»**«B1»**»»»*« 

» SET FLAG 
» TO INDICATE 

* TRACK HOLD 

* FOR THIS I/O 

* »E3 



•USE PUB POINTER* 

* TO GET TO » 

* BYTE 4 OF »X. 

* PROPER SAB ♦ 



SUPERVISOR 
GENERATION 
OPTION. 



IS 
TABLE 
FULL 



GET TRACK 

HOLD FREE 

LIST POINTER 

INTO R7 



SVCOO 

(RETURNS TO 

TKHDRTNt BLOCK El) 



« ANY » 
ENTRIES 
QUED TO 
DEVICE 



*#»»D2*»*»*»*« 

PLACE TRACK 

HOLD POINTER 

FROM SAB 

INTO R7 



• ANY » 
ENTRIES 
QUED TO 
DEVICE 



»#»D3******** 

GET POINTER 

FROM BYTE 

5 OF PUB 

INTO R7 



PLACE R7 

POINTER INTO 

SAB TABLE 



♦ SEEK 

SEPARATION 
». *B4 



*»»*D5* 

PUT R7 PTR 

IN BYTE 5 

OF PUB TABLE 

(OPTION BYTE) 



TKHDRTN X 

.♦•••El»**««*» 

* SET OFF 

* TRACK HOLD 

• FLAG 

• »E3 



•SCAN TABLE FOR 
« TRACK ADDRESS 
* BEING HELD 



*E3 
SVOLDP+2 (BYTE 2 
OF SVC OLD PSW) 
X«FF« - HOLD TRACK 
X'OO' - NO HOLD ON 
TRACK 



*E4 
TRACK HOLD TABLE 
BYTE 11, BIT 0=1 
DENOTES TASK 
WAITING FOR 
TRACK. 



##*#»E5»* ******* 

• USE PTR TO 

• GET ENTRY IN 

• TRACK HOLD 
•TABLE, MOVE TO 

• FREE LIST PTR 



GET DEVICE 
TYPE FROM 

PUB TABLE 



IS 
TRACK 
BEING 
HELD 



Gl *. 

.* ENTRY *. 
• POINT OF 

THIS CHART 
». »K5 



IS 

DEVICE 
DISK 



•••♦Jl«*»«»»»» 

MOVE CCW TO 

ALC2 AND GET 

CCW ADDRESS 

IN R4 



.* LONG ». 

.• SEEK ♦. NO 
MCODE = X'07 1 ).*... 



• DOES ». 

REQUESTOR . 

•.OWN TRACK. • 



MORE 

THAN 16 

HOLDS 



INCREMENT 

TRACK HOLD 

COUNTER BY 1 



IS 
TABLE 
FULL 



THWAIT2 X 

♦#»»G4»*»*«*»« 

SET SW TO 

INDICATE 

TASK WAITING 

FOR TRACK 

•E* 



THSETUP 

*«««»F 5 *****«*.*'** 

♦STORE CCB ADDR • 

♦ IN TRACK HOLD • 

♦ TABLE, MOVE « 

♦ X'FF' IN TRK • 
•HOLD ENTRY PTR • 



• SAVE DISK • 

• ADDRESS AND ** 
•TASK IDENTIFIER* 



••••»H3********** 
•MOVE NEXT AVAIL* 

♦ ENTRY PTR TO » 

* TABLE AND GET • 
♦POINTER TO NEXT* 
♦AVAILABLE ENTRY* 



***J3******** 

MOVE NEXT 

AVAIL ENTRY 

POINTER TO 

FREE LIST 

POHTER 



*#»H<t******»* 
SET OFF BIT 

7 OF TASK 

PIB FLAG TO 

MAKE TASK 

INACTIVE 



*»*#J4******** 
SET FLAG TO 

INDICATE 

TRACK HOLD 

FOR THIS I/O 

*E3 



*CC * 

* DLt 

EXCP3 



• CC • 

• Dl* 

EXCP3 



• J5 

DECISION AND 
BRANCH PERFORMED 
IN SUBROUTINE 
'THRETRY' . 



*K5 
NOT A PROGRAM 
DECISION. SHOWN 
HERE TO DESCRIBE 
PROGRAM LOGIC 
FLOW. SEE CHARTS 
MA-A1 AND MB-B1. 



1 * 
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Chart MB. $$A$SUP1 - SGTHAP Macro, 
Refer to Chart 03. 



FREE Track (Part 1 of 2) 



***** 

*BH * 
* J2* 



SVC36 X 

*****A1 ********** 

* SET MASK * 

* FOR FREEING * 

* TRACK * 

* -TKHWT+1 * 
*. = X'24' * 
***************** 



*****q !*********# 
♦SVC35A MA* 
*_*_*_*_*_*_*_*_* 

* INITIATE * 

* REGISTERS * 

* * 
***************** 



*****d ********** 

* RESET MASK * 

* FOR TRACK * 

* HOLD * 

* -TKHWT+1 * 

* = x'23' * 
***************** 



* * 

* * 
**** 




* 2 
* 
**** 

X 


X 

**A2******* 
TURN ON * 
1ST TIME * 
THRU SWITCH * 
-ALC- * 
BIT 1=1* 
*********** 


TKDLET 

.* 
*. 
* 


.*. 
A3 * 
* 

1ST 
TIME 
THRU 
*. 

*. .* 



*A5 
SUPEVISOR 
GENERATION 
OPTION. 



*****B2********** 
♦THRETRY MC* 
*_*_*_*_*_*_*_*_* 
♦SCAN TABLE FOR * 

* TRACK ADDRESS * 

* BEING HELD * 
***************** 



IS 

DEVICE 

DISK 



***** El ********** 

* * 

* POST THE * 

* CCB TRAFFIC * 

* BIT * 

* * 
***************** 



*****F1 ********** 

* MOVE CCW * 

* TO FULL WORD * 

* AND LOAD * 

* SEEK ADDRESS * 

* INTO R4 * 
***************** 



* SEEK *. NO 
SEPARATION .*... 

*. *A5 .* 



*****H1********** 

* GET SAB PTR * 

* FROM PUB AND * 

* CALC ENTRY * 

* INTO SAB * 

* TABLE * 
***************** 



.* ANY *. NO 
.HOLDS ON THIS.*..) 
*. DEVICE .* 
*. *B5 .* 



THFREE .*. 

E2 *. 
.* DOES *. 
NO .* REQUESTOR *. 
...♦. OWN 

*. TRACK .* 
*. .* 



* * * 4 *.X. 



NO .♦ MORE THAN *. 

...*. 1 HOLD ON . 

*. TRACK .* 



**** 

* * 

* 2 * 

* * 
**** 



*****B 3** ******** 
*SAVE FREE LIST * 

* PTR IN R4 AND * 

* MOVE PREVIOUS * 

* ENTRY PTR TO * 

* FREE LIST PTR * 
***************** 



*****C3********** 

* MOVE TRACK * 

* HOLD TABLE * 

* POINTER TO * 
♦PREVIOUS ENTRY * 

* -ALC2- ♦ 
***************** 



*****D3** ******** 

♦ STORE SAVED * 

♦ FREE LIST PTR ♦ 

♦ IN TRACK ♦ 

♦ HOLD TABLE * 

♦ POINTER ♦ 
***************** 



IS 
THIS THE 
.ONLY HOLD. 



*****B4********** 

* SAVE PTR FROM ♦ 

♦ TRACK HOLD * 

* TABLE, MOVE * 

♦ FREE LIST PTR ♦ 
♦TO TRK HLD PTR * 
***************** 



*B5 
SAB TABLE ENTRY, 
BYTE 4 = X'FF'. 



♦ C5 
PUB TABLE 
BYTE 5 = X 



* SEEK *. NO 

SEPARATION .*... 
♦. *A5 .♦ 



*****04********** 

♦ MOVE PTR FROM * 

♦ SAB TABLE TO * 
♦FREE LIST PTR, * 
♦STORE SAVED PTR* 

♦ TO SAB TABLE ♦ 
***************** 



*****05********** 

♦ MOVE PTR FROM ♦ 

♦ PUB TO FREE ♦ 
♦LIST PTR, STORED 

♦ SAVED POINTER ♦ 

♦ TO PUB TABLE ♦ 
***************** 



.X.. 
X 
***** 

♦ MC * 

* Al* 
* * 

* 
THCHK 



*****G2********** 

♦ SUBTRACT 1 ♦ 

♦ FROM TRACK ♦ 

♦ HOLD ♦. 

♦ COUNTER ♦ 



.♦ DOES ♦. 
YES .♦ REQUESTOR ♦. 
...♦. OWN 

♦. TRACK .♦ 



REOUEST ♦. YES 
FROM .♦... 
DETACH .♦ 



♦ SEEK 

SEPARATION 
*. *A5 



******** 



******** 



**** 

BD ♦ 

G2* 



***** 

♦ BA ♦ 

♦ A3* 



H2 ♦. 

♦ ANY ♦ 

HOLDS 

ON THIS 

DEVICE 

♦. ♦CS .♦ 

*. .* 

*YES 



*****j2********** 

♦ GET POINTER ♦ 

♦ FROM PUB ♦ 

♦ OPTION BYTE ♦ 

♦ INTO R7 ♦ 

♦ * 
***************** 



*****«! ********** 

♦ * 

♦ PUT ♦ 

♦ POINTER INTO ♦ 

♦ R7 ♦ 

♦ * 
***************** 



.* DID *. 
TRANSIENT ♦. NO 
ISSUE .♦... 
. FREE .♦ 



PID = 

X'40' - 

.MAINTASK 



THDLT2 X 

*****G4********** 

♦ MOVE TRK HOLD ♦ 

♦ FREE LIST PTR ♦ 

♦ TO BYTE OF ♦ 

♦ TRACK HOLD ♦ 
TABLE ENTRY 



*** 



********* 



*****H4********** 

* MOVE PTR OF * 

* DELETED ENTRY * 

* TO TRACK HOLD * 

* FREE LIST * 

* POINTER * 
***************** 



**J4******* 
♦INDICATE NO* 

♦ HOLDS ON * 
THIS DEVICE, 

* SAB BYTE 4 * 



THDLT2 

*****G5********** 

♦ MOVE TRK HOLD ♦ 

♦ FREE LIST PTR ♦ 

♦ TO BYTE OF ♦ 

♦ TRACK HOLD ♦ 

♦ TABLE ENTRY ♦ 
***************** 



*****H5********** 

* MOVE PTR TO * 
♦DEL ENTRY FROM * 
+PUB OPTION BYTE* 

* TO TRK HOLD * 

* FREE LIST PTR * 
***************** 



X'FF' * 
********* 



DETFRE 
YES. .♦* 



***** 

♦ MC ♦ 

* Al* 



TASK 

OWN 

TRACK 



***** 

*BA *ERR21 

♦ A3* 
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Chart MC. $$A$SUP1 - SGTHAP Macro, FREE Track (Part 2 of 2), THRETRY Subroutine, and AB 
STXIT 

Refer to Chart 03. 



.• TASK • 
WAITING 
FOR THIS 
. TRACK 



♦ ZERO TASK ID 
•AND FLAG BYTES 
» IN TRACK HOLD 
» TABLE 



• A3 
IF ONE OR MORE OF 
THESE SUPERVISOR 
GENERATION OPTIONS 
WAS SPECIFIED, THE 
CODING ON THE 'YES' 
LEG WAS GENERATED. 



• ZERO TASK ID 
•AND FLAG BYTES 

• IN TRACK HOLD 

• TABLE 



INCREMENT 

TASK ID 

NUMBER BY 

ONE 



WAS •. NO 
TABLE .»... 
FULL .• 



»B3»»»»»» 
THRETRY 



.• MPS, ». NO 
.SP, OC, OR IT.*... 
•. »A3 .« 



ANY RO 
PARAMETER 
. PASSED . 



END • 
OF ID 
NUMBERS .• 



•TO EXT03, CHART 
BC-C1, OR TO 
EXTOl. CHART BD-B2, 
IF SVC36 ENTERED 
FROM DETACH ROUTINE. 



X.. 



THRETRY 

C3* 

* CALCULATE 

* ENTRY IN 

♦ TRACK HOLD 

♦ TABLE 



••»E1»»»» 

USE TASK .. 

NUMBER TO 

CALCULATE 

PROPER PIB 



ID 



• •••E2 

RETURN 
VIA R5+4 



FOUND EXIT 



FL •. 

•• DOES *. 
•TASK EXIST ». NO 

AND IN WAIT .»..« 
•. STATE .* 



.♦ IN ♦. 

•WAIT STATE 
VIA SVC 35 



*»»H1*»»*»»»» 
REMOVE CODE 
FOR SVC 35, 
-SVEPSW1+2 



•G2»*»»« 
RETURN 
VIA R5 



.• THIS *. 
• TRACK = 

REQUESTORS 
•. TRACK . 



• »E3«»««»" 

TURN OFF 

1ST TIME 

SWITCH 

-ALC- 

BIT 1 = 



IS THIS 
THE LAST 
. ENTRY 



• ••G3"»*">* 

GET POINTER 

FOR NEXT 

TRACK HOLD 

TABLE ENTRY 

INTO R7 



VALIDATE 

SAVE AREA 

ADDRESS 



VALIDATE 

ENTRY POINT 

ADDRESS 



SVC37A 

• USE PROGRAM, 

• INTERRUPT KEY 

• TO POINT R<t 

• TO AB TABLE 

• ENTRY 



STORE ENTRY 
POINT AND 
SAVE AREA 

ADDRESS IN 
AB TABLE 



»»*»J1»»»»»«»»» 

ACTIVATE TASK 

-PIBFLG (BYTE 

OF PIB), 

BIT 7 =1 



Kl ». 

.♦SVC 36 •. 
REQUESTED 
BY DETACH 

. ROUTINE . 



•»»»K2*«*»»»»*« 
POINT R9 TO 
-EXT03- FOR 

TASK SELECTION 
EXIT 
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Chart MD. $$A$SUP1 - SGTHAP Macro, ATTACH a Task 
Refer to Chart 03. 



***** 




*BH * 




* J2* 




* * 










*A2 




TRT 


X 


'TI 


.*. 


SET 


Al *. 


070 


* *. 


AS 


ATTACH *. NO 


THE 


SSUED BY A .*... 


. IS 


MAIN TASK.* 


. IT 



Bl *. 
.* AVAIL *. 
PIB ENTRY 
FOR THIS 
. • TASK 
*. *A2 .* 
*. . * 
*YES 



SVC38A 

***** ci ********** 

* REMOVE ID * 

* FROM TID * 

* AVAIL FIELD, * 

* 'TIDTRT'+N * 

* = X'OO' * 
***************** 



***** 01 ********** 

* MULT N BY 16 * 
*TO CREATE TASKS* 

* PIB DISPLACE- * 

* MENT AND SAVE * 

* AT TIDSAV+1 * 
***************** 



VALIDATE ADDR * 

OF SUBTASK'S * 

SAVE AREA * 

**************** 



*****F1 ********** 
*VLDADR1 HA* 
*_*_*_*_*_*_*_*_* 

* VALIDATE ADDR * 

* OF SUBTASK'S * 

* ENTRY POINT * 
***************** 



.* DOES * 
.SUBTASK HAVE 
*. ECB .* 



PEFORMED ON 
DTRT' INITIALLY 

AT X'00000000000000 
8090A0B0C0D0E0F'. 
A SUBTASK IS ATTACHED, 

BYTE (X'07', X'08', ETC) 
SET TO X'OO' TO MAKE 
NOT AVAILABLE. 



*****B2********** 

* GET ADDR OF * 

* SPVECB IN Rl * 
.X*AND UNPOST PIB * 

* AVAILABLE * 

* ECB (= X'OO') * 
***************** 



**#**C 2** ******* 

* STORE SPVRECB 

* ADDR IN MAIN- 
*TASK SAVE AREA 

* FOR Rl AND 

* MAKE IT NEC 
**************** 



SAVE AREA BYTES 



*E2 
SUPERVISOR 
OPERATION 
OPINION. 



* VALIDATE * 

* THE * 

* ADDRESS * 
***************** 



*****jj ********** 

* UNPOST THE * 

* ECB (ECB * 

* ADDR+2, BITS * 

* AND 1=0) * 

* * 
***************** 



_*_*_*_*_*-* 



* VALIDATE AB 

* SAVE AREA * 

* ADDRESS * 
***************** 



SVC38C 

*****J2**: 

* REMOVE ID * 

* FROM TID * 

* AVAILABLE * 

* FIELD * 

* * 
***************** 



SVC38C 

*****K2********** 

* SET REGISTERS * 

* FOR MAIN * 

* TASK-SUBTASK * 

* PROCESSING * 

* * 
***************** 



**A3******* 

* TURN OFF * 
* CHANNEL * 

* APPENDAGE BIT 
*IN PIB ASSIGN* 

* FLAG * 
*********** 



*****B3 ********** 
*COPY MAIN TASK * 
*PIB AND EXTEN- * 
*SION TO SUBTASK* 

* PIB AND * 

* EXTENSION * 
***************** 



*****C3** ******* 
*COPY MAIN TASK 

* SAVE AREA TO 

* SUBTASK 

* SAVE AREA 

* *A5 
**************** 



*****D3** ******** 

* PUT ENTRY * 

* POINT PARAM * 

* IN SUBTASK'S * 

* PSW (IN SAVE * 

* AREA) * 
***************** 



*****E3** ******** 

* PUT SUBTASK'S * 
*SAVE AREA ADDR * 

* IN SUBTASK'S * 

* PIB ENTRY * 

* RESTORE NOP * 
***************** 



*****p 3 ********** 
*MOVE SUBTASK'S * 

* ECB ADDR TO * 

* SUBTASK'S * 

* PIB * 

* EXTENSION * 
***************** 



*****G 3** ******** 

* SET SUBTASK'S * 

* PIB FLAG * 

* = X' 83' * 
*(READY TO RUN) * 

* * 
***************** 



*****H 3** ******** 
*PUT MAIN TASK'S* 

* PIB DISPL IN * 

* SUBTASK'S PIB * 

* EXTENSION * 

* * 
***************** 



***** j 3** ******** 

* PUT SUBTASK'S * 

* PIB * 

* DISPLACEMENT * 

* IN SUBTASK'S * 

* SAVE AREA * 
***************** 



*****K3** ******** 

* ENSURE BIT * 

* OF MAINTASK'S * 

* Rl IS OFF TO * 

* INDICATE SUC- * 
♦CESSFUL ATTACH 





0-7 


= SUBTASK NAME 


X 


8-15 


= PSW 


***A4* ********* 


16-79 


= REGS 9-8 


PUT SUBTASK'S * 


80-81 


= LABEL LENGTH 


SAVE AREA END * 


82-87 


= RESERVED 


ADDRESS+1 * 
IN RO OF * 






88-119 


= FLOATING POINT 


MAIN TASK * 




REGS 


*************** 


120 


= TASK ID 




121-127 


= RESERVED 

OR 




88 


= TASK ID (TID) 




89-95 


= RESERVED 




SEE FIGURE 1, PARTITION 


X 

***B4**** ****** 


SAVE AREA. 






LOAD PIB * 






DISPL OF * 






ATTACHING * 






MAIN TASK * 






IN Rl * 






*************** 







*****C4********** 

* POINT R2 * 

* TO LAST * 

* BYTE OF * 

* -MVCFLD- * 

* *C5 * 
***************** 



SVC38D 

***** 04 ********** 
*BACK UP PTR TO * 

* -MVCFLD- 1 * 

* BYTE, MOVE * 

* CHAR I PLACE * 

* TO RIGHT * 
***************** 



E4 *. 
.* IS *. 
.* THIS THE *. NO 
*. ATTACHING .*... 
*. TASK .* 



SVC38E 

*****F4 ********** 

* INSERT TASK * 

* ID (TID) INTO * 

* -MVCFLD- FOR * 

* CORRECT * 

* PRIORITY * 
***************** 



*****G4********** 
*TKPRTY MJ* 
*_*_*_*_*_*_*_*_* 

* ESTABLISH * 

* ABSOLUTE * 

* PRIORITY *D5 * 
***************** 



*D5 
PIB PRIORITY IS 
ESTABLISHED BY 
INSERTING NO'S. 
1-N (1 BEING THE 
HIGHEST PRIORITY 
AND MAXIMUM N = 9) 
IN THE PIB EXTENSIONS. 



EXIT 

OPTION . 
*. *F2 .* 



*****P5********** 

* GET * 

* AB SAVE * 

* ADDRESS * 

* IN Rl * 

* * 
***************** 



*****G5********** 

* CALCULATE * 

* MAIN TASK'S * 

* AND SUBTASK'S * 

* AB ENTRIES * 

* * 
***************** 



*****H5********** 

* MOVE MAIN * 

* TASK ROUTINE * 

* ADDR TO SUB- * 
*TASK AB ENTRY, * 

* BYTES 0-3 * 
***************** 



*****j5********** 

* STORE Rl (AB * 

* SAVE ADDRESS) * 

* IN SUBTASK * 

* AB ENTRY, * 

* BYTES 4-7 * 
***************** 



*** 



************* 



SVC39H 

**K5******* 

* TURN ON * 
* SUBTASK * 

♦ATTACHED BIT 6 * 
IN PIB BYTE 15* 

* * 
*********** 



**** 

* * 

* 1 * 



***** 
*BC * 
* Bl* 
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Chart ME. $$A$SUP1 - SGTHAP Macro r DETACH a Task (Part 1 of 2) 
Refer to Chart 03. 



.* ANY *. 

LOW ORDER * 
BITS OF TIO 



SAVE = 
PARAMETER 
. PASSED . 



IS TASK » 

IN AB 
ROUTINE .* 



*»»»#B3********** 
« GET LENGTH OF » 
♦TABLE INTO R3, * 

* ADD TO R2 TO » 

* POINT TO 1ST » 
•BYTE PAST TABLE* 



SET UP 

SUBTASK TO 

CANCEL 



RESTORE 
SUBTASK* S 
PIB FLAGS 



#*»#*C2********« 

• GET SUBTASK 

• PIB ADDRESS 
» IN REG 4, 
•EXTENSION ADDR 

• IN REG 5 



IS A 

SUBTASK 

.CANCELING. 



•LOAD HIGH LIMIT* 

• ADDRESS INTO « 

* REGISTER 2 • 



»»*#C3»******* 

MOVE TASK ID 

TO SVC39H 

FOR COMPARE 

INSTRUCTION 



SVC39G 

»»»*«D3* 

• BACK UP • 

• REGISTER 2 • 
•(TABLE POINTER)* 

• 1 BYTE • 



SVC39H .*. 

E3 ♦. 
-•PENDING*. 
. I/O BELONGS*. NO 
.TO THIS TASK .♦... 



***»»C4********** 
•LOAD MAINTASK'S* 

• PIB POINTER » 

• FROM APSAVE • 

• INTO REG 10 * 



*D4 
SUPERVISOR 
GENERATION 
OPTION 



VALIDATE SUB- 
TASK'S SAVE 
AREA ADDRESS 



SAVE TASK 
ID (TID) AT 
TIDSAV + 1 



.* IS 

THIS A 
♦.MAINTASK 



SVC39M 

«*»»«H2**»» 
•POINT R4 T 

* OF DETACH 

* SUBTASK, 

* TO ITS P 

* EXTENSI 



MAINTASK 

ISSUED 

SVC 39 



***G3*****«» 

SAVE PIB 

POINTER TO 

MAINTASK 

AT APSAVE 



.• END ». 

OF I/O 
REQUESTOR 
. TABLE . 



HAS 

FETCH 

STARTED 



RESTORE 

PIB ADDRESS 

IN REG 10 



SVC39P1 

*****B5********* 
» INACTIVATE 
» THE SUBTASK' S 

* PIB (BYTE 

* = X f 80') 



••••»C5********* 

• LOAD ADDR OF 

• SUBTASK'S ECB 

• (IF ANY) INTO 
» REGISTER 1 



**»»»D5********** 
♦ZERO OUT BYTES » 

* 6-13 OF PIB * 
•XTNSN (PRIORITY* 
♦ECB ADDR, MAIN * 

♦ TASK PIB DISPD* 



E5 *. 

* DID » 

SUBTASK 

HAVE AN 

ECB 



»»*»F5******** 

POST SUBTASK 

TERMINATION 

IN ECB - 

BYTE 2, BIT 



•POINT REGISTER • 
•10 TO SUBTASK'S* 
• PIB * 



READY ANY 

WAITING 

TASKS 



♦»»H5*****»*« 
POINT REG 2 
TO MVCFLD+2 

IX'40' IN 

PRIORITIES 

AREA) 



**J1»»**«»» 


»»«»#J2» 


»**••••»• 


» 




j3*»»**»»*»* 


*#»*»J4****» 


• »*•• 


CLEAR S.T. * 


* SAVE TID FROM 






SFT 


IMMEDIATE 




•SAVE REG 1C 


CON* 


ID IN SAVE * 


•PIK + 1 (COMREJ* 


* 


iYTF 


OF ERRSET)* 


•TENTS, PIB 


ADD-* 


AREA WITH * 


* EXTENSION) 






TO 


:'50» FOR 




♦RESS. LOAD 


ADDR* 


X'OO' * 


* AT TIDSAV + 1 






NORMAL EOJ 




* OF PIB TO 


BE * 


* 


* 


* 


* 






« 


♦DETACHED IN 


RA » 




* 10 ».. 
























X 


























SVC39B X 








X 




X 




Kl *. 


*»«»»K2**»****« ►» 




h»»*K3********** 


#»»*»K4«*»*» 




.* ANY *. 


* LOAD REG 2 












•SVC11A 


FE* 


LOW ORDER *. YES 


* WITH ADDR OF 




♦ 


SAVF 


SUBTASK'S 








BITS OF TID 


•TASK REQUESTOR 






PIB 


FLAGS IN 




* FREE THE 




ON .* 


• I/O TABLE 






REGISTER 6 




* LTA 




». .* 


< •*••**•• 




* 


* 








* 


* 




♦ •••« 



SVC39D 

♦ INCREMENT 

♦ REG 2 BY 1 

♦ TO POINT TO 

♦ NEXT BYTE IN 

♦ MVCFLD 



.♦ IS *. 

THIS TASK » 
TO BE 
. REMOVED .* 



* A3* ERR21 
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Chart MF. $$A$SUP1 - SGTHAP Macro, DETACH a Task (Part 2 of 2) 
Refer to Chart 03. 



♦A2 
SUPERVISOR 
GENERATION 
OPTION. 



***** 


**** 










**** 


*ME * 


* * 










* * 


* K5* 


* 1 * 










* 5 * 


* * 


* * 










* * 


* 


**** 

........... .xl 










**** 


X 
.*. 


SVC39E X 


SVC39J X 


Bl *. 


*****B2********** 








*****B4********** 


.* *. 


* 


* 








* INCREMENT * 


.* MVCFLO *. YES 


* BACK UP REST 


* 








* R2 12 BYTES * 


*. BYTE 1 G.T. .*... 


* OF MVCFLD 


* 








* TO POINT TO * 


*. X'50* .* 


* 1 BYTE 


* 








* NEXT TRK HOLD * 


*. .* 


* 


* 




**** 




* TABLE ENTRY * 


*. .* 


************** 


*** 




* * 




***************** 


*N0 








* 2 * 

* * 
**** 






X 


SVC39F X 






X 




X 


*****ci********** 


*****C2********** 


*****C3********** 


C4 *. 


* SUBTRACT 1 * 


♦TKPRTY 


MJ* 


* P 


ICK UP TID, 


* 


.* *. 


* FROM REG 2- * 


*-.*_*_*_*_*_*- 


*-* 


* 


DIVIDE BY 


* 


.* TRACK *. NO 


* BACK UP * 


* ADJUST 




* 


2 (FOR 8 


* 


♦.HELD BY THIS .*.. 


♦MVCFLD POINTER * 


* TASK'S 


* 


* 


BYTES PER 


* 


*. TASK .* 


* BY 1 BYTE * 


* PRIORITIES 


* 


* 


ENTRY) 


* 


*. .* 


***************** 


***************** 


***************** 


*. .* 



YES .* MVCFLD 
...*. BYTE G.T. 
*. X«50' . 



*****E1********** 

* POINT * 

* REGISTER 7 * 

* TO CORRECT * 

* PIB * 

* * 
***************** 



**F1******* 

* SET PIB * 

* BYTE 15, * 
♦BIT 6 OFF - NO 

♦ SUBTASKS ♦ 

♦ ATTACHED ♦ 
*********** 



*****D2 ********** 

♦ SHIFT TID 4 * 

♦ BITS TO RIGHT ♦ 
♦STORE AT TIDTRT* 

♦ TO MAKE PIB ♦ 

♦ AVAILABLE ♦ 
***************** 



**** 

X 
*****03********** 

♦ POINT TO ♦ 

♦ PROPER ENTRY ♦ 

♦ AND ZERO OUT ♦ 

♦ THE ENTIRE ♦ 

♦ ENTRY * 
***************** 



**** 

* * 

* 4 * 

* * 
**** 



SVC39E1 

**Hi******* 

♦ ATTACH ♦ 

* HAINTASK 
♦ WITH 

♦ X'83« 

* * 
*********** 



*****P2* 

♦ USING TID ♦ 

♦ CALC PROPER ♦ 

♦ PC TABLE * 

♦ ENTRY ADDR, ♦ 

♦ PUT IN R2 ♦ 
***************** 



*****G2********** 

♦ ZERO OUT * 

♦ THE 8-BYTE ♦ 

♦ PC TABLE ♦ 

♦ ENTRY * 

♦ * 
***************** 



* 1 * 

* * 
**** 



*****J2********** 

♦ * 

♦ POINT R2 ♦ 

♦ TO AB ♦ 

♦ TABLE ♦ 

♦ * 
***************** 



K2 ♦. 






.♦ ♦ 






PC 


'* 


YES 


SUPPORT 




*.... 


♦A2 


,* 




♦ . .♦ 






♦ . .♦ 




X 


♦NO 




**** 






* 






♦ 3 


X 




* 


**** 




**** 



E3 *. 

♦ TRACK ♦ 

HOLD 

SUPPORT 

♦A2 



ANY 

TRACKS 

HELD 



**G3******* 

♦ SET SW ♦ 
TO RETURN 

FROM SVC 36 
ALC, BIT 

* 0=1 ♦ 
*********** 



*****H3** ******** 

♦ POINT * 

♦ R2 TO 12 ♦ 

♦ BYTES BEFORE ♦ 

♦ TRACK HOLD * 

♦ TABLE ♦ 
***************** 



*****j 3** ******** 

♦ LOAD NO. OF ♦ 

♦ TRACK HOLD ♦ 

♦ TABLE ENTRIES ♦ 

♦ INTO R3 ♦ 

♦ * 
***************** 



**** 

* * 

* 5 ♦ 

* * 
**** 



*****D4********** 

♦ CLEAR NO. OF ♦ 

♦ HOLDS COUNTER ♦ 

♦ (TRACK HOLD ♦ 
♦TABLEt BYTE 11 ♦ 

♦ BITS 4-7 = 0) * 
***************** 



*****E4********** 
♦SVC36 MB + 
*_*_*.*-*_*_*.*_# 

♦ FREE ♦ 

♦ THE ♦ 

♦ TRACK * 
***************** 



.♦ END OF 


♦ . 


NO 


♦. TRACK HOLD 


.♦ 




*. TABLE 


* 




*. .* 






*. .* 




X 


♦ YES 




**** 
* 
♦ 5 

* 
**** 


X 






**G4******* 






♦ SET OFF 


* 




* SVC 36 


* 




* RETURN SW- 


* 




* ALC, BIT 


* 




* = 


* 




*********** 





SVC39L 

*****H4********** 

* POST PIB * 

* AVAILABLE ECB ♦ 

* (SPVECB+2, * 

* BIT = 1) ♦ 

* * 
***************** 



*****j4********** 

* POINT Rl TO * 

* SPVECB TO ♦ 

* INDICATE * 

* PIB AVAILABLE ♦ 

***************** 



*****K4**** ****** 
*UNWAIT MJ^ 
*-.*_*_*_*_*_*-.*.».* 

♦ TAKE WAITING ♦ 

♦ TASK FROM ♦ 

♦ WAIT STATE ♦ 
***************** 



***** 

♦ BC ♦ 

* Bl* 
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Chart MG. $$A$SUP1 - SGTHAP Macro, POST a Completed Event and ENQ a Resource 
Refer to Chart 03. 



•*«A1* 

LOAD HIGH 

LIMIT ADDR 

OF ECB ADDR 

INTO R2 



LOAD Rl AND 

R2 WITH LO 

AND HI LIMIT 

ADDRESSES OF 

THE RCB 



ZERO OUT HI 
ORDER BYTE 
OF ECB ADDR 



.« OWNER ». 

♦TERMINATED ♦ 
OR ENQUEING 



♦ ♦•CI ♦* 

POST THE 

ECB NORMAL 

TERMINATION 

OF SUBTASK 

»C2 



• C2 
BYTE 2, BIT 
SET = 1 



POINT R3 TO 
CORRECT ENTRY 

IN 2ND HALF 
OF PIB TABLE 



Dl *. 


♦»»*«D2*»»«*»»* 


.•SAVE = ♦ . 


♦UNWAIT M 


* PARAMETER ♦. NO 




PASSED 


...X*REMOVE WAITING 


». (RO) .* 


♦ TASKS FROM 


«. . » 


» WAIT STATE 



SET Rl WITH 

3-BYTE ADDR 

OF LOW LIMIT 



SET 15 IN R4, 

POINT R5 TO 

PIB TABLE 



• INCREMENT » 
» R5 TO NEXT » 
•PIB TABLE ENTRY* 



NO .• DOES 
...♦. ECB ADDR 
«. EXIST 



»»»»»C5»»»*»»»*«» 

• SET RESOURCE- • 

• WANTED BIT • 

• IN RCB • 
•(BYTE 4, BIT 0)» 



SET PIB TABLE 
ENTRY BYTE 
BIT 1 = TO 
PUT ENQUEING 
TASK IN WAIT 



•••••E5«»*»»«»*« 

• GET TASK'S 
•SAVE ADDR, PUT 

• OWNER ECB 
» ADDRESS IN 
♦THAT TASK'S Rl 



• GET SAVE AREA 
•ADDR FROM THIS 

• ENTRY INTO R6 



• »**G3***»****' 

GET THE 

ADDRESS FROM 

ATTENTION 

ROUTIME PIB 

INTO R6 



*.»*H2«*»*«*»»** 

ZERO HI-ORDER ♦ 

BYTE OF R6, ♦ 

COMPARE Rl TO ♦ 

R6 FOR PROPER ♦ 

TASK ♦ 



• ♦. 


• SET BYTE 


* 


IS THIS *. YES 


• BIT 7 OF AB 




THE RIGHT 


..X» ENTRY = 1 




TASK .« 


♦TO REMOVE FROM 




*. .♦ 


• WAIT STATE 


* 


♦ . .♦ 







PUT ECB ADDR 

IN RCB 

(BYTES 4-7) 

AS RESOURCE 

OWNER ID 



*BD • 
• B2^ 

EXT01 



♦G5 

QUEUE BYTE (0) 

OF -RCB- 

BIT IS TESTED 
FOR (AVAILABLE) 
OR 1, AND ALL 
BITS ARE SET TO 
ONE. 

ADDRESS OF THE RCB 

WAS PASSED IN REG 1. 
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Chart MH, $$A$SUP1 - SGTHAP Macro, 
Refer to Chart 03. 



DEQ a Resource 



••Al» • 

POINT Rl 
AND R2 TO 
LO AND HI 
LIMITS OF 
RCB 



VALIDATE 
THE RCB 
ADDRESS 



»**»C1»**«*«*#* 

POINT R3 TO 

CORRECT ENTRY 

IN 2ND HALF 

OF PIB 

TABLE 



POINT R2 TO 

CORRECT ENTRY 

IN 1ST HALF 

OF AB TABLE 



****E1*»******* 

GET ECB ADDRS 

FROM RCB AND 

PIB XTNSION 

FOR OWNERSHIP 

COMPARE 



• E2 
SUPERVISOR 
GENERATION 
OPTION. 



• 


!*A 


IS THIS » 
MAINTASK 


YES 
*. . . • 






""•NO 






NO 


>• 


X 

Gl* *». 

* DOES » 

SUBTASK 

HAVE AN 

ECB 

*. .» 

• YES 

Ix... 


• 


• : 



SVC41B X 

••*#«A3*»****** 
• • INCR 

• POINTER, R3, 
» TO MEXT 

• BYTE IN 

• -MVCFLD- 


»/ 


SVC41C 
. ..X»* 


B4***«. 

WAITING *•. YES 
TASK 

FOUND .* 




X 

B3 # *"*. 
.» • 
.* END 
«. OF 


* 


. YES 


***»*B5«««*««***« 

• ZERO OUT • 
..X» RCB'S FLAG • 

• BYTE (BYTE 4) • 


♦.-MVCFLD- 







»*»«C3**»«»**«« 

USE-MVCFLD- 

BYTE TO POINT 

R4 TO PROPER 

ENTRY IN 

PIB TABLE 



ZERO OUT 

RCB'S FLAG 

BYTE (BYTE 4) 



• Bl» 
EXT03 



NO .» PIB *. 

X..«INDICATES WAIT. 
*. STATE .♦ 



»*»E3*»**«»«« 

POINT R5 
TO ENTRY IN 
2ND HALF OF 

PIB TABLE 



F3 • . 
.» PIB *. 

BELONG 

TO THIS 

.PARTITION. 



IS 

OWNER 
.DEQUEING 



SVC41A 

#»#»#H2**»***»** 
•SET AVAILABIL- 

• ITY BYTE (0) 
...X»IN RCB TO X'OO* 

• RESOURCE 

• AVAILABLE 



• TASK • 

WAITING FOR 
•.RESOURCE .• 



• TASK'S • 

RO POINT TO 
•. RCB .♦ 



»»#»H3*»»*»«»*»» 

REMOVE TASK * 

FROM WAIT • 

STATE (SET » 

PIB'S BYTE • 

BIT 7*1) • 



»*J3»»»»«»# 
♦INDIC FOUND* 
•WAITING TASK 

(SET RCB'S 
• BYTE 4, 
•BIT 1=1)* 



Kl *. 






#*#*»K2***»»»*»»* 


• • ♦. 








POINT R3 * 


» DEQ • 


NO 






TO X'40' IN ♦ 


IN AB 


• ..X 






-MVCFLD- ♦ 


•. ROUTINE .• 








SEE CHART ♦ 


• . .• 






* 


KK-*B2 • 


• YES 


*•«»» 








• BA » 


:RR21 




EXT01 . 


• A3« 






X 






X 


»*••« 


* 




•••• 


• BD • 






* 1 • 


• B2» 
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Chart MJ. $$A$SUP1 - SGTHAP Macro, Task Priority and UNWAIT Subroutines 
Refer to Chart 03. 



#»A1»»»«» 
TKPRTY 



INITIALIZE 
PRIORITY 
COUNTER, 
R6, TO 3 



POINT R2 

TO X"t0« IN 

-MVCFLD- 

»B2 



»B2 
-MVCFLD- INITIALLY 
X«60504Q302010' 10 
X»00'. EACH TIME A 
TASK IS ATTACHED 
THE CODE (EXCEPT 
X«605040») SHIFTS 
RIGHT— IF FG1 
ATTACHES A SUBTASK, 
A CODE IS INSERTED 
BETWEEN '40 1 AND 
•30«, AND EVERYTHING 
TO THE RIGHT OF '40' 
IS SHIFTED 1 BYTE TO 
THE RIGHT. IF FG2 
(OR BG) ATTACHES A 
TASK, A CODE IS 
INSERTED BETWEEN 
30 AND 20 (OR 20 
AND 10) WITH A 
CORRESPONDING 
RIGHT SHIFT. 



»*»A3»»»»**»»* 
UNWAIT 



* POINT R6 TO 

• X«40« IN 
•-MVCFLD- (»B21 

* POINT R4 TO 

• PIB TABLE 



.* IS *. 

NO .* TASK * 
,..». WAITING FOR 
♦.THIS ECB .• 



• REMOVE TASK 

• FROM WAIT 
« STATE - PIB 
•ENTRY, BYTE 0, 



INCREMENT 

R6 TO NEXT 

BYTE IN 

-MVCFLD-r 



I NCR R2 TO 

NEXT BYTE IN 

-MVCFLD- 



*»*E3»ft»****** 

POINT R5 TO 

PROPER PIB 

ENTRY USING 

-MVCFLD- BYTE 



ADD 1 TO 

PRIORITY 

COUNTER, R< 



*F2«*»»» 
RETURN 
VIA R7 



»»*»G1«*»»»***» 
CALC CORRECT 

ENTRY IN 

PIB ENTENSION 

TABLE 



•STORE PRIORITY 

• NO. IN THAT 

* ENTRY 



THIS 

TASK 

ACTIVE 



PIB 

IN WAIT 

STATE 



•*»*H3*»*»«*** 

GET ADDRESS 

OF SAVE AREA 

FROM PIB 

INTO R8 



*»»#F4»»»»«»»» 
GET ADDR OF 
ECB LIST OF 
ADDRS FROM 
Rl IN SAVE 
AREA INTO R8 



END OF 
ECB AODR 
. LIST 



.» ECB • 

ADDR IN 
THE LIST 
. ENTRY 



» REMOVE TASK 

• FROM WAIT 

• STATE - PIB 
•ENTRY, BYTE 0, 

• BIT 7 = 1 



POINT R8 TO 

NEXT ECB 
LIST ENTRY 



• YES 
X 

• 1 • 
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Chart MK. $$A$SUP1 - SGTHAP Macro, Task Termination Handling (Part 1 of 2) 
Refer to Chart 01. 



**** 

* « 

* i * 

* * 
**** 



**A1******* 
♦RESET FLAG * 

* BYTE IN 

PIB FOR 

* REGISTERS 

* STORED * 
*********** 



AB 

SUPPORT 

*A2 



♦ A2 
SUPERVISOR 
GENERATION 
OPTION. 



CI *. 






WAS * 






TASK IN 


♦ . 


YES 


ITS AB 




♦ .... 


ROUTINE 


* 




.* 










X 


*N0 




***** 

♦ ML ♦ 

♦ A5 + 
* * 



AP ♦. NO 
SUPPORT .♦... 
♦A2 .♦ 



CNCELO X 

*****A3********** 

♦SAVE MAINTASK'S^ 
♦CANCEL CODE IN ♦ 

♦ R5, SET R6 FOR ♦ 

♦ CANCEL CODE ♦ 

♦ X'lD' ♦ 
***************** 



*****B 3** ******** 
♦RDYCNL MM* 
*_*_*_*_*_*-*_*_* 

♦PUT CNCL CODES ♦ 
♦ IN PARTITION ♦ 
♦SUBTASK'S PIBS ♦ 
***************** 



*****C3** ******** 

♦ RESTORE ♦ 

♦ MAINTASK'S ♦ 

♦ CANCEL ♦ 

♦ CODE ♦ 

♦ * 
***************** 



WERE 

SUBTASKS 

.ATTACHED 



* 1 * 

* * 
**** 



**** 

* * 

* 6 ♦ 

* * 
**** 



**** 

* * 

* 7 ♦ 

* * 
**** 



THIS 

TASK OWNS 

LTA 



**** 

* * 

* 2 ♦ 

* * 
**** 



***** 
*ML ♦ 
♦ Al* 



*****C4********** 

* POINT REG 4 * 
♦TO USER'S SAVE ♦ 

♦ AREA (FROM ♦ 

♦ ATTENTION * 

* PIB) * 
***************** 



***** 

♦ ML ♦ 

* ci* 
* * 



X 

.♦. 

B5 ♦. 

.* ♦. 

.♦ AP ♦. NO 

♦. SUPPORT .♦... 

♦. +A2 .♦ 



**** 

* * 

* 7 * 

* * 
**** 



*****£ 5********** 

♦ POINT R2 TO ♦ 

♦ PROPER PIB ♦ 

♦ XTNSION ECB ♦ 

♦ ADDRESS AREA ♦ 

♦ * 
***************** 



*****D5********** 

♦ GET ECB ♦ 

♦ ADDRESS * 

♦ (IF ANY) ♦ 

♦ INTO REG 2 ♦ 

♦ * 
***************** 



AB ♦. NO 
SUPPORT .♦... 
♦A2 .♦ 



AB AND 
NOT MCRR 
. SUPPORT 



**P3******* 

♦ DETACH ♦ 

♦ MAINTASK 

♦ TEMPORARILY 

♦ WITH X'80« 

* * 
*********** 



* 1 * 

* * 
**** 



***** 

*BE ♦ 

* B3^ 

* * 



.♦IS THIS*. 

A DUMP 

MACRO IN 

.MAINTASK . 



♦FC ♦... 




♦ HI* 




**** X 




CNCELL .*. 




HI ♦. 




.♦ ♦. 




.♦ WERE *. 


YES 


♦. SUBTASKS 


♦ .... 


*. ASKED .♦ 




♦ . .♦ 




*. .* 


X 


♦NO 


**** 


♦*** 


Js ■ 


♦ ♦ . 


♦ 6 ♦... 


* J 


* * 


**** 


**** X 




.*. 




Jl ♦. 




.♦IS THIS^. 




.♦ A DUMP ♦. 


YES 


♦. MACRO IN 


*.... 


♦.MAINTASK .♦ 




♦ . .♦ 




♦ . .♦ 


X 


♦NO 


***** 




♦FC ♦ 


> 


* C2+ 



.*• 


RDYDUMP X 


H3 ♦. 


**H4******* 


USER ♦. 


♦ SET ♦ 


ISSUED ♦. NO 


♦ MAINTASK'S 


CANCEL ...... 


♦ CANCEL CODE = 


MACRO .♦ 


♦ X'18' 




* * 


♦ . .♦ 


*********** 



IS 

THERE 
AN ECB 



**F5******* 

♦ SET ♦ 
♦ABNORMAL BIT ♦ 

♦ IN ECB ♦ 
♦BYTE 2, BIT 1* 

* =1 * 
*********** 



RDYCANDP 

**J3******* 

* SET ♦ 

♦ MAINTASK'S ♦ 
♦ CANCEL CODE = 

♦ X«17' ♦ 

* * 
*********** 



G5 ♦. 
.*IS THIS*. 
.♦A MAINTASK 
♦. -PIK = 



H5 ♦. 

„* HAVE * 

SUBTASKS 

BEEN 

•DETACHED 



YES 


♦ AB 


...♦ 


SUPPORT 




♦ . *A2 




♦ . . ; 


X 


*. .* 


**** 


*NO 


* 




5 * 


CNCL .X.. 


* 


X 


**** 


***** 




*BE * 




* B3* 



X 
***** 
♦BC ♦ 
* Bl* 



***** 
*BC ♦ 
* Bl* 
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Chart ML. $$A$SUP1 - SGTHAP Macro, Task Termination Handling (Part 2 of 2) 
Refer to Chart 01. 



» USER *. 
ISSUED ». 
CANCEL 
MACRO . • 



•GET AODRESS OF 
» SAVE AREA 
» FROM TASK'S 
• PIB INTO R4 




POINT R2 TO 

TASK'S AB 

ENTRY 




LOAD AB EXIT 

ADDRESS (IF 

ANY) INTO R3 



El •. 

• IS • 

THERE 

AN EXIT 

ADDRESS 



FROM AB ENTRY 

POINT R5 TO 
AB SAVE AREA 



»*»»»G1*»*»»»*»* 
« MOVE PSW FROM 
•USER SAVE AREA 

• TO AB SAVE 

* AREA 



•»»H1*»*»*»* 

MOVE SAVED 

REGS O-F 

FROM USER 

TO AB SAVE 

AREA 



♦•**J1 *•• 

MOVE AB EXIT 

ADDR TO PSW 

IN USER'S 

SAVE AREA 



»*»»K1»»**»»»» 

ZERO OUT AB 

EXIT ADDRESS 

IN AB TABLE 

ENTRY 



*#»»A2»**»»»*»» 

CLEAR USER'S 

RO IN SAVE 

AREA AND 

SET CNCL CODE 

IN USER'S RO 



»»»»B2»*»»*»»»» 

CLEAR CANCEL 

BIT IN USER'S 

RO IN SAVE 

AREA (BITS 

0, 1 SET = 0) 



• A3 
SUPERVISOR 
GENERATION 
OPTION. 



•♦•••C2»» 


•••*•• 


• « 


• MOVE AE 


SAVE 




• ADDR TC 


USER 




• Rl IN 


JSER 




• SAVE 


AREA 


* 



»*«»D2»»»**»*»« 

MOVE CANCEL 

CODE FROM PIB 

TO AB TABLE 

SAVE ADDR 



ZERO OUT THE 

CANCEL CODE 

IN PIB BYTE 1 



*«F2»«»»»»» 
» SET ON AB • 
IN PROGRESS 
BIT IN P IB- 
BYTE 15, 
• BIT 7 = 1 • 



• A4 
THE LABEL 'CNCEL5' 
GENERATED ONLY IF 
BOTH 'OC AND 'AP' 
ARE SUPPORTED. 



»B4 
THE LABEL 'CNCEL6' 
NOT GENERATED IF • 
IS NOT SUPPORTED. 



•SET OFF AB * 

IN PROGRESS 

BIT IN PIB- 

BYTE 15, 

• BIT 7=0* 



C3 •. 

AP 
SUPPORT 



»»*E3»» •••**» 
POINT R6 TO 

PROPER OC 
TABLE ENTRY 

FOR TASK 



♦POINT TO PROPER* 
•ENTRY FOR TASK • 
• IN PC TABLE • 



ZERO OUT 

THIS 8-BYTE 

ENTRY 





« 


ZERO 


OUT 


» 






THE 8-BYTE 






« 


TABLE ENTRY 


• 




* 




* 








X 




*A4 




X 




CNCEL5 .». 








G3 ». 
















• IT • 


. 




». 


SUP 


>ORT 


.» 



*»*B5»»****»» 
POINT R2 TO 

PROPER AB 
TABLE ENTRY 

FOR TASK 



•MOVE CNCL CODE 

• FROM AB ENTRY 

• TO BYTE 1 

• OF PIB 



• SET ON 

» CANCEL BIT 

• (BIT 1) IN 

• PIB BYTE 1 



CNCEL1A 

• GET USER SAVE 

• AREA ADDR 

• FROM TASK'S 

• PIB INTO R4- 



GET AB 

SAVE ADDRESS 

INTO R3 



THIS 

TASK OWN 

LTA 



* GET USER SAVE 

* AREA ADDRESS 
•FROM ATTENTION 

* PIB INTO R4 



H3 ». 
* * 

AP 

SUPPORT 

• A3 

*»YES 



***»H5*»*»*»**« 
MOVE PSW AND 
REGS O-F FROM 
AB SAVE AREA 
TO USER SAVE 
AREA 



THIS *. YES 
TASK OWN .»... 
. TIMER .♦ 



• THIS * 

PROGRAM OWN 
». TIMER .* 



CLEAR IT 

TABLE TO 

ZEROS 



X 

»»»» 

I 1 # 
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Chart MM. $$A$SUP1 - SGTHAP Macro, RDYCNL Subroutine and CANCEL ALL Processing 
Refer to Chart 01. 



**** 

* 2 * 



****A1********* 

* * 

* RDYCNL * 

* * 

*************** 



♦SAVE REGISTERS * 

* 8 AND 10 * 

* AT APSAVE * 

* * 
***************** 



*****d ********** 

* POINT R2 TO * 

* MVCFLD+2 * 

* TO START AT * 

* ATTN * 

* *D3 * 
***************** 



RDYCN2A X 

**A2******* 
*SET TASK'S * 

* PIB BYTE 
* READY TO RUN 

* BIT 7 = 1 

* * 

*********** 



*A3 
INDICATES THAT THERE 
ARE SUBTASKS ATTACHEO. 



RDYCN1 

*****D1********** 

* INCREMENT * 

* REG 2 TO NEXT * 

* BYTE IN * 

* MVCFLD * 

* * 
***************** 



El *. 
.♦ IS * 
THIS THE 
MAINTASK 



****F1 ********** 
STORE REG 6 * 
CANCEL CODE * 
IN MVI INSTR * 
AT ERRSETO, * 
CHART BB-D2 * 

**************** 



RDYCN2 X 

*****Q1 ********** 

* CLEAR MVCFLD * 

* CHAR REG 10 * 

* AND GET CHAR * 

* FROM MVCFLD * 

* * 
***************** 



*****H1 ********** 

* ADD PIB * 

* POINTER TO * 

* REG 10 TO * 

* POINT TO * 

* TASK'S PIB * 
***************** 



**** 
CN4Z X 
*****C2********** 

* SAVE TASK'S * 

* PIBFLG AND * 

* MOVE X'FF' * 

* TO LOCATION * 

* WHLMSW * 
***************** 



*_*_*_*_*_*_*_*_* 

* READY * 

* TASK TO * 

* CANCEL * 
***************** 



*****£2********** 

♦RESTORE TASK'S * 

* PIBFLG AND * 

* SET WHLMSW * 

* BACK TO * 

* X'OO' * 
***************** 

**** 

* * 

* 3 * 



BACK UP R2 * 

(MVCFLD PTR) * 

1 BYTE * 

* 

**************** 



G2 *. 

.♦ STILL ♦. 

YES .* IN SAME *. NO 

...*. PARTITION .*... 

*. *A3> .♦ 



**** 

* * 

* 3 * 



**B3******* 

* TURN OFF * 

* OTAM WAIT 
.X* BIT IN TASK'S 

* PIB BYTE 

* * 
*********** 



*C3 
SUPERVISOR 
GENERATION 
OPTION. 



*D3 
SEE NOTE B2, 
CHART MJ. 



B4 *. 

.♦SIMPLE *. 

CANCEL 

INDICATED 

♦ D5 

*. .* 

*. .# 



AB *. NO 
SUPPORT .*... 
*C3 .* 



**B5******* 
♦SET CANCEL ♦ 

♦ SWITCH - 
SVANCL - TO 

♦ X'FF' 

* * 

*********** 



***** 

♦ BA ♦ 

♦ A3^ 



***** 

♦ BA ♦ 

♦ A3* 



*****P3********** 

* RESTORE ♦ 

* REGS 8 AND ♦ 
X* 10 FROM ♦ 

* APSAVE ♦ 

* * 
***************** 



****G3********* 

♦ BRANCH ♦ 

♦ VIA REG 8 * 



IU LALLtKt UiNUt 
RDYCNL ENTERED 
VIA SVC06 - THEN 
EXIT IS TO ERR23, 
CHART BA-A3. 



TASK 
SVC 7 
BOUND 



.♦. RDYCN4X 

K2 *. **|<3******* 

.* ♦. * MOVE ♦ 

IN ♦. YES * X'FF' 

TRANSIENT .* X* INTO 

.* * SVANCL 

*. .* * * 

*. .* *********** 



*****E4** ******** 

♦ POINT REG 2 * 

♦ TO PROPER AB ♦ 

♦ ENTRY FOR * 

♦ THIS TASK * 

♦ * 
***************** 



*****P4********** 

♦ * 

♦ CLEAR THE ♦ 

♦ ENTRY TO ♦ 

♦ ZEROS * 

♦ * 
***************** 



*****Q4********** 

* * 

* SET REG 5 = ♦ 

* TO INDICATE * 

* CANCEL ALL * 

* * 
***************** 



****H4********** 

* 

SET REG 6 * 

FOR CANCEL ♦ 

CODE - X'lC * 



*****j4********** 

♦ LOAD ADDRESS * 

♦ OF ERR23 * 

♦ FOR BRANCH * 

♦ VIA REG 8 ♦ 

♦ * 
***************** 



**** 

* * 

* 4 * 

* * 
**** 



*D5 
CONTENTS OF R0=0 
IF SIMPLE CANCEL. 
RO IS NONZERO IF 
CANCEL ALL ISSUED. 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart NA. $$ANERRM - OBR Record Builder (Part 1 of 
Refer to Chart 13. 



2) 



•#B1«#»*»»# 

SET UP 

REGISTERS 

FOR PHASE 

USAGE 

«B2 



MOVE AN A 

INTO PHASE 

NAMEt BYTE 6 

CALL WRITER 



• B2 
REG 10 - POINTER TO 

SYSTEM ERROR QUEUE 
REG 11 - PHASE BASE 

REGISTER 
REG 13 - POINTER TO 

OBR/SDR COMMUNICATIONS 

REGION. 



OBRSPR X 

•»*»#B3»»»*****«» 

* SET UP » 
« COUNT AND • 

• POINT TO » 

# FIRST TABLE » 

• ENTY LESS 1 VE2* 



0BRSPR1 

* ••♦•C3* ♦ » 

* POINT 

* REGISTER 15 

* TO NEXT TABLE 

* ENTRY 





•*«D1*«»»***« 






MOVE A B 






INTO PHASE 






NAME, BYTE 7- 






BYPASS OBR 




* 


WRITER »D2 


* 



SDR 

COMM 

REGION 



MCRR 
NO OBR. 
NO SDR 



RECORDER 

FILE 

. READY 



SETS UP PHASE NAME 
$$ANERAB - SYSTEM 
MESSAGE WRITER. 



«E2 
LOOP TO 
DETERMINE IF 
OBR SHOULD BE 
SUPPRESSED. 
COUNT = OBR 
TABLE LENGTH. 



»F2 
BLOCKS G3 AND 
FOLLOWING 
BUILD OBR 
RECORD. 



ERROR 

QUEUE 

MESSAGE 



MOVE AN A 

INTO PHASE 

NAME BYTE 7- 

OBR WRITER 

$$ANERAA 



SET OBR 

TYPE RECORD 

CODE - X'01» 



CLEAR 

REST OF 

OBR AREA 



»«#D4»*»»»**« 

STORE CSW, 

SENSE, DASD 

ADDRESS IN 

RECORD 



LOAD COMMAND 

ADDRESS INTO 

REGISTER 14 

FROM CSW 



«»«F4»»**«»»* 

SUBTRACT 

8 FROM 

ADDRESS IN 

REGISTER 14 

»G2 



#*#«H2«**»«»**« 

• SVC 3 
•FETCH $$ANERAB 

* CHART RA 



X 

»H3**»*»» 
MOVE IN 



*#B5»*«*»* 

SET UP 

DEFAULT 

NAME - 

DOS /360 



**»C5*»«»**»* 

GET PUB 

ADDRESS IN 

REGISTER 14 

FROM 

ERBLOC 



#«»»»05«*#»*»»#* 
» CALCULATE 

* AND STORE 

* CORRECT SDR 

* TABLE UNIT 
•SWITCH FOR PUB 



#**E5*»«»«»« 

POINT 

REGISTER 8 

TO CORRECT 

SDR ERROR 

COUNTER 



MOVE VOLUME 
ID TO OBR 
RECORD 





*•**••**•••• 




************* 


G2 








CSW BITS 8-31 








FORM AN ADDRESS 








THAT IS 8 HIGHER 


X 


X 


X 


THAN THE ADDRESS 


•»»»«G3********** 


»#»»#G4**»**»**«* 


»#G5««*»»« 


OF THAT LAST CCW 


• CALCULATE * 






USED. 


• TIME OF DAY * 


• MOVE IN • 


» RESET PIK 




• DATE-STORE * 


• FAILING * 


• SAVE AREA 




» IN OBR • 


* CCW • 


• WITH X'OO' 




• RECORD *J2 * 







MOVE CHANNEL 

UNIT DEVICE 

TYPE TO 

RECORD 



*J2 
CURRENT SYSTEM TIME OF DAY CAN 
BE OBTAINED BY SHIFTING OUT 
THE LOW ORDER BYTE FROM THE 
REMAINING TIME INTERVAL 
(SYSTIMER) AND SUBTRACTING 
IT FROM SYSTEM TIME OF DAY. 
(SYSTOD). TIME IN SYSTOD IS 
REPRESENTED IN THE FORM, 
SECONDS X 300. 
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Chart NB. $$ANERRM - OBR Record Builder (Part 2 of 
Refer to Chart 13. 



2) 



»*C 1******* 

GET SEEK 

ADDRESS- 

BBCCHH- 

IN RECORD 



***B2******** 

PUT LOGICAL 

UNIT AND 

FIRST CCW 

INTO OBR 

RECORD 



* DEVICE * 
2314 


. NO 






*. 


*YES 




»»*E1* 


< 

******* 


ft* . 


PUT CORRECT 

UNIT ADDRESS 

INTO RECORD 


* 




'x " 



* INDICATE 
FIRST CCW IS 

♦ FAILING CCW 



CONTINUE .*. 

Fl ». 
.» CCB *. 

AVAILABLE 

ERFLG 

. BIT 6 . 



NO 



#«»»Gl***ft*»«»» 

GET 

CHANNEL QUEUE 

POINTER INTO 

REGISTER 15 



» IS THE 

CCB IN THE 
». LTA 



GET I/O 

REQUESTER KEY 

IN REG 15 



NO .# KEY FROM * 
...♦.USER REQUEST 
•. I/O .• 



SET SWITCH 

(PARTSW+1) 

FOR BG 



MOVENAME 

» GET SECOND 

• PART OF PIB, 

• MOVE JOBNAME 
» TO RECORD 



E3 •. 

ft! BACKGROUND 

"*YES 

xlx.... 



F2***«. 

SUPERVISOR**. 
ERP CCB .ft 


OBRNOKEY .*. 

F3 *. 

.** IS *'». 

*. DEVICE A 
*. 3211 .* 


YES 


*#F4**»**** 
* SET FETCH 
* NAME TO 




* 3211 OBR 
♦RECORD BLDR 



CONSOLE 

BUFFER 

CCB 



*G3**ft»* 

SVC 3 

FETCH * 



«»«**H1****»»**** 

* LOAD CCB • 

* ADDRESS INTO * 
» REGISTER 15 » 


*»H2*»*»**« 
* SET 

* SWITCH 

* (LTASW) FOR 

* BRANCH 


«•**•***•**•••**• 
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Chart NC. $$ANERAA - OBR/MCRR Record Writer (Part 1 of 2) 
Refer to Chart 13 • 



****A1 ********* 

* * 

* $$ANERAA * 

* * 



IJBER235+8 

*****Bl********** 

* SSM TO * 

* ENABLE * 

* SYSTEM FOR * 

* INTERUPTS * 



X«FF« 
************** 



*****C1********** 

* SET UP * 

* REGS FOR * 

* PHASE * 

* USAGE * 

* *J2 * 
***************** 



*****Dl********** 

* MOVE AN F * 

* INTO PHASE * 

* NAME TO * 

* FETCH * 

* SSANERAF * 
***************** 



*****Ei********** 

* LOAD SDRFLAG * 

* INTO REG 14 * 

* POINTER TO * 

* FLAG BYTE * 

* * 
***************** 



NO .* STATUS 
.*.♦. FLAG X'80 1 
*. OBR KEY 



**C2******* 

* TURN ON * 

* OBR REC 
BYTE 2 BIT 0- 

* OBR OP 

* COMPLETE * 
*********** 



YES 



*****G1 ********** 

* * TURN ON * * 

* BITS 4 AND 5* * 

* IN FLAG BYTE* * 

* * SCHEDULER * * 

* *SDR 2 AND 3* * 
***************** 



OBRAREL 

*****H1********** 
♦OBRREL ND* 
*_*_*_*_*_*_*_*_* 

* RELOCATE CCB, * 

* CCH ADDRESS * 

* CONSTANTS * 
***************** 



SETLNK 

*****Q2********** 

* MOVE NEXT * 

* AVAILABLE * 

* OBR DISK * 

* ADDRESS TO * 

* CCW * 
***************** 



*****E2********** 

* GET LUB • * 

* POINTER IN * 

* REG 8 AND * 

* PUB POINTER * 

* IN REG 9 * 
***************** 



*****P2********** 

* PICK UP * 

* RECFILE PUB * 

* POINTER IN * 

* REG 14 * 

* * 
***************** 



*****G2********** 

* POINT TO * 

* ACTUAL PUB * 

* ENTRY FOR * 

* SYSREC * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



ERRORQED .*. 

B3 *. 

.♦ERRORS *. 

♦QUEUED FOR *. 

DEVICE- 

♦.PUBCSFLG .* 

♦.X'10'.* 

♦ . .* 

*NO 



C3 *. 

.* I/O *. 

.* QUIESCED * 

. FOR DEVICE 

♦.PUBCHQPT .* 

*.X'FF'.* 

♦ . .* 

*YES 



BUSY 
PUBCSFLG 
. X'80' 



HEADQUE 

*****£ 3** ******** 

* SAVE * 

* CHANQ PNTR * 

* AND CHNL * 

* SCHEDULER * 

* FLAGS * 
***************** 



*****p 3** ******** 

* MOVE IN * 

* NULL PNTR * 

* AND * 

* CLEAR * 

* FLAGS * 
***************** 



*****Q3********** 

* POINT * 

* REGS 15 AND * 

* TO * 

* CCB * 

* * 
***************** 



****H3** ********* 



************* 



**** 

* * 

* 3 * 

* * 

**** 

!x.. 
x 
.*. 



.*. 

C4 *. 

.♦ANOTHER*. 

* REQUEST- 

PUBCHQPT 

*. X«FF' . 

*. .* 

*. .* 



*****Q4********** 

* RESTORE * 

* CHANQ POINTER * 

* AND CHNL ♦ 

* SCHEDULER * 

* FLAGS * 
***************** 



*****B5********** 

* SET CYN * 

* FLAG BIT * 

* AND NEXT * 

* STARTING * 

* ADDRESS +J5 ♦ 
***************** 

**** 



0BRI03 

*****C5********** 

♦ STORE ♦ 

♦ ADDRESS AT ♦ 

♦ CURRENT ♦ 

♦ OBR * 

♦ DISK ID * 
***************** 



**Q5******* 

* TURN ON * 
OBR OP 

COMPLETION- 
X«80« IN 

* FLAG BYTE * 
*********** 



***** 

♦ ND ♦ 

♦ Bl* 



*. UNRECOVERABLE. ♦. 

♦. I/O .♦ 

♦ERRORS.* 



**G4******* 

♦ CHANGE ♦ 

DISK 
ADDRESSING 
UPDATE TO 

♦ 2314 ♦ 
*********** 



TST2311 X 

*****H4*******^** 

* UPDATE * 

* TO NEXT ♦ 

* DISK * 

* ADDRESS ♦ 

* * 
***************** 







*J2 








REGISTER 


USAGE 






REG 10 - 


POINTER TO 


X 


SYSTEM ERROR QUEUE 


**JX******* 


REG 11 - 


PHASE BASE 


♦ TURN OFF * 


REGISTER 


OBR RCD * 


REG 13 - 


POINTER TO 


BYTE 2 BIT * 


OBRISDR 


COMM AREA 


OBR OP * 






* COMPLETE * 






*********** 






♦* 


< 

*♦♦ 







CHNL *. YES 
QUEUE .*.... 
FULL .♦ 

.♦ 
♦ . .♦ X 


.♦ NEXT 
♦.DISK ADDRESS 
♦. BEYOND . 
♦. EXT .♦ 
♦ . .♦ 


♦NO ♦♦*** 

♦ ND ♦ 

♦ B2+ 


♦YES 



OBRIOE 

***«*P5********** 

♦ SAVE ♦ 

♦ DASD ♦ 

♦ SEARCH ♦ 

♦ ADDRESS * 

♦ * 
***************** 



**G5******* 

♦ MOVE IN ♦ 

♦ X'OC BRANCH 
DISPLACEMENT 

♦ FOR CORRECT 

♦ MSG RTN ♦ 
*********** 



****H5^**«^**** 

♦ SVC 3 ♦ 
♦FETCH $$ANERAF ♦ 

* CHART NK ♦ 
*************** 



♦J5 NOTE — 
IF OBR RECORDS HAVE 
NOT BEEN PROCESSED 
BY EREP BEFORE 
EXTENT IS FILLED, 
OBR RECORD WRITER 

WILL RECYCLE, START 

AT FIRST DISK 

ADDRESS MAIN. 

AND OVERLAY ALL 

PREVIOUS RECORDS. 
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Chart ND. $$ANERAA - 0BR/MCRR Record Writer (Part 2 of 2) 
Refer to Chart 13. 



****A3********* 

* * * 

* OBRREL * 

* *A5 * 
*************** 



*A5 
RELOCATION ROUTINE 
CHANGES CCB» CCW 
ADDRESSING TO BASE 
DISPLACEMENT FORM 
BY MOVING IN S-CON 
EQUIVALENTS. 



Bl *. 

.* IS *. 

* CURRENT * 

OBR ID LAST 

*.TRK AVL- .* 

*.ABLE .* 

*. ,* 

*YES 



CI *. 

.♦CURRENT*. 

OBR ID 

IS SECOND 

. RECORD . 



X 


OBRREL X 




.*. 


**B2******* 


*****B 3** ******** 


B4 *. 


* 


* POINT 


# 


.* END * 


INDICATE * 


* REGISTER 8 


* 


NO .* OF 


CHANNEL * 


* TO FIRST 


* 


....*. RELOCATION 


QUEUE FULL * 


* S-CON IN 




*. 


* 


* LIST *C5 


* 


*. .* 


*********** 


************** 


*** 


*. .* 



OBREXIT 

**D1******* 

* TURN ON 

* OBR OPER 
* COMPLETE- 

* X'80' IN 

* FLAG BYTE 
*********** 



*****£!********** 

* SET UP REG * 

* 9 WITH TASK * 

* SELECT EXIT * 

* ADDRESS * 

* EXT 02 * 
***************** 



0BRI0E1 X 

*****D2 ********** 

* MOVE AG * 

* INTO PHASE * 

* NAME TO * 

* FETCH * 

* $$ANERAG * 
***************** 



****E 2 ********* 

* SVC3 * 
*FETCH $$ANERAG * 

* CHART NJ * 
*************** 



0BRREL1 

*****C 3 ********** 

* MOVE S-CON * 

* TO LOAD * 

* ADDRESS * 

* INSTRUCTION * 

* * 
***************** 



***03 ********** 

MOVE NEXT * 

S-CON TO * 

MVC INSTR * 

AS RECEIVER * 

ADDRESS * 

*************** 



**C4******* 
*NOP BRANCH * 

AND LINK TO 

RELOCATION 

ROUTINE 

* * 

*********** 



****04********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REG. * 
*************** 



*C5 
S-CON-- 

ADDRESSING CONSTANT IN 
BASE DISPLACEMENT FORM. 



*****£3*** 

* LOAD FIRST * 

* S-CON VALUE * 

* TO REGISTER * 

* 14 AND SAVE * 

* * 
***************** 



**** PI ********** 


**F2******* 


*****F 3** ******** 


MOVE AN 




* * 


* MOVE FIRST * 


INTO FETCH 


* 


* INDICATE * 


* S-CON 


TO * 


TRANSIENT NAME 


* 


* LAST * 


* ADDRESS 


VALUE * 


TO INDICATE OBR* 


* TRACK * 


* OF NEXT 


S-CON * 


TO SUPVR 


* 


* * 




* 


**************** 


*********** 


********* 


******** 


X 

***** 




X 

**** 






*LA * 




* * 






* Bl* 




* 2 * 


X 




* * 




* * 


*****G 3** ******** 


* 




**** 


* POINT 


*EG 8 * 


SDRMM 






* TO NEXT 

* TO 


ITEM * 
BE * 








* RELOCATED * 








* REG 8 


+ 4 * 








***************** 
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Chart NE. $$ANERAC - SDR External Update of Recorder File Records 
Refer to Chart 13. 



(Part 1 of 2) 



»*»A1*»*«*« 
SSANERAC 



IJBER435+8 X 

»****B1******** 

* SSM TO 
» ENABLE 

* SYSTEM FOR 

* INTERRUPTS 



»#C1******* 
•MOVE X«8E',* 
•READ COMMAND 

INTO CCW 
» CHAIN 



••»«D1»******* 

POINT REG L3 
TO SDR/OBR 

COMM REGION, 

REG L4 TO 

ERROR BLOCK 



SET UP REG 

9 WITH TASK 

SELECT EXIT 

ADDRESS, 

EXT 02 



MOVE F TO 

PHASE NAME 

TO FETCH 

$$ANERAF 



ADDRESS 
CONSTANTS 
.RELOCATED. 



*«B3*****« 
CLEAR 
COUNTERS- 
DATA OF 
CURRENT 
RECORD 



SDR 
VALUE 
OVFL 



SDRAREL 

•»*#*C2* 
•SDRREL 



RELOCATE 

CCB, CCW 

ADD CONSTANTS 



•*»**C 3 ********** 

* SET UP KEY, *' 

* TYPE AND * 
•CHARACTERISTICS* 

* FOR NEW * 

* RECORD *H4 * 



•*»H1*****«* 

POINT 

REGISTER 8 

TO OBR/SDR 

FLAG BYTE 



•••D2»***»*» 

SET UP 

ADDRESS OF 

FIRST SDR 

RECORD IN 

SDRWRNXT 



....X 





X 






•«*«»D3** 








MOVE 


IN 






GUARD 


JYTE 




» 


X'FF' - 


INTO 




• 


SDR RECORD 




* 






* 



•»«C4********** 

POINT * 

REGISTER 15 * 

TO NEXT * 

HALF WORD * 



X 

•»D4**»**«» 

MODIFY 

SWITCH AT 

SDRACC 3 

TO BRANCH 



SDRERAC 

•«C5******* 

* MOVE IN • 
* BRANCH * 

* DISPLACEMENT 
*X«40« FOR COR* 

* MSG ROUT * 



X 






SVC 


3 


FETCH $$ANERAF 


CHART 


NG 



SDRAW1 

**«E2******** 

SET UP 

SEEK ADDRESS 

IN CCW 

CHAIN 



START I/O 

READ 
KEY, DATA 



SDRAW2 X 

••»«*E3********* 

* POINT REG 15 

* TO HALF WORD 

* COUNTERS AND 
*REG 14 TO HALF 
•BYTE CNTRS *A5 



« LOAO 8 INTO 
•REG 10 - FIELD 

• OF 16 HALF 

• BYTE COUNTERS 



• Bl» 
SDRACC1 



»G3«******* 
LOAD LOWER 

HALF BYTE 
VALUE INTO 

SDR 
ACCUMULATOR 



E4 •. 

• END 
OF TWO 

BYTE 
UPDATE 



SDRACC5 X 

#»###F4******** 

* LOAD UPPER 
» HALF BYTE 

* VALUE FROM 

* COUNTER 

* INTO SDRACCM 



»#»#G4******** 

POINT 

REGISTER 14 

TO NEXT 

HALF BYTE 

AREA 



.* RECORD ». 

.KEY AVAILABLE. 

*. OR END .* 

». EXT .* 



SDRNOAD 

•#J2**»*«*# 
* ' MOVE IN * 
* BRANCH 
* DISPL X'80» 
« FOR CORRECT 
•MSG ROUTINE* 



SDRACC2 X 

•*«*«H3********* 
» INITIALIZE 
•REG 0, ADD AND 
•STORE PREVIOUS 
» VALUE IN HALF 
• WORD COUNTER 



*H4 
KEY 
CHAN AND UNIT - 

2 BYTES 
POLL CHARACTER - 
6 BYTES 
DATA 
TYPE - 

1 BYTE 
CHARACTERISTICS 

1 BYTE 
(X«40« - SWITCHABLE 
DEVICE 
X'02«- BURST ON 

MPX CHAN 
X'Ol' - 7-TRACK 
TAPE) 



*H5 
16 HALF-BYTE ERROR 
COUNTERS IN COMPACTED 
FORM — EXPANDED TO 16 
TWO BYTE COUNTERS ON 
DISK. 



X 
* 1 



• SVC 3 
•FETCH $$ANERAF 
« CHART NG 
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Chart NF. $$ANERAC - SDR External Update of Recorder File Records (Part 2 of 2) 
Refer to Chart 13. 



***** 

♦NE * 
* E4* 



.♦ END 
*. OF 
♦.COUNTERS 



**C1******* 
♦MOVE X'OD' * 

* INTO CCW 

CHAIN - 

* WRITE 

* COMMAND * 
*********** 



****Dl*********** 

SDRI02 NF 
* _*_*_*»*_*_#_ * 

WRITE 
* KEY AND * 
DATA 
***************** 

**** 



* * * 
**** 

SDREXIT 

*****£!********** 

* PICK UP * 

* POINTER TO * 

* OBR/SDR * 

* FLAG BYTE * 

* * 
***************** 



**F1******* 

* POST * 
STATUS, 

X«80', IN 
CSW 

* * 
*********** 



***** 

*LA * 

* Bl* 

* * 



***** 
*NE * 
* G3* 



****A2********* 

* * 

* SDRI02 * 

* * 
*************** 



SDRI02 

*****B2********** 

* GET LUB * 

* POINTER IN * 

* REG 8 AND * 

* PUB POINTER * 

* IN REG * 
***************** 



*****C2********** 

* PICK UP * 

* RECFILE PUB * 

* POINTER IN * 

* REGISTER 14 * 

* * 
***************** 



*****D2********** 

* POINT TO * 

* ACTUAL PUB * 

* ENTRY FOR * 

* SYSREC * 

* * 
***************** 



*****B3** ******** 

* POINT * 

* REGISTERS 15 * 

* AND TO * 

* CCB * 

* * 
***************** 



****C3** ********* 

* SVC 15 * 
START 
* I/O * 

***************** 



♦ B4 
RELOCATION ROUTINE 
CHANGES CCB, CCW 
ADDRESSING TO BASE 
DISPLACEMENT FORM. 
BY MOVING IN S-CON 
EQUIVALENTS. 



****A5********* 

* SDRREL * 

* *B4 * 

* * 
*************** 



SDRREL 

*****B5********** 

* POINT * 

* REGISTER 8 * 

* TO FIRST * 

* S-CON IN * 

* LIST *C4 * 
***************** 



♦ C4 

S-CON - ADDRESS CONSTANT 
IN BASE DISPLACEMENT FORM. 



**** 

* * 

* 2 * 

* * 
**** 



**C5******* 

♦NOP BRANCH ♦ 

AND LINK 

TO 

RELOCATION 

♦ ROUTINE ♦ 

*********** 



CHAN 

QUEUE 

FULL 



.♦ X+ DATA ADDRESS ♦ 



***************** 



ERQSDR .♦. 

E2 ♦. 
.♦ERRORS ♦. 
.♦QUEUED FOR 
♦. DEVICE - 
♦.PUBCS FLG. 
♦.X'lO' .♦ 
♦ . .♦ 
♦ NO 



F2 *. 

.♦ I/O ♦ 
COMPLETE 
FOR THIS 

. DEVICE 



****p 3** ******* 

♦ SVC 7 ♦ 

♦ WAIT ♦ 

♦ * 
*************** 



**E4***#*** 

♦ MOVE IN ♦ 

♦ BRANCH ♦ 

♦ DISPLACEMENT * 

♦X'OE* FOR COR+ 

♦MSG ROUTINE^ 

*********** 



****P4********* 

♦ SVC 3 ♦ 
♦FETCH SSANERAF ♦ 

♦ CHART NG * 
*************** 



SDRREL1 X 

*****Q5********* 

♦ MOVE S-CON 

♦ TO LOAD 

♦ ADDRESS 

♦ INSTRUCTION 
* 
**************** 



*****E5********** 

♦ MOVE NEXT ♦ 

♦ S-CON TO ♦ 

♦ MVC INSTR ♦ 

♦ AS RECEIVER ♦ 

♦ ADDRESS ♦ 
***************** 



*****P5********** 

♦ LOAD FIRST ♦ 

♦ S-CON VALUE ♦ 

♦ TO REGISTER ♦ 

♦ 14 * 

♦ * 
***************** 



HEADQUE1 

*****G2^*+******* 

♦ SAVE CHANQ ♦ 

♦ POINTER AND ♦ 

♦ CHANNEL ♦ 

♦ SCHEDULER * 

♦ FLAGS ♦ 
***************** 



*****H2********** 

♦ MOVE IN ♦ 

♦ NULL POINTER ♦ 

♦ AND CLEAR ♦ 

♦ FLAGS ♦ 

♦ * 
***************** 



*****G3********** 

♦ RESTORE ♦ 

♦ CHANQ POINTER ♦ 

♦ AND CHANNEL ♦ 

♦ SCHEDULER ♦ 

♦ FLAGS ♦ 
***************** 



YES .* *. 

...*. UNRECOVERABLE. ♦ 
*.I/0 ERROR.* 



* 2 * 

* * 
**** 



**** 

!x.. 



****H4********* 

♦ RETURN TO * 

♦ ADDRESS IN * 

♦ LINK REG ♦ 
*************** 





♦.CYLINDER .♦ 






♦ . .* 






♦ . .♦ 








KYES 






J 


< 




*****K3********** 


* 


ADD 1 TO 


* 


* 


CYLINDER, 


♦ 


* 


INITIALIZE 


♦ . 


* 


HEAD AND " 


♦ 


* 


RECORD 


♦ 


***************** 






!x 





G5 ♦. 
.* END ♦. 
♦ OF 
RELOCATION 



*****H5********** 

♦ MOVE FIRST ♦ 

♦ S-CON TO * 

♦ ADDRESS ♦ 

♦ VALUE OF ♦ 

♦ NEXT S-CON ♦ 
***************** 



*****j5********** 

♦ POINT REG * 

♦ 8 TO NEXT ♦ 

♦ ITEM TO BE * 

♦ RELOCATED ♦ 

♦ REG 8+4 * 
***************** 



**** 

* * 

* 3 ♦ 

* * 
**** 
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Chart NG, $$ANERAF - Recorder File Error Message Writer for OBR/SDR 
Refer to Chart 13, 



(Part 1 of 2) 



****A1********* 

* * 

* SSANERAF * 

* * 
&**«««*«******* 



*B1********** 
SSM TO * 
ENABLE * 
SYSTEM * 



*********** 



#****Ci ********** 

* SET UP * 

* REGISTERS * 

* FOR PHASE * 

* USAGE *A5 * 

* * 
***************** 



CONTINU 

*****01 ********** 

* RELOCATE * 

* THE CCW * 

* ADDRESS IN * 

* SDR CCB * 

* * 
***************** 



*****£!********** 

* CLEAR * 

* INDEXING * 

* REGISTER * 



************* 



**F1******* 
*MOVE X«01« * 

* INTO RIK - 
SYSLOG I/O 

* REQUEST 

* * 

*********** 



*****G1 ********** 

* PICK UP * 

* ERROR CODE * 

* DISPLACEMENT * 

* FROM SDRMSG * 
*AND INST IN RD * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



**** 
* 
2 * 



*****C2*****«***« 

* MOVE AN * 

* INTO FETCH * 
♦TRANSIENT NAME * 
*T0 INDICATE OBR* 

* TO SUPVR * 
***************** 



SDRM03 

***** 02 ********** 

* PICK UP SAVED * 

* DASD ADDRESS * 

* FROM SDRMSG * 

* AND UNPACK * 

* INTO SDRTWK * 
***************** 



*****£ 2********** 

* CONVERT * 

* DISK ADDRESS * 

* TO PRINTABLE * 

* CHARACTERS * 



**C3******* 
*MOVE X'EO 1 * 

* TO ERROR 

FLAG 

* MASK 

* STATUS * 
*********** 



*****03** ******** 
*POINT REGISTER * 

* 13 TO ERROR * 

* MESSAGE * 

* '0T01I' * 

* *F4 * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



SDRM02 X 

**B4******* 
*MOVE X«AO« * 

* TO ERROR 

* FLAG MASK - 

* STATUS 

* * 

*********** 



*****C4** ******** 

* MOVE * 

* MESSAGE * 

* LENGTH INTO * 

* CCW * 

* * 
***************** 



*****D4********** 
♦POINT REGISTER * 

* 13 TO ERROR * 

* MESSAGE * 

* ♦OTOZI 1 * 

* *E5 * 
***************** 



*A5 
REGISTER USAGE 
REG 10 - POINTER OT 

SYSTEM ERROR QUEUE 
REG 11 - PHASE BASE 

REGISTER 
REG 12 - POINTER TO 

OBR/SDR 

COMMUNICATIONS 

REGION. 



**** 



******** 



**P2******* 
*MOVE X'AO' * 

* TO ERROR 
FLAG MASK - 

* STATUS 

* * 

*********** 



*****62 ********** 
*POINT REGISTER * 

* 15 TO ERROR * 

* MESSAGE * 

* •0T03I' * 

* *J1 * 
***************** 



*****H2********** 

* PUT MESSAGE * 

* ADDRESS INTO * 

* CCW * 

* * 
***************** 



SDRM012 X 

*****£ 3** ******** 

* MOVE * 

* MESSAGE * 

* ADDRESS INTO * 

* CCW * 

* * 
***************** 



*****p 3** ******** 

* MOVE * 

* CHANNEL * 

* AND UNIT * 

* INTO MSG 1 * 



*E5 
'SDR AREA FULL 
OCUU...'. 



******** 



***** 



*J1 
•ERROR ON RECORDER 
FILE AT CCHHR'. 



* POLL 

CHARACTERS 
*. 

*. *G4 .* 



*****H3********** 

* * 

* MOVE POLL * 

* CHARACTERS * 

* TO MSG 1 * 

* * 
***************** 



*F4 
•OCUU....SDR 
RECORD OVERFLOWED. 



*G4 
TELEPROCESSING - IF POLL 
CHARACTERS COMPARE AS 
ZEROS (NOT PRESENT), THESE 
ZEROS ARE NOT MOVED INTO 
THE MESSAGE AREA AS THEY 
WOULD PRINT AS H'S 
RATHER THAN ZEROS. 



SDRSKIP 

*«***j 3** ******** 

* MOVE OCUU * 

* AND POLL * 

* CHARACTERS * 

* FROM MSG 1 * 

* TO MSG 2 * 
***************** 



X 

***** 
*NH * 
* B2* 
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Chart NH. $$ANERAF - Recorder File Error Message Writer for OBR/SDR (Part 2 of 2) 
Refer to Chart 13. 



*C5 
LOGFILE - 
DISPLACEMENT 
OF 8 INTO LUB. 



SDRIO X 

*****B2** ******** 

* POINT * 

* REGISTER 8 * 

* TO LUB * 

* REGISTER 9 * 

* TO LUB * 
***************** 



*****C2********** 

* INSERT * 

* POINTER TO * 

* LOGFILE PUB * 

* INTO REG 14 * 

* *C1 * 
***************** 



*****D2**** ****** 

* CALCULATE * 

* ACTUAL PUB * 

* ENTRY FOR * 

* SYSLOG IN * 

* REGISTER 9 * 
***************** 



****B3********* 
SVC 15 
* WRITE 
ERROR 
MESSAGE * 

*************** 



ERRQUED .*. 

E2 *. 

,*ERRORS *. 

♦QUEUED FOR *. 

DEVICE- 

*.PUBCS FLG.* 

*.X«10'.* 



YES 



.X. 



*YES **** 

* * 

* 1 * 

* * 
**** 



**E3********* 
SVC 7 * 
WAIT * 



F2 *. 


*****F 3** ******* 


.* *. 


* RESTORE 


.* NULL *. NO 


* CHANQ PNTR 


*. CHANG .*... 


* AND CHAN 


*. POINTER .* 


* SCHEDULER 


*. .* 


* FLAGS 


*. .* 


**************** 


*YES 






**** I 




* * 




* 1 *... 


x' m 


* * . 




**** 


HEADQUE2 X 


SDRIOX X 


*****G 2 ********** 


*****Q 3** ******* 


* SAVE CHANQ * 


* LOAD OBR/SDR 


* POINTER AND * 


* FLAG BYTE 


* CHANNEL * 


* ADDRESS INTO 


* SCHEDULER * 


* REGISTER 13 


* FLAGS * 


* 


***************** 


**************** 



*****H 2 ********** 

* MOVE NULL * 

* POINTER X'FF' * 

* INTO CHANQ * 
*PNTR AND CLEAR * 
*CHAN SCHD FLGS * 
***************** 



*****J2********** 

* POINT * 

* REGISTERS * 

* 15 AND * 

* TO CCB * 

* * 
***************** 



**H3******* 
*P0ST STATUS* 

* BIT-X' 80'- 
* IN OBR/SDR 

* FLAG BYTE 

* * 

*********** 



***** j 3** ******** 

* SET UP * 

* REG 9 WITH * 

* TASK SELECT * 

* EXIT ADDRESS * 

* EXT 02 * 
***************** 



**** 

* * 

* 1 * 



***** 
*LA * 
* Bl* 
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Chart NJ. $$ANERAG - Recorder File Last Track Error Message Writer for OBR/SDR 
Refer to Chart 13. 



•»A1*»»*»* 
SSANERAG 



• A5 
REGISTER USAGE 
REG 10 - POINTER TO 
SYSTEM ERROR QUEUE 
REG 11 - PHASE BASE 

REGISTER 
REG 12 - POINTER TO 
OBR/SDR COMMUNICATIONS 
REGION. 



SSM TO 

ENABLE 

SYSTEM FOR 

INTERRUPTS 



PUT MESSAGE 

ADDRESS 
-INTO CCW 



SET UP 
REGISTERS 
FOR PHASE 
USAGE »A5 



RELOCATE 

THE CCW 

ADDRESS IN 

SDR CCB 



••••*C3»»*»**»«* 

» MOVE NULL 
» POINTER X'FF' 

• INTO CHANQ 

♦ PNTR AND CLEAR 
•CHAN SCHD FLGS 



••El*»*««»» 

♦MOVE X'Ol' 
INTO RIK- 
SYSLDG I/O 
REQUEST 



•»F1»»»*»« 
•MOVE X'08« 
TO ERROR 
FLAG MASK- 
STATUS 



•»«D2»«»«»»» 

POINT 

REGISTER 8 

TO LUB 

REGISTER 9 

TO PUB 




POINT 

REGISTERS 15 

AND TO 

CCB 



INSERT 
POINTER TO 
LOGFILE PUB 
INTO REG 14 



•••♦•F2*»«»*«» 

* CALCULATE 

* ACTUAL PUB 
» ENTRY FOR 

• SYSLOG IN 

♦ REGISTER 9 





»»E3*»**»» 

SVC 15 




* 


WRITE 

ERROR 


* 


* 


MESSAGE 


* 




X 












F3 ». 












I/O 


♦ . NO . 


*. 


STARTED 





SDRI0X1 X 

»*#*»C4»»«»»**» 

♦ LOAD OBR/SDR 

• FLAG BYTE 

* ADDRESS INTO 

* REGISTER 13 



•POST STATUS* 

BIT-X'BO 1 - 

IN OBR/SDR 

FLAG BYTE 



*»*«E4»»»»»*»*» 

SET UP REG 

9 WITH TASK 

SELECT EXIT 

ADDRESS, EXT02 



*C5 
LOGFILE - 
DISPLACEMENT 
OF 8 INTO LUB. 



•»D5»«*»»»* 

• SET UP ♦ 

FOR LAST TRACK* 

• MESSAGE 

♦ 'OTOOI' ♦ 



»*F5*»»»*»« 

• SET UP ♦ 
FOR CHANNEL 
QUEUE FULL 

MESSAGE 

♦ '0T04I' • 



G2 •. 

.♦ERRORS *. 
.♦QUEUED FOR *. YES 

DEVICE- 

♦.PUBCSFLG .♦ 
••X'lO'.* 

'♦NO 



NULL 

CHANQ 

POINTER 



X 

6 * 



•LAST TRACK 
ON RECORDER 
FILE'. 



##J1#»»«*#» 

POINT 

REG 12 TO 

BJ MSG. 

ZERO 



HEADQUE3 X 

♦ ♦••♦^♦♦♦♦♦*" 

♦ SAVE CHANQ 

♦ POINTER AND 

♦ CHANNEL 

♦ SCHEDULER 

♦ FLAGS 



*»#J3##»*«#* 

RESTORE 

CHANQ PNTR 

AND CHAN 

SCHEDULER 

FLAGS 
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Chart NK. $$ANERAD - List Passer for SDR Processor 
Refer to Chart 11. 



****A2********* 

* $$ANERAD * 

* *A4 * 

* * 
*************** 



**** 

* * 

* 2 * 



*A4 
BEFORE THE ROUTINES ARE FETCHED TO 
PROCESS A PARTICULAR ERROR CONDITION, 
THIS ROUTINE IS FETCHED. IT GETS THE 
DEVICE TYPE FOR THE I/O DEVICE 
CORRESPONDING TO THE CURRENT ERROR 
AND PASSES THE ASSOCIATED LIST. THE 
LIST IS A STRING OF CONSTANTS THAT 
MAP INTO SOME OR ALL OF THE 16 
COUNTERS MAINTAINED BY OBR/SDR 
SUPPORT. SEE FIGURE 48. 



* SSM TO * 

* ENABLE SYSTEM * 
*FOR INTERRUPTS * 

* * 
***************** 



* luau huuk ur * 

* COMREG, * 

* ERBLOC, AND * 

* PUB ENTRY FOR * 



*****D2********** 

* GET ADDRESS * 

* OF LIST * 

* POINTER * 

* STRING IN * 

* WORK REG * 
***************** 



*****E2********** 

* PUT DEVICE * 

* TYPE IN TEST * 

* INSTRUCTION * 

* FROM LIST * 

* POINTER * 
***************** 



**** 

* * 

* 1 * 



* POINT WORK * 

* REGISTER TO * 

* SDR TABLE * 

* * 
***************** 



*****C 3** ******** 

* PICK UP * 

* LIST LENGTH * 

* IN REGISTER * 

* .13 * 

* * 
***************** 



*****Q3** ******** 

* * 

* MOVE LIST * 

* TO SDR * 

* TABLE * 

* * 
***************** 



DEVICE 
TYPES 
EQUAL 



*****p 3** ******** 

* MOVE RA * 

* INTO PHASE * 

* NAME TO * 

* FETCH * 

* $$ANERRA * 
***************** 



****G3********* 

* SVC 3 * 
♦FETCH $$ANERRA * 

* CHART NL * 
*************** 



*****F4********** 

* MOVE RD * 

* INTO PHASE * 

* NAME TO * 

* FETCH * 

* $$ANERRD * 
***************** 



****G4********* 

* SVC 3 * 
♦FETCH $$ANERRD * 

* CHART PA * 
*************** 



* 2 * 

* * 
**** 



*****H2********** 

* * 

* POINT TEST * 

* TO NEXT * 

* DEVICE TYPE * 

* * 
***************** 
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Chart NL. $$ANERRA - ERP Monitor (Part 1 of 2) 
Refer to Chart 11. 



*.A1«»«»»» 
$$ANERRA 



* »«**B1* »* 

♦LOAD ADDRESSES 

* OF COMREG, 

* ERBLOC, AND 

* PUB. SSM TO 
•ENABLE INTRPTS 



SVC 3 

$$ANERRX 
CHART SJ 



•*».C2««»*»»»« 

INSERT X'31' 

DEVICE NOT 

OPERATIONAL 

MESSAGE 

CODE 



YES .* 


UNIT 




RECORD 


» 


DEVICE 


X 


* «. .* 




• NO 


• NLA« 




* G2* 












UNRCERP 


X 








B3 « 






YES .» 


PAPER 
TAPE 



.* ERROR * 
. OCCURRED ON 
•.RECOVERY .• 



••CHANNEL*. 
.•DATA CHECK «. YES 
*. OR CHAINING .•... 
». CHECK .« 



D3 » 

2311 

OR 
2314 



CHANNEL 
DATA 
CHECK 



•••B4****** 
SVC 3 
$$ANERR9 
CHART UA 



»»C4«*»*«» 

SVC 4 

$$ANERRG 

CHART QA 



SET 

FETCH NAME 
TO $$ANERRC 
CHART NM 



1285 

OR 
1287 



SET FETCH 

NAME TO 
$$ANERR6 



•♦••F2» 

INSERT X'28' 

CHANNEL 

DATA CHECK 

MESSAGE 

CODE 



♦•••E4««*«««* 
SVC 3 
FETCH THE 
PHASE 



»»»«F4««*»*»* 

INSERT X'lO' 

EQUIPMENT 

CHECK 

MESSAGE 

CODE 



»»«E5»»*»»*»* 

SET 

FETCH NAME 

TO $$ANERRT 

CHART SA 



PROTCHK X 

•••••H2»»««»«« 

* INSERT X'25« 

* PROTECTION 

* CHECK 

* MESSAGE 

* CODE 



MISSING 
ADDRESS 
MARKER 



•••••K2********** 

• INSERT X«21' » 
•NO-RECORD-FOUND» 

• AND MISSING » 

• ADDR MARKER • 

• MSG CODE • 



•NLA-El .EXITB 



YES .• RECORD- 

•- FOUND 

••CONDITION. 



*. 




« 


INSERT X«15 


SEEK •. 


NO 




SEEK CHECK 


CHECK 






MESSAGE 








CODE 












X 




•YES 


• NLA* 

• Bl» 






X 


INTVEN 




X 










J3 ». 






J4 •. 








.• IS • 


COMMAND •. 


NO 




* THIS 


REJECT 






ACTUALLY A 








♦. SEEK 


.» 


. 




•.CHECK.* 



»»H5*«»**« 

SVC 3 

SSANERRW 

CHART SF 



• INSERT X'36' • 
•NO-RECORD-FOUND* 

• MESSAGE » 

• CODE • 



INSERT X'26' 

SEEK CHECK 
MESSAGE CODE 



•NLA-D3 .EXITA 



•NLA-B1 .EXITB 
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Chart NLA. $$ANERRA - ERP Monitor (Part 2 of 2) 
Refer to Chart 11. 



SVC 3 
$$ANERRB 
CHART NN 



* WAS 

DEVICE 
♦.DEQUEUED 



••••Cl»******» 
INSERT X«OB' 
INTERVENTION 

REQUIRED 
MESSAGE CODE 



INSERT X'09» 
BUSOUT CHECK 
MESSAGE CODE 



»»C5»»**»»* 

* POST CCB » 

♦NOT AVAILABLE^ 

♦ IN ERRFLG 

♦ (IN ERBLOC) ♦ 



»#D1^^ ## ^ S# 




TURN ON ♦ 




INTERV REQ • 


♦NL-G4 


BIT 1 IN ♦ 


J4.K2 


ERQUE FLAG ♦ 


*♦•»♦ 



••£!•••••• 

SVC 3 
$$ANERRM 
CHART NA 



. ♦NL-Hl,H2tK3 



•••••D3»****»»**« 




TURN OFF ♦ 




ALLOW RETRY ♦ 




AND IGN BITS ♦ 




3 AND 5 IN ♦ 


* 


ERQUE FLAG ♦ 



CALCULATE CCB 
ADDRESS, TURN 
ON NO-RECORD- 
FOUND BIT 
BYTE 3, BIT 4 



SET UP, 

FETCH NAME 

SSANERRU 



IS 
OEVICE 
. 3211 



SET UP 

FETCH NAME 
$$ANERSA 
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Chart NM. $$ANERRC - ERP Monitor 
Refer to Chart 11. 



»»A2»»»*»*»*« 
SSANERRC 



#*#»»B2»»»»*»*»* 
•LOAD ADDRESSES 

* OF COMREG. 

* ERBLOC AND 

* PUB. SSM TO 
♦ENABLE INTRPTS 



♦GET ADDRESS OF 

• COMREG 

♦ INTO REG 9 



SET UP TO 

FETCH 
SSANERAI 



SET LAST 

BYTE OF 

FETCH NAME 

TO C'2' 



• D3 
SSANERR2 OR $$ANERP2 
AS CALLED OUT BY PHASE 
NAME MODIFICATION. 
REFER TO PLM'S GY30-5001 
AND GY30-5002 FOR TP ERP. 



RESET FETCH 

NAME 
TO $$ANERRI 



»*«»D4«»* 

DETERM 

ENTRY 

CHANNEL 

AND GET 

ADORE: 



QUEUE 

CCB 
SS 



.♦ ON LINE 
TEST 
». REQUEST 



SVC 3 

FETCH T/P ERP 

• D3 



SET FETCH 

NAME TO 
$$ANERPI 



F3 *. 
.♦ 2701, ♦. 

•7770, 7772, ». 

2826 MOD 
». II .» 



*»»*F4*«»»«»»»« 
SAVE CCB BITS 

8-20, GET 

STORAGE KEY, 

SAVE CCB 

BITS 24-27 



G3 •. 

.* IS •. 

• THIS A 

RETAIN/370 
•. DEVICE . 



• GET LOGICAL 

• TRANSIENT KEY 
X« ADDRESS FROM 

•COMMUNICATIONS 

• REGION 



• POST CCB • 
NOT AVAILABLE 

• IN ERRFLG « 



LASPHAS X 

»*#»»H3»*»»»**»» 

• INSERT X'27« 
•UNKNOWN DEVICE 

• MSG CODE. SET 

• UP TO FETCH 

• $$ANERRM 



♦ TURN OFF • 
» ALLOW RETRY 

AND IGN BITS 
• 3 AND 5 IN 

♦ERQUE FLAG • 



• GET QTAM 

• ADDRESS FROM 
•COMMUNICATIONS 
» REGION 



J4 *. 

» KEY • 

ADDRESS 

EQUALS 

QTAM 



SSANERRM (CHART NA) 
SSANERAI (CHART UG) 
AS CALLED BY PHASE 
NAME MODIFICATION. 



SVC 3 

EXIGN 

CHART DD 
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Chart NN. $$ANERRB - Disk ERP 
Refer to Chart 11. 



****A1********* 

* * 

* $$ANERRB * 

* * 

*************** 



IJBERB33 

*****B1********** 
♦LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOCAND PUB * 

* SSM TO ENABLE * 

* INTERRUPTS * 
***************** 



HK .♦. 
CI *. 
.* *. 
* 

DATA CHECK 
*. 

*. .* 
*. .* 
♦YES 



DTCH X 

*****Ol ********** 

* CALCULATE * 

* CHANNEL * 

* QUEUE ENTRY * 

* AND GET * 

* CCB ADDRESS * 
***************** 



.*. 
El *. 
.♦ USER *. 
* WANTS 

DATA CHECK 
♦.RETURNED . 



B2 ♦. 
.* * 
.♦ 
. .X+. OVERRUN 



*****C2^********* 

♦ INSERT X'14« ♦ 

♦ OVERRUN ♦ 

♦ MESSAGE CODE ♦ 



**E2****^** 
♦ TURN ON * 

♦ PASSBACK 
.X* BIT 2 

* IN 
♦ERQUE FLAG * 

*********** 



.♦ MISSING 
.X*. ADDRESS 
*. MARKER 



*****C3********** 

♦ INSERT X'13« ♦ 

♦ MISSING ♦ 
♦ADDRESS MARKER ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



*****E 3** ******** 

♦ INSERT X'14« * 

♦ CHAINING ♦ 

♦ CHECK ♦ 

♦ MESSAGE CODE * 

♦ * 
***************** 



.♦ FILE *. 

PROTECT 

♦.VIOLATION.* 



UNKN 

*****E4********** 

* INSERT X'19« * 

* UNDETERMINED * 

* ERROR * 

* MESSAGE CODE * 

* * 
***************** 



*****B5 ********** 

* * 

* INSERT X«17« ♦ 
.X* FILE PROTECT *. 

* MESSAGE CODE * 

* * 
***************** 



*****Q5********** 

* INSERT X'18* ♦ 

* COMMAND ♦ 
.X* REJECT ♦ 

* MESSAGE CODE ♦ 

* * 
***************** 



EXITAB X 

**D5******* 
* TURN OFF * 

* ALLOW RETRY ♦ 
♦AND IGNORE BITS* 

* 3 AND 5 IN ♦ 
*ERQUE FLAG * 

*********** 



**** 

* * 

* 1 * 



♦ INSERT X'll 1 ♦ 

♦ DATA CHECK ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



.♦. 
Gl ♦. 
♦ DATA ♦. 
CHECK IN ♦. NO 
COUNT .*.... 


VERIF 

**G2******* 
* TURN ON * 
* READ/VERIFY ♦ 
....X*DATA CHECK BIT 


FIELD .* 
*. .♦ 


♦ IN CCB, * 
BYTE 3, BIT 3* 



**H1******* 
TURN ON DATA* 

* CHECK IN * 
♦COUNT FIELD BIT* 

♦ IN CCB, ♦ 
BYTE 3, BIT 0^ 

*********** 



***** j 1 ********** 

* INSERT X*16' ♦ 

* DATA CHECK IN ♦ 

* COUNT FIELD * 

* MESSAGE CODE * 

* * 
***************** 



*****H2********** 

* CALCULATE ♦ 

* ADDRESS * 

* OF ♦ 

* LAST USED * 

* CCW ♦ 
***************** 



J2 ♦. 

.♦ WAS ♦. 

.♦ COMMAND * 

♦.CODE READ OR 

♦. VERIFY .* 

*. .* 



.* USER *. 
.* WANTS * 
. DATA CHECKS 
♦.RETURNED .* 



**G4******* 

* TURN ON * 
PASSBACK 
BIT 2 IN 

ERQUE FLAG 

* * 
*********** 



X 

H3* **. 
* WERE * 
SKIP AND 
SILI BITS 

ON 

*. .* 

*. .* 


*. YES 


SKSLI 

**H4******* 
* TURN ON 
* DASD VERIFY 


* 


*CCB, BYTE 3, 
* BIT 6 
*********** 



* INSERT X« 12' * 

* VERIFY ERROR ♦ 

* MESSAGE CODE ♦ 

* * 
***************** 



****K4********* 

♦ SVC 3 ♦ 
♦FETCH $$ANERRM * 

* CHART NA ♦ 
*************** 
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Chart PA, $$ANERRD - Phase 1 of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



SAVE USER 

POINTERS TO 

CCW AND 

RETRY CTR 



CCB "*. 


NO " 


/ 


»#*C2«»»*»*« 

SVC 3 

EXIGN 

CHART DD 


"; 


* 


COMPUTE UNIT * 

NUMBER AND • 

SAVE FOR » 

NEXT PHASE * 






» 












•YES 






X 

Dl* **. 

READ ***. 
OPPOSITE 
RECOVERY -• 
*.(ROR).» 


yes! 










X 

« GET RETRY * 

» COUNTER * 
» ADDRESS * 
» FROM PUB • 



INCREMENT 

RETRY 

COUNTER 



SET FSR 

COMMAND IN 
REPCCW 



El «. 

ERROR **» 
ON 
•RECOVERY .» 

*"»N0 



TURN OFF 
RETRY AND 
IGNORE BITS 



INSERT X«31' 
DEVICE NOT 
OPERATIONAL 

CODE FOR 
MSG. WRITER 



**H1******* 
SVC 3 
SSANERRM 
CHART NA 



GET 

TEBVSB 

PTR 



F3 *. «**»»F4««**«»» 

TEBV *♦. YES • GET PTR 

SPECIFIED X* TO TEB 

.• « ENTRY AND 

». .» * SAVE 

'•NO 
"x " 

x 

G3* "*. ♦»»»«G4*«»**»« 

TEB'S *». YES * GET PTR TO 

SPECIFIED .» X* TEB ENTRY 

.» * AND SAVE 

*«NO 
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Chart PB. $$ANERRD - Phase 1 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



.• RETURN ». 

.FROM SSANERRF. 

•. INTV .* 

». REQ .« 



D2 



ERR395 



• »CMD REJ*. 
.♦INTERV REQ • . YESX • SVC 3 

*BUS OUT, EQUIP.* X*FETCH $$ANERRF 

*. CHECK, .• • CHART PE 

•OVERRUN* **•*••*»*••«*** 

"•NO 



LOAD *•. YES 
POINT .*... 


.•* READ 


«. 

** 


/ES 


» CHANGE 
* UNIT CHECK 


"*N0 


"•NO 




* EXCEPTION 
X 


X 

2**"». 

DATA "«. NO 
CHECK .♦... 


ERR 396 

X 
•••♦F3 

* SVC 3 

* $$ANERAM 

* CHART PJ 


• PA • 

• C2« 



SET DATA 

CHECK MESSAGE 

CODE X»il» 



WRITE 
OR CONTROL 
. COMMAND 


*. YES 


•***H3*****»*** 

* SVC 
X» $$ANERAP 

• CHART PN 


'•NO 






X 

J2* *•. 

LAST 
RETRY 


• PA • 

• H3» 

# • 

•. YES I 


• SVC 3 
X»FETCH $$ANERAS 

• CHART PX 



• *K2 • 

SVC 3 
$$ANERRE 
CHART PO 
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Chart PC. $$ANERRE - Phase 2 of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



SSANERRE * 
* 

************* 



*****B1******** 



******* ******** 



*****ci ********** 

* * 

* GET POINTER * 

* TO RETRY * 

* COUNTER * 

* * 
***************** 



.* ccw ♦ . 

.* CNT MINUS * 
•X*.CSW RESIDUAL 



MN)TH 

RETRY 

*J4 



ERR010 X 






.*. 




*****D1 ********** 




D2 *. 




* 


* 




.♦ ♦ . 




* PUT LOGICAL 


* 


NO 


* ERROR * 




* UNIT NUMBER 




. . .♦ 


ON FIRST 


* 


* INTO CCB 






♦ . CCW .* 




* 


* 




*. .* 




*************** 




**** 

* * 

* 2 * 

* * 
**** 


*. .* 
♦ YES 

X 




X 






.*. 




***** El ********** 




E2 *. 




* 


* 




.* *. 




* GET POINTER 


* 




* COUNT * 




* TO TEMP 


* 


* 


IN FIRST CCW 


* 


* READ COUNTER 


* 




♦ . GREATER .* 





ERR645 

*****C4 ********** 
♦ERR700 PD* 
*_*_*_*_*.*_*_*_* 

* REPOSITION * 

* * 

* * 
***************** 



**** 

* * 

* 4 * 

* * 
**** 



***************** 



NO 

r ccw .♦ 

TER .* 

*. 11 



**** 

* * 

* 3 * 

* * 
**** 



*#(=4******* 

* * 
PUT 

X'FF' IN 
COUNTER 

* * 
*********** 



ERR600 X 

*****jl********** 

* INCREMENT * 

* UNIT + VOLUME * 

* COUNTERS AS * 

* SPECIFIED * 

* * 
***************** 



SET POINTER * 

TO TEBVSB * 

ENTRY * 

* 

*************** 



NO .* READ 
..X*. THRESHOLD 
♦.EXCEEDED . 



*****p 3 ********** 

* * 

* IF TEBS, * 

* INCREMENT * 

* NOISE COUNTER * 



****G 3 ********* 

* SVC 3 * 

* EXTRY EXIT * 

* CHART DD * 
*************** 



****F4********* 

* SVC 3 * 
♦FETCH SSANERAS * 

* CHART PX * 
*************** 



* GET POINTER * 

* TO CLEANER * 

* COUNTER * 

* * 
***************** 



*****g 5********** 

* UPDATE * 
♦CLEANER COUNTER* 

* IF TEBV * 

* SPECIFIED * 

* * 
***************** 



*****F5********** 

* * 

* UPDATE RETRY * 

* COUNTER BY 10 * 

* MOD 4 * 

* * 
***************** 



*****Q5 ********** 

* * 

* TURN ON * 

* TAPE CLEANER * 

* INDICATOR * 

* * 
***************** 



****H5********* 

* SVC 3 * 
♦FETCH $$ANERRL ♦ 

♦ CHART PH ♦ 
*************** 



♦ GET POINTER ♦ 

♦ TO ERROR ♦ 

♦ CCW * 

♦ * 
***************** 



MSG 

OUTPUT 

YET 



****K2*#****^** 

♦ SVC 3 ♦ 
♦FETCH SSANERAR ♦ 

♦ CHART PW ♦ 
*************** 



♦J4 
PROGRAM INITIATES 
TAPE CLEANER 
ACTION EVERY 
FOURTH RETRY. 
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Chart PD. $$ANERRE - Phase 2 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



****A1********* 

* * 

* ERR700 * 

* * 
*************** 



****A2********* 

* * 

* ERR703 * 

* * 
*************** 



ERR700 X 

*****Bl ********** 

* * 

* LOAD * 

* REPCCW *... 


ERR703 X 

*****B2********** 

* LOAD * 


* ADDRESS * 


* ADDRESS * 



***************** 



***************** 



*****C2***#****** 

* SAVE INDEX * 

* TO CHANO * 

* AND CHAN * 

* SCHED FLGS * 

* * 
***************** 



*****02 ********** 

* TURN OFF * 

* QUEUED ERROR * 

* AND DEVICE * 

* BUSY BITS * 

***************** 



*****E 2********** 

* SET RIK IN * 

* ERBLOC TO * 
SX'OO 1 AND STORE* 

* CCW ADDRESS * 

* IN CCB * 
***************** 



****£ 2** ********* 



**** 

* * 

* l * 

* * 
**** 



****B5********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



**************** 



*****D4 ********** 

* RESTORE * 

* INDEX TO * 

* CHANQ AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



****E5********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REG * 
*************** 



*********** 



CHANNEL 
QUEUE 
.OVERFLOW 



*****H2*#«******* 

* RESTORE INDEX * 

* TO CHANSG AND * 

* CHAN SCHED * 

* FLGS * 



*****G4** ******** 

* * 

* POST ERROR * 

* FOR * 

* $$ANERRL * 

* * 
***************** 



****** 



******* 



***** j 2 ********** 

* INSERT X'20' * 

* ERROR ON * 

* RECOVERY * 

* CODE * 

* * 
***************** 



***K2********** 

TURN OFF * 

RETRY AND * 

IGNORE *. 

BITS * 

* 

*************** 



****H4********* 

* SVC 3 * 

* $$ANERRL * 

* CHART PG * 
*************** 



****K3** ******* 

* SVC 3 * 
.X*FETCH $$ANERRM * 

* CHART NA * 
*************** 
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Chart PE. $$ANERRF - Phase 3 of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



****Al********* 

* * 

* $$ANERRF * 

* * 
*************** 



*****B1 ********** 



**** 

* * 

* 2 * 



**** 

* * 

* 1 * 

* * 
**** 



***** 

*PF * 

* Al* 

* * 



***************** 



*****C1********** 

* * 

* GET POINTER * 

* TO RETRY * 

* COUNTER * 

* * 
***************** 



* MOVE * 

* LOGICAL UNIT * 

* INTO CCB * 

* * 
***************** 



*****£ L ********** 

* * 

* SET PHASE * 

* SWITCH * 

* TO X'EE" * 

* * 
***************** 



*****C2********** 

* * 

* INSERT X'41« * 

* OVERRUN CODE * 

* FOR MESSAGE * 

* WRITER * 
***************** 



READ 
BACKWARO 
. COMMAND 



*****£ 2 ********** 

* * 

* SET FORWARD * 

* SPACE RECORD ♦ . 

* COMMAND IN * 

* REPCCW * 
***************** 



****C3********* 

* SVC 3 * 
♦FETCH SSANERAM * 

* CHART PJ * 
*************** 



*****G2 ********** 

* * 

* INSERT X'28« * 
♦CHAN DATA CHECK* 

* CODE FOR * 
♦MESSAGE WRITER * 
***************** 



♦.INTERVENTION 


♦.REQJIRED . 


*. 


.* 


* 






*N0 


**** 




* * 




* 3 *. 




* * 




**** 


X 


250 


.♦. 



*****C5********** 

* * 

* INSERT X«08» * 

* INTERV REQ * 

* CODE FOR * 
♦MESSAGE WRITER ♦ 
***************** 



D4 ♦. 
* * 

OVERRUN 

*. .* 
*. .* 
♦ YES 



*****E4**** ****** 

♦ * 

♦ INSERT X'14' ♦ 

♦ OVERRUN CODE * 

♦ FOR MESSAGE ♦ 

♦ WRITER * 
***************** 



*****H1 ********** 

♦ * 

♦ INSERT X'10* ♦ 
♦EQUIPMENT CHECKS 

♦ CODE FOR MSG ♦ 

♦ WRITER ♦ 
***************** 

**** 



H2 ♦. 




*****H3******** 


* *. 




♦ INSERT X'31« 


5 ♦. 


NO 


* DEVICE NOT 


RETRIES 


♦ . . . . 


♦ OPERATIONAL 


EXCEEDED .♦ 




♦ CODE FOR 


♦ . .♦ 




♦MESSAGE WRITER 


*. .* 


X 


*************** 


♦ YES 


***** 

♦ PF ♦ 

♦ 03^ 


* 



♦ J2+ 
**** 

ERR660 X 

*****jl ********** 

♦ * 

♦ TURN OFF ♦ 

♦ RETRY AND ♦ 

♦ IGNORE BITS ♦ 

♦ * 
***************** 

**** 



****Ki********* 

♦ SVC 3 ♦ 
♦FETCH SSANERRM ♦ 

♦ CHART NA ♦ 
*************** 



♦ TURN ON ♦ 

♦ OPERATOR ♦ 

♦ INTERVENTION ♦ 

♦ BIT, X'40« ♦ 
***************** 



**** 

* * 

* 4 ♦ 

* * 
**** 



YES .♦ REWIND 
...... AND 

♦. UNLOAD 



****K4********* 

♦ SVC 3 * 

♦ EXIGN EXIT * 

♦ CHART DD * 
*************** 



.♦. 

J5 ♦. 

.♦ CMD ♦. 

YES .^REJECT, BUS+. 

...♦.OUT, EQUIPCHK. 

♦. OVERRUN .♦ 



****K5********* 

♦ SVC 3 ♦ 
♦FETCH $SANERRD * 

♦ CHART PA ♦ 
*************** 
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Chart PF. $$ANERRF - Phase 3 of Tape ERP (Part 2 of 
Refer to Chart 13. 



2) 



***** 

*PE *~ 

* A4* 

* * 



*** 



*A1********** 



* INSERT X«09« 

* BUS OUT CHECK 

* CODE FOR 
♦MESSAGE WRITER 

**************** 



****A4********* 
* 

* ERR700 
* 
*************** 



**** 
PE * 

Jl* 



*PE * 

* H2* 
* * 



*****Ei ********** 
♦MOVE BACKSPACE * 

* INTO REPCCW, * 

* TURN OFF * 

* COMMAND * 

* CHAINING * 
***************** 



*****F1 ********** 

*ERR700 PF* 

*_*_*_*_*_*_*_*_* 

* REPOSITION * 

* TAPE * 

* * 
********* 



*****E3********** 

* * 

* TURN OFF * 

* COMMAND * 

* CHAINING * 

* * 
***************** 



*****P3********** 

*ERR700 PF* 
*_*_*-*_*_*_*_*_* 

* REPOSITION * 

* TAPE * 

* * 
***************** 



*PUT REPOSITION * 

* CCW IN * 

* REPCCB * 

* * 
***************** 



*****C4********** 

* SAVE INDEX TO * 

* CHANQ AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



*****D4********** 
*TURN OFF QUEUED* 

* ERROR AND * 

* DEVICE BUSY * 

* BITS IN CHAN * 

* SCHED FLAGS * 
***************** 



*****E4********** 

* SET RIK IN * 

* ERBLOCK TO * 

* X'OO', PUT * 

* REPCCB ADDR * 

* IN REG 15 * 
***************** 



****P4**** ******* 



***************** 



****. 
******** 



***************** 



****jl********* 

* SVC 3 * 

* ENTRY EXIT * 

* * 
*************** 



SENSE 
BIT 
ON 



*****J2********** 

* * 

* POST ERROR * 

* FOR * 

* SSANERRL * 



****K2********* 

* SVC 3 * 

* $$ANERRL * 

* CHART PG * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* RESTORE CHANQ * 

* INDEX AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



*****j4********** 

* INSERT X«20» * 

* ERROR ON * 

* RECOVERY CODE * 

* FOR MESSAGE * 

* WRITER * 
***************** 




X 
***** 
*PE * 
* Jl* 





****Q5********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



*****H5********** 

* * 

* RESTORE * 

* CHANQ * 

* INDEX * 

* * 
***************** 



* RESTORE * 

* CHAN SCHED * 

* FLAGS * 

* * 
***************** 



****K5********* 

* RETURN TO * 

* MAINLINE * 
*VIA RETURN REG * 

*************** 
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Chart PG. $$ANERRL - Phase U of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



•#A1««««»* 
$$ANERRL 



• *«B1 *♦ 

INITIALIZE 

REGISTERS, 

GET POINTER 

TO RETRY 

POINTER 



MOVE UNIT 
INTO 
CCB 



PTOSW 


Gl***». 




YES. .» 


PTO • 






SWITCHES 




* 


ON .« 




X 






*«» 


♦ NO 










1 » 












..» 7 




















ERR095 


X 




**#»«H1«******* 












GET 






ADDRESS 






OF SENSE 




* 


AREA 


* 



BUS 

OUT 

CHECK 



.• COMMAND » 

.REJ, OVERRUN, 

*. INTERV .» 

*.REQD .* 



SET OPERATION 

LIMITS 

BSR=5, FSR = 4 

IN REPCCW 



»«»»B3*****»»»» 
PUT BACKSPACE 

COMMAND IN 

CCW AND TURN 

OFF CDMMAND 

CHAINING 



ORIGINAL 
CCW READ 
.BACKSPACE. 



BSR C0UNT=4 

FSR COUNT=5 

IN REPCCW 



DECREMENT 

BSR COUNT 

BY ONE 



»*«»A5»*»****** 

PUT FSR 

COMMAND IN 

REPCCW AND 

TURN OFF 

COMMAND CHAIN 



ERR360 X 

*»*»»B5******»*»* 
•ERR700 PH» 

» PERFORM TAPE*""* 

• FORWARD SPACE » 

• OPERATION * 



ERR355 

»*«*«C4* 
•ERR700 



PERFORM TAPE 
BACKSPACE 
OPERATION 



• 5 


*. 












X 


ERR412 








fcJ 










YES .• 




3 




RETRIES 


» 


EXCEEDED 



.• REQ'D *. NO 
•FORWARD SPACES.*... 
«. DONE .« 



»E5******* 



•SAVE BACKSPACE 

* AND FORWARD 

* SPACE 

* COUNTS 



»»F3******* 

INCREMENT 

AND STORE 

ERASE 

GAP 

COUNTER 



SET 

TRACK IN 

ERROR 

COMMAND 

IN REPCCW 



PERFORM 

TIE 

OPERATION 



•«««»G2********** 

• INCREMENT • 

• RETRY * 

• COUNTER * 



EXECUTE 
ERASE GAP 
OPERATION 



•••»G3** ••••*•• 
INSERT X'20« 

ERROR ON 

RECOVERY CODE 

FOR MESSAGE 

WRITER 



TURN OFF 
RETRY AND 
IGNORE BITS 



•*»H5*»»**»* 

SVC 

ENTRY EXIT 



EXECUTE 

SENSE 

OPERATION 



»*#»K2**»*»*»*» 

ZERO ERASE 

GAP 

COUNTER 



SVC 3 
$$ANERAN 
CHART PL 
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Chart PH. $$ANERRL - Phase 4 of Tape ERP (Part 2 of 
Refer to Chart 13. 



2) 



****A2*** 

* * 

* ERR705 * 

* * 
*************** 



****A3********* 

* * 

* ERR700 * 

* * 
*************** 



* LOAD 

* SENSE AREA 

* ADDRESS 
* 

*********: 



******** 



**** 

* * 

* 1 * 



CHANNEL 

OUEUE 

.OVERFLOW 



***************** 



*****D3********** 



***************** 



*****£ 3********** 

* SAVE INDEX TO * 

* CHANO AND * 

* CHAN SCHED * 

* FLGS * 



************** 



<** 



ERR720 

*****C 5****4***** 

* RESTORE * 

* INDEX TO * 
...X* CHANO AND * 

*CHAN SCHED FLGS* 

* * 
***************** 



X 
***** 
*PG * 
* Gl* 



****E4****# 

* SVC 7 

* WAIT 



*****p 3** ******** 

* TURN OFF * 

* QUEUED ERROR * 

* AND DEVICE * 

* BUSY BITS * 

* * 
***************** 



*****G3** ******** 



***************** 



*****H3** ******** 

* * 

* LOAD * 

* CCB * 

* ADDRESS * 

* * 
***************** 



**** J 3** ********* 



***************** 



ERR710 X 

*****P4********** 

* RESTORE INDEX * 

* TO CHANQ AND * 

* CHAN SCHED * 

* FLGS * 

* * 
***************** 



****G4********* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 
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Chart PJ. $$ANERAM - Phase 5 of Tape ERP (Part 1 of 
Refer to Chart 13. 



2) 



**** 



**** 
* * 

* 2 * 

* * 
**** 



***A1******^** 

SiANERAM * 
************** 



*****B1********** 



************* 



*****C1 ********** 

* * 

* GET POINTER * 

* TO RETRY * 

* COUNTER * 

* * 
***************** 



* MOVE LOGICAL * 

* UNIT INTO * 

* REPCCB * 

* * 
***************** 



PK * 
B4* 
* * 






* 






ERR275 X 

*****F1 ********** 
* * 


* 


INCREMENT 

RETRY 

COUNTER 


* 
* 
* 



***************** 



*****Gl ********** 

* * 

* SET PHASE * 

* SWITCH TO * 

* X'EE' * 

* * 
***************** 



*. .* 
*. .* 
*YES 



*****B2********** 

* * 

* INSERT X'32' * 

* NOT CAPABLE * 

* CODE FOR * 
♦MESSAGE WRITER * 
***************** 



*****C 2 ********** 

* * 

* MOVE RUN * 

* COMMAND * 

* INTO REPCCW * 



*****Q2********** 

* TURN OFF COM- * 
*MAND CHAINING, * 

* TURN ON OPER * 

* INTERVENTION * 

* BIT * 
***************** 



**** 
ERR315 

*****E2******** 
*ERR700 P 
*_*_*_*_*_*_*-*. 

* PERFORM 

* RUN 

* OPERATION 
*************** 



* EXECUTE * 

* SENSE * 

* OPERATION * 
***************** 



UNIT *. YES 
CHECK .*.... 




*. .♦ 

*. .* X 
*N0 ***** 
*PK * 
* F3* 
* * 
. * 
X ERR660 
.*. 
C4 *. 
* *. 
EQUIPMENT *. YES 
CHECK .* 




*****C5******** 

* INSERT X'lO' 
.X* EQUIPMENT 



*CHECK CODE FOR 
♦MESSAGE WRITER 
**************** 



*****E4********** 

* * 

* INSERT X'09' * 

* BUS OUT CODE * 

* FOR MESSAGE * 

* WRITER * 
***************** 



***** 
*PK * 
* F3* 



.* DATA *. YES 
. CONVERTER .*.... 
*. CHECK .* 



**** 

* * 

* 1 * 



* INSERT X«19« * 

* UNDETERMINED *. 
♦ERROR CODE FOR * 
*MESSAGE WRITER * 
***************** 



*****H2 ********** 

* INSERT X«29« * 
♦BACKSPACE INTO * 

X* LOAD POINT *. 

* CODE FOR * 
*MESSAGE WRITER * 
***************** 



*****J2********** 

* * 

* INSERT X'30« * 
.X* TAPE CONVERT *. 

* CODE FOR * 
♦MESSAGE WRITER ♦ 
***************** 



.♦PROGRAM*. 
* OR 

PROTECTION 
*. CHECK . 



****H3** ******* 

* SVC 3 * 

* $$ANERRA ♦ 

* CHART NL ♦ 
*************** 



*****P5********** 

* * 

♦ INCREMENT ♦ 
X* RETRY ♦ 

♦ COUNTER * 

* * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 



* MOVE X'EB 1 * 

* INTO FLAG ♦ 

* TO CANCEL * 

* * 
***************** 



***** 

*PK * 

* F3* 

* * 



***** 
*PK * 
* F3* 
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Chart PK. $$ANERAM - Phase 5 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



*A1********* 

ERR705 * 
************ 



****A2********* 

* * 

* ERR700 * 
*************** 



* LOAD * 

* REPCCW * 

* ADDRESS * 

* * 
***************** 



.*AT LOAD*. 
.* POINT AND *. YES 
.FILE PROTECT .*.... 



*****Q1 ********** 

* * 

* SAVE INDEX TO * 

* CHANO AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



***** El ********** 

* * 

* TURN OFF * 

* QUEUED ERROR * 

* AND DEVICE * 

* BUSY BITS * 
***************** 



*****P1 ********** 



***************** 



***G1 ********** 



***************** 



****Hl *********** 



***************** 



.* CHANNEL *. YES 
..X*. QUEUE .*.... 
*. OVERFLOW .* 



****P2******* 

* SVC 7 

* WAIT 
* 

*******.***** 



RESTORE INDEX * 

TO CHANQ * 

AND CHAN * 

SCHED FLAGS * 

**************** 



*****£ 3** ******** 

* INSERT X'20' * 

* ERROR ON * 

* RECOVERY CODE * 

* FOR MESSAGE * 

* WRITER * 
***************** 



*****D4** ******** 

* * 

* INSERT X'18' * 
♦COMMAND REJECT * 

* CODE FOR * 
♦MESSAGE WRITER * 
***************** 



*****F 3** ******* 
* 

* TURN OFF 

* RETRY AND 

* IGNORE BITS 
* 
**************** 



* RESTORE INDEX * 

* TO CHANQ AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



* RETURN TO * 

* MAINLINE VIA * 

* LINK REG * 
*************** 



*****C5********** 

* * 

* MOVE RUN * 

* COMMAND IN * 

* REPCCW * 

* * 
***************** 



*****0 5** ******** 

* * 

* TURN OFF * 

* COMMAND * 

* CHAINING * 

* * 
***************** 



* PERFORM * 

* RUN * 

* OPERATION * 
***************** 



*****P5********** 

* * 

* INSERT X«17' * 

* FILE PROTECT * 

* CODE FOR * 
♦MESSAGE WRITER * 
***************** 



*****G5** ******** 

* * 

* TURN ON * 

* OPERATOR * 

* INTERVENTION * 

* BIT * 
***************** 



* SVC 3 * 

* $$ANERRM * 

* CHART NA * 
*************** 
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Chart PL. $$ANERAN - Phase 6 of Tape ERP (Part 1 of 
Refer to Chart 13. 



2) 



****Ai********* 

* * 

* $$ANERAN * 

* * 
*************** 



*«***Bi ********** 



***************** 



**C1 ********** 



RESTORE 
SENSE 
DATA 



* READ 

OPPOSITE 
*. RECOVERY 



**** 

* * 

* 2 * 



ERR408 X 

*****C 3** ******** 
♦ERR700 PM* 



**************** 



**** ERR755 



****D4********* 

* SVC 3 * 

* $$ANERRL * 

* CHART PG * 
*************** 



***** 
*PM * 
* Al* 



TAPE * 
CLEANER 
.INDICATOR.* 



*****Q1 ********** 

* FSR COUNT= * 

* FSR COUNT * 

* MINUS BSR * 

* COUNT * 

* RESIDUAL * 
***************** 



.* FORWARD * 
*. SPACE RECORD 
*. COUNT=0 .* 



* SET FORWARD * 

* SPACE * 

* COMMAND IN * 

* REPCCW * 

***************** 



INSERT X«20» * 

ERROR ON * 

RECOVERY * 

CODE * 

**************** 



**P2******* 

* * 

TURN OFF 
RETRY AND 
IGNORE BITS 

* * 
*********** 



***G2********* 
SVC 3 * 
$$ANERRM * 
CHART NA * 



.* FORWARD *. NO 
.SPACE RECORD .*... 
*. COUNT= .* 
*. .* 



* SET TIE * 

* COMMAND * 

* IN REPCCW * 

* * 

***************** 



*********** 



*****E4**** ****** 

* * 

* DECREMENT * 
X* COUNT * 

* BY ONE * 

* * 
***************** 



***** 

*PM * 

* J3* 

* * 



H3 



ERR695 



****H4********* 
UNIT *. NOX * SVC 3 * 

CHECK .* X* EXTRY EXIT * 

.* * CHART DD * 

.* *************** 

*. .* 
*YES 
X 

**** 

* * 

* 3 * 

* * 
***# 
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Chart PM. $$ANERAN - Phase 6 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



***** 

*PL * 
* Dl* 



ERR340 X 

*****A1********** 

* TURN OFF * 
♦UNIT CHECK AND * 

* WRONG LENGTH * 

* RECORD IN * 

* ERROR * 
***************** 



*****B2********** 

* * 

* POST UNIT * 
X* EXCEPTION * 

* IN ERBLOC * 

* * 
***************** 



* ADD 8 TO * 

* CCWREG AND * 

* PUT IN * 

* REGISTER * 
***************** 



*****D1 ********** 

* SAVE FLAG, * 

* STORE CCWREG * 

* IN CSW, * 

* RESTORE FLAG * 
***************** 



***** El ********** 

* GET ORIGINAL * 
♦COUNT. SUBTRACT* 

* RORCCW COUNT, * 

* STORE AS * 

* RESIDUAL * 
***************** 



****C2********* 

* * 

* ERR705 * 

* * 
*************** 



* SET TIE * 

* COMMAND * 

* IN REPCCW * 

* * 
***************** 



****A 3** ******* 

* * 

* ERR700 * 

* * 
*************** 



* LOAD * 

* REPCCW * 

* ADDRESS * 

* * 
***************** 



*****C3********** 



***************** 



**** 

* * 

* 2 * 

* * 
**** 



.* CHANNEL *. YES 
*. QUEUE .*.... 
♦.OVERFLOW .* 



.X^ 



*****B5********** 

* RESTORE * 

* INDEX TO ♦ 
CHANQ AND ♦ 

CHAN SCHED * 
FLGS ♦ 
*************** 



*****£ 3** ******** 



***************** 



***************** 



****jl********* 

* SVC 3 * 

* EXIGN EXIT * 

* CHART DD * 
*************** 



* STORE ♦ 

♦ CCWREG AS ♦ 

♦ RESTART ♦ 

* * 
***************** 



*****q 5********** 

* * 

* INSERT X'20' ♦ 

* ERROR ON ♦ 

* RECOVERY ♦ 

* CODE ♦ 
***************** 



***** 
*PL ♦ 
* F2+ 



****D4********* 

* SVC 7 ♦ 

* WAIT ♦ 

* * 
*************** 



*****E4********** 

* RESTORE * 

* INDEX TO * 

* CHANQ AND ♦ 

* CHAN SCHED ♦ 

* FLGS * 
***************** 



Fl *. 


F2 ♦. 




*****P3** ******** 


*****P4********** 


.* *. 


.♦ *. 


* * 


* * 


.♦ RESIDUAL ♦. NO 


.♦ SILI ♦. YES 


♦ SAVE INDEX ♦ 


♦ RESTORE ♦ 


♦. =0 .* 


...X^. BIT ON ...... 


♦ TO CHANQ ♦ 

* AND CHAN ♦ 


* POINTER ♦ 


*. .* 


*. .* 




♦ TO CCB * 


*. .* 


*. .* 




* SCHED FLGS * 


* * 


*. .* 


*. .♦ 




***************** 


***************** 


♦ YES 


♦NO 








**** 










* * 










♦ 1 ♦... 










* * . 










**** 










ERR350 X 


X 




X 




*****£}********** 


*****G2********** 




*****G3********** 


*****G4** ******** 


* * 


* * 




* * 


* * 


* RESET ♦ 


* SET WRONG ♦ 




* TURN OFF ♦ 


* SET ♦ 


♦ ROR ♦ 


♦ LENGTH ♦..X 




♦ QUEUED ERROR ♦.... 


....X* RIK TO ♦ 


♦ SWITCH ♦ 


♦ RECORD IN * 




* AND DEVICE * 


* X'OO' * 


* * 


♦ CSW ♦ 




♦ BUSY BITS ♦ 


* * 


***************** 


***************** x 

**** 


***************** 


***************** 


• 


* * 

* 1 * 

* * 






X 

.*. 


**** 






.♦. 




X 


HI *. 


H2 ♦. 


*****H3** ******** 


*****H4********** 


.* ♦. 


.* *. 


* * 


* * 


*♦ COMMAND *- YES 


.* TRANSFER ♦. YES 


* GET ADDRESS * 


* LOAD * 


*. CHAINING ....... 


. . .X*. IN .♦. . . r 


X* FROM TIC ♦ 
♦ COMMAND ♦ 


* CCB ♦ 


*. .* 


*. CHANNEL .* 




♦ ADDRESS ♦ 



.X* 



****P5********* 
RETURN TO ♦ 
ADDRESS IN ♦ 
♦ LINK REGISTER * 
*************** 



********* 



****J4*********** 



***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



294 DOS Supervisor and Related Transients 



Chart PN. $$ANERAP - Phase 7 of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



**<\1****** 
$$ANERAP 

********** 



*****gl********** 

* * 

* INITIALIZE * 
♦REGISTERS, GET * 

* POINTER TO * 

* RETRY COUNTER * 

***************** 



************ 



* GET POINTER * 

* TO TEBV RETRY * 

* COUNTER * 

* * 
***************** 



ERR150 

##**#A2********* 

* GET 

* DISPLACEMENT 
..X* FOR TEMPORARY 

* WRITE ERROR 

* ERROR 



*****C2********* 

* INCREMENT 

* TEMPORARY 

* WRITE 

* TEB/TEBV 

* COUNTER 
**************** 



* 1 * 

* * 
**** 



*********** 



WRITE 

THRESHOLD 

.EXCEEDED . 



* POST UNIT * 

* EXCEPTION * 

* IN CCB * 

* * 
***************** 



*****E4**** ****** 

* INSERT X '11' * 

* DATA CHECK * 

* CODE FOR * 
♦MESSAGE WRITER * 

■ ********* 



*****P4** ******** 
♦ERR600 PP* 

*_*_*..*_*_*_*_*_* 

* INCREMENT * 

* ERROR * 

* COUNTERS * 
***************** 



**** 
* * 
*PP 



****jl ********* 

* SVC 3 * 

* $$ANERAR * 

* CHART PW * 
*************** 



* REPLACE TIE 
X* WITH ERG 

* COMMAND 
* 
*************** 



*****H3** ******** 

*ERR600 PP* 
*_*-*_*_*-*-*_*_* 

* INCREMENT * 

* ERG COUNT * 

* * 

************: 



***** J 3** ******** 

*ERR700 PP* 
*_*_*_*_*_*_*_*_* 

♦REPOSITION TAPE* 



***************** 



TURN OFF * 

RETRY AND * 

IGNORE BITS * 

* 

*************** 



****H4********* 

* SVC 3 * 
♦FETCH $$ANERRM * 

* CHART NA * 
*************** 



*****K2********** 
♦ERR600 PP* 

♦ IF TEB/TEBV, ♦. 

♦ INCREMENT * 

♦ ERG COUNTER ♦ 
***************** 



****«3******* 

* SVC 3 

* EXTRY EXIT 

* CHART DD 
************* 
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Chart PP. $$ANERAP - Phase 7 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



****A1********* 

* * 

* ERR600 * 

* * 
*************** 



****A2********* 

* * 

* ERR610 * 

* * 
*************** 



****A3********* 

* * 

* ERR700 * 

* * 
*************** 



**** 

* * 

* i * 

* * 
**** 



* GET POINTER * 

* TO UNIT * 

* STATISTICS * 

* * 
***************** 



NO .* TEBS *. 
...*. BY UNIT 

♦.SPECIFIED.* 



VOLUME 
ENTRY 
ONLY 



_*_*_*_*_* 



*********** 



TEBS *. NO 
BY VOLUME .*..X 
.SPECIFIED.* 



*****Gl ********** 
*ERR610 PP* 
*_*-*-*-*_*_*_*-* 

* INCREMENT * 

* VOLUME * 

* COUNTER * 
***************** 



****H1********* 

* RETURN TO * 

* MAINLINE VIA * 

* LINK REG * 
*************** 



* CALCULATE * 

* DISPLACEMENT * 

* TO CORRECT * 

* COUNTER * 
***************** 



SPECIFIED • 
COUNTER 
. FULL 



*****D2 ********** 

* * 

* INCREMENT * 

* SPECIFIED * 

* COUNTER + 1 * 

* * 
***************** 



****E2********* 

* RETURN VIA 

* ERR600 

* LINKING REG. 
■ ■ *********** 



*F2 

ON FIRST PASS, 
SELECTED CCW IS 
REPCCW. ON ALL 
FOLLOWING PASSES 
SELECTION IS 
REPCCW + 8. 



***************** 



*****C 3** ******** 

* * 

* SAVE INDEX TO * 

* CHANO AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



*****D3** ******** 

* * 

* TURN OFF * 

* QUEUED ERROR * 

* AND DEVICE * 

* BUSY BITS * 
***************** 



****B5********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



♦STORE SELECTED * 

* CCW IN * 

* REPCCB * 

* *F2 * 
***************** 



*****p 3 ********** 

* * 

* SET RIK IN * 

* ERBLOC TO * 

* X'OO' * 



*****G 3** ******** 

* * 

* LOAD * 

* CCB * 

* ADDRESS * 

* * 
***************** 



****H 3** ********* 



***************** 



*****j=4**** ****** 

* * 

* LOAD ADDRESS * 

* OF ERG CCW * 

* AT REPCCW+8 * 

* * 
***************** 



*****£ 5********** 

* * 

* RESTORE INDEX * 

* TO CHANQ AND * 

* CHAN SCHED * 

* FLAGS * 
***************** 



****G4** ******* 

* RETURN TO * 

* MAINLINE VIA * 

* LINK REG * 
*************** 



****G5********* 

* SVC 3 * 

* $$ANERRL * 

* CHART PG * 
*************** 



.* CHANNEL * 

QUEUE 

♦.OVERFLOW .* 



.X* 



*****j4********** 

* RESTORE INDEX * 

* TO * 
CHANQ AND * 

CHAN SCHED * 

* FLAGS * 
***************** 



***** 
*PN * 
* G4* 
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Chart PQ. $$ANERAQ - Phase 8 of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



****A1********* 

* * 

* $$ANERAQ * 

* * 
*************** 



*****B1********** 



***************** 



*****d********** 

* * 

* GET POINTER * 

* TO RETRY * 

* COUNTER * 

* * 
***************** 



PTO 

SWITCH 

ON 



*****B2********** 
*ERR696 PR* 
*_*_*_*_*_*-*_*_* 

* EXECUTE * 

* SENSE * 

* * 
***************** 



**** 

* * 

* 5 * 



.* BUS OUT *. 

*. EQUIP CHECK . 

♦INTERV REQD* 



**** 

* * 

* 2 * 

* * 
**** 



**E1******* 

* * 
TURN ON 

PTO 
SWITCH 

* * 
*********** 



E2 *. 

* * 

OVERRUN 



* MOVE LOGICAL * 

* UNIT NUMBER * 

* TO CCB * 

* * 
***************** 



*****Gi ********** 
*ERR700 PR* 
#-*-*-*-*-*-*-*_* 

* REPOSITION * 

* READ * 

* OPPOSITE * 
***************** 



*****H1 ********** 



* CHANGE TIE 


* 


* ADDRESS TO 


* 


* LOCAL SENSE 


* 


* AREA 


* 


***************** 


**** '. 




* * 




* A *. . . 




* * 




**** X 




ERR201 .*. 




Jl *. 




.* *. 




YES .* UNIT * 




...*. CHECK 


!* 


*. .* 




*. .* 




X *. .* 




*** *NO 




* 




1 * 




* 




*** 




X 




ERR250 .*. 




Kl *. 




.* *. 




.* CHANNEL * 


. YES 


*. DATA 


.*.. . 


*. CHECK .* 





*SET REPOSITION * 

* COMMAND TO * 

* NO-OP * 

* * 
***************** 



YES .* 40 
..X*. RETRIES 
*. EXCEEDED 



* INCREMENT * 

* RETRY * 

* COUNTER * 

* * 
***************** 



NOISE 
BIT 
ON 



PR * 

* E5* 

**** 



* INSERT X»20« * 
. ..X* ERROR ON * 

* RECOVERY CODE * 

* * 
***************** 



****P4* ******** 

* SVC 3 
*FETCH $$ANERRD 

* CHART PA 



***************** 



* 4 * 

* * 
**** 



* SET FORWARD * 

* SPACE RECORD * 

* IN REPCCW * 

* * 
***************** 



J3 *. *****j4********** 

.* *. * * 

.* RORCCW *. NO * SET BACKSPACE * 

*. READBACK .* X* RECORD IN * 

*. .* * REPCCW * 

*. .* * * 

*. .* ***************** 
*YES 

!x I 

x 

ERR210 .*. ERR220 

K3 *. *****«4********** 

.* *. * * 

NO .* TAPE *. YES * RESET * 

....*. CLEANING .* X* CLEANER *- 

*. NEEDED .* * SWITCH * 

*. .* * * 

*. .* ***************** 



****K5********* 

* SVC 3 
.X*FETCH $$ANERAL 

* CHART PU 
*************** 



X 

***** 

*PR * 

* Al* 

* * 
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Chart PR- $$ANERAQ - Phase 8 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 
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•.READ 




255 X 

* ENABLE * 
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» TRANSFER * 


< 
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X 
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♦ GET ORIGINAL * 

♦ COUNT FROM * 

♦ RORCCW • 


: 

:cw ***. 

\ .* 

JACK .* 



*A3*»*»* 
ERR696 



WRONG 
LENGTH 
RECORD 



El •. 

*'. RESIDUAL=0 



SET RORCCW 
COUNT TO 

COUNT MINUS 
RESIDUAL 



X 




ERR700 


X 




•#B3»»«**»»« 


• • 


*»»« 


»B4*»»*»»«*»« • 














LOAD SENSE 






LOAD 
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REPCCW 








• 


* 


ADDRESS 


* • 






* 


* 




* 










X 






.X 











SET BACKSPACE 

RECORD IN 

REPCCW 



CHANNEL 

QUEUE 
OVERFLO 



Gl ». 

* * 

COUNT=0 



»«H1»»»***» 

SET TAPE 

CLEANER 

INDICATOR 



•»»»F2»»»*»***»* 

SET RETRY * 

COUNT TO * 

X'FE' » 



SAVE INDEX TO 

CHANQ AND 

CHAN SCHED 

FLAGS 



TURN OFF 

QUEUED ERROR 

AND DEVICE 

BUSY BITS 



TRAFF 
BIT 
ON 






ERR720 

*#*»#E5**»»«*« 

* RESTORE 

* INDEX TO 

* CHANQ AND 

* CHAN SCHED 

* FLAGS 



RESTORE INDEX 

TO CHANQ AND 

CHAN SCHED 

FLAGS 



•«*H2**»***» 

SVC 3 

EXRTY EXIT 

CHART DD 



RETURN TO 

MAINLINE VIA 

LINK REG 



• SVC 3 
•FETCH SSANERAL 

• CHART PU 



**J3 •••***»♦»• 



298 DOS Supervisor and Related Transients 



Chart PS. $$ANERAK - Phase 9 of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



SET 

PTO 

SWITCHES 



MOVE LOGICAL 
UNIT NO. 
INTO CCB 



ERR300 X 




*»»»»G1»*»»**»*»* 


♦ERR700 


PT* 


» REPOSITION 


, 


» AND READ 




* OPPOSITE 


* 


*••• 












* 7 *.. 












»♦*• x 




ERR305 .*. 




HI *. 








.» UNIT 




♦ . CH 


ECK 


.» 



»»»#F2«*»»»***» 

• SVC 3 
•FETCH SSANERAN 

• CHART PL 



« SET UNIT 

• EXCEPTION BIT 

* IN USER CCB 


: 


NO 


/ 


UNIT 
CHECK 




• 


♦ NO 


ERR325 X 

»»**#C2*»*»»*»* 

» TURN OFF 
• COMMAND 
» CHAINING 


X 

C3***». 

EQUIPMENT* 
CHECK 


*X 




• NO 


ERR326 X 

»»#»#D2»***»****» 
•ERR700 PT» 

* SPACE OVER • 
» RECORD » 


X 

D3* **. 

BUS OUT 
CHECK 


X 

E2* "«. 

YES .*** UNIT *• 
...». CHECK 




• YES 

X 

E3***«. 

SPECIFIED* 

RETRIES 
EXCEEDED . 



SET RETRY 

COUNTER 

TO X'FF', 

RESET ROR BIT 



»#**G3»***»»* 

• SVC 3 

• EXTRY EXIT 

• CHART DD 



INSERT X«20« 

ERROR ON 

RECOVERY 

CODE 



• SVC 3 
•FETCH $$ANERRD 

• CHART PA 



SET 
CLEANER 
SWITCH 



•••*E4» 

• SVC 3 
♦FETCH $$ANERAL 

• CHART PU 



NO .♦ ERROR 
...♦. CCW A TIE 

•. COMMAND . 



NO .• EQUIP ♦. 
.». CHK BUS OUT .• 
». INTERV .* 
*.REQ«D.» 



• TAPE 

CLEANING 
•. NEEDED 



INCREMENT 

RETRY 

COUNTER 



GET POINTER 

TO ERROR 

CCW 



YES .* SPECIFIED 
...... RETRIES 

♦.EXCEEDED . 



CHANNEL 
DATA 
CHECK 



X 

5 • 



EXECUTE 
TIE READ 
OPPOSITE 



INCREMENT 

RETRY 

COUNTER 



YES .• IS 
...... ERROW CCW 

♦. A TIE . 
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Chaft PT. $$ANERAK .- Phase 9 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



*A1»»#*» 
ERR696 



#»#»A2******»* 
ERR700 



#A3»**»* 
ERR703 



LOAD 

SENSE CCW 

ADDRESS 



LOAD 
REPCCW 
ADDRESS 



LOAD 

TIE COMMAND 

ADDRESS 



CHANNEL 
QUEUE 
.OVERFLOW 



SAVE INDEX 
TO CHANQ 
AND CHAN 

SCHED FLGS 



*»«#»F2»**»**»*»« 

* TURN OFF * 

* QUEUED ERROR « 

* AND DEVICE » 
» BUSY BITS » 



SET RIK 
IN ERBLOC 
TO X'OO' 



YES .• TRAFFIC 
...». BIT 
*. ON 



*F3»»»* 
SVC 7 
WAIT 



RESTORE INDEX 

TO CHANQ 

AND CHAN 

SCHED FLGS 



RESTORE 

INDEX TO CHANQ 

AND CHAN 

SCHED FLGS 



INDEX X«20« 

ERROR ON 

RECOVERY 

CODE 



* SVC 3 
♦FETCH $$ANERRD 

* CHART PA 



LOAD 

CCB 

ADDRESS 



*»*«H3»*»*****» 

RETURN TO 

ADDRESS IN 

LINK REGISTER 



X 

« 1 
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Chart PU. $$ANERAL - Phase 10 of Tape ERP (Part 1 of 2) 
Refer to Chart 13, 



A5 ». 
*'. UNIT CHECK 



TURN ON 

PTO 
SWITCH 



PUT LOGICAL 
UNIT NO. 
INTO CCB 



• • TAPE ». 

CLEANER 

INDICATOR 

. = X'DD' . 



GET POINTER 

TO RETRY 

COUNTER 



INCREMENT 

RETRY COUNTER 

BY 10 MOD 4 



». NO 

SENSE BIT 

ON .» 



GET ORIGINAL 

ADDRESS FROM 

RORCCW 



REDUCE 
COUNT MINUS 

ONE 



SET POINTER 

TO TIE 

BYTES 



.READ FORWARD 



RORCCW 

A READ 

BACKWARD 



BUILD READ 

FORWARD CCW 

ADDRESS 



BUILD READ 

BACKWARD CCW' 

ADDRESS 



.». 


ERR270 X 


L *. 


*»***H2********** 




* STORE * 


40TH ». 


* COMMAND AND • 


RETRY .» 


» ADDRESS, AND » 
* RESTORE * 




». .«** 


* REGISTERS » 



RESET ROR BIT 



SVC 3 

EXRTY EXIT 

CHART DD 



* SVC 3 
•FETCH SSANERAK 
« CHART PS 



ERR805 

•••••F3»* 
♦ERR700 



* Fl» 

.ERR850 



SPECIFIED *. YES 
RETRIES .»..X 
.EXCEEDED .♦ 



INCREMENT 

RETRY 

COUNTER 









..X*DV 








* El* 










.«. 






ERR870 .*. 


G4 «. 






G5 ». 










PTO 




YES 




SWITCH 






...X*. INTERVENTION . 


ON 




♦.REQUIRED .* 












X ». .* 


• NO 




♦•»• »NO 

» 3 * '. 
**** 








X 



.» BACKSPACE *. YES 
•.RECORD COUNT .*.... 
•. =0 .» 



DECREMENT 

COUNT 

BY ONE 



EXECUTE 

SENSE 
OPERATION 



• • D5» 
ERR760 



* J5**»«***»» 

* INSERT X«20« 

* ERROR ON 

* RECOVERY CODE 
•FOR MSG WRITER 



• SVC 3 
•FETCH $$ANERRD 
» CHART PA 
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Chart PV. $$ANERAL - Phase 10 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



***** 

*PU * 
* H5* 



*****A1 ********** 

* * 

* ADJUST NUMBER * 

* OF FORWARD * 

* SPACES * 

* * 
***************** 



****A 3** ******* 

* * 

* ERR703 * 

* * 
*************** 



*«***B3«* ******** 

* * 

* LOAD * 

* SENSE CCW * 

* ADDRESS * 

* * 
***************** 



****A4********* 

* * 

* ERR700 * 

* * 
*************** 



*****B4********** 

* * 

* LOAD * 

* REPCCW * 

* ADDRESS * 

* * 
***************** 



* SET FORWARD * 

* SPACE RECORD * 

* IN REPCCW * 

* * 
***************** 



*****QX ********** 

* * 

* TURN OFF * 

* COMMAND * 

* CHAINING * 

* * 
***************** 

**** 



*PU * 

* F5* 
**** 

ERR825 X 

*****E1 ********** 

*ERR700 PV* 
*_*_*_*_*_*_*_*_* 

* FORWARD * 

* SPACE * 

* RECORD * 
***************** 



X 

***** 

*PU * 

* G4* 

* * 



.* FSR 
COUNT 
*. =0 



.* TAPE *. 
.* CLEANER *. YES 
. INDICATOR .*.... 
*.= X «FF' .* 



*****G2********** 

* * 

* DECREMENT * 
.X* FORWARD SPACE *. 

* RECORD BY * 

* ONE * 
***************** 



****J1********* 

* SVC 3 * 
♦FETCH $$ANERAK * 

* CHART PS * 
*************** 



****J2********* 

* SVC 3 * 
♦FETCH $$ANERAQ * 

* CHART PQ * 
*************** 



*****C3********** 

* * 

* STORE * 

* IN * 

* REPCCB * 

* * 
***************** 



*****D 3** ******** 

* * 

* GET * 

* PUB * 

* ADDRESS * 

* * 
***************** 



*****E3** ******** 

* SAVE INDEX * 

* TO CHANQ * 

* AND CHAN * 

* SCHED FLGS * 
***************** 



*****p 3** ******** 

* * 

* TURN OFF * 

* QUEUED ERROR * 

* AND DEVICE * 

* BUSY BITS * 
***************** 



*****G3** ******** 

* * 

* SET RIK IN * 

* ERBLOC TO ♦ 

* X'00« * 

* * 
***************** 



*****H3** ******** 

* * 

* LOAD * 

* CCB * 

* ADDRESS * 

* * 
***************** 



****j 3** ********* 



***************** 



**** 

* * 

* 1 * 

* * 
**** 



CHANNEL 

QUEUE 

.OVERFLOW 



*****05********** 

* * 

* RESTORE INDEX * 
X^ TO CHANQ ♦ 

* AND CHAN * 

* SCHED FLGS * 
***************** 



****F5********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



*****G4********** 

* * 

* RESTORE * 
♦INDEX TO CHANQ * 

* AND CHAN * 

* SCHED FLGS * 
***************** 



****H4** ******* 

* RETURN TO * 

* ADDRESS IN * 

* LINK REGISTER * 
*************** 
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Chart PW. $$ANERAR - Phase 11 of Tape ERP 
Refer to Chart 13. 



****A1 ********* 
* 
$$ANERAR * 
* 

*************** 



**Bi******* 
* GET RETRY * 

* COUNTER * 
AND DECREMENT 

* BY ONE * 



*****d ********** 

* INITIALIZE * 

* REGISTERS, * 

* SAVE PUB * 

* ADDR FOR * 

* SYSLOG * 
***************** 



*****□! ********** 

* GET POINTER * 

* TO BYTE * 

* OF TEBV * 

* * 
***************** 



* SET MESSAGE * 
*PRINTED SWITCH 

* = X'OF* * 
* * 

*********** 



* IS THIS 

PROGRAM IN 
♦BACKGROUND. 



*****Gl ********** 

* * 

* SET CONSOLE * 

* MESSAGE FOR * 

* FOREGROUND 1 * 

* * 
***************** 



IS THIS 
PROGRAM 
IN FGI 



***** j i ********** 

* SET CONSOLE * 

* MESSAGE FOR * 

* FOREGROUND 2 * 

* * 
***************** 



ERR700 

*****«! ********** 

* MOVE VOLUME * 

* SERIAL NUMBER * 

* TO OUTPUT * 

* BUFFER * 

* * 
***************** 



****#B2********** 

* MOVE * 

* CHANNEL * 
*AND UNIT NUMBER* 

* TO OUTPUT * 

* BUFFER * 
***************** 



****C 2 ********** 

CONVERT TEMP, * 

READ, + WRITE * 

COUNTERS TO * 

PRINTABLE * 

CHARACTERS * 

**************** 



**** 

* * 

* 2 * 



**B3******* 

CHANGE 

SVC 7 TO 

SVC 10 



MOVE TO 

OUTPUT 

BUFFER 



***************** 



*****E2********** 

* CONVERT * 

* SIO COUNT * 

* AND MOVE * 

* TO OUTPUT * 

* BUFFER * 
********** 



*****p 2 ********** 

*SET UP CONSOLE * 

* MESSAGE CCB * 

* AND CCW * 

* * 
***************** 



ERR702 . ; 



I/O *. 
ERROR ON 
. SYSLOG .* 



* WRITE 
CONSOLE 
* EVA MESSAGE * 

***************** 



**E3******* 



****E4** ******* 

* * 

* SVC 7 WAIT * 

* * 
*************** 



**P3******* 

* * 
TURN OFF 

RETRY 
OPTION 

* * 
*********** 



****Q3********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART NA * 
*************** 



CCB • 
DIASTER 

BIT ON 



**** 

* * 

* 2 * 



******** 

* * 

* SET FETCH FOR * 
♦MESSAGE WRITER * 

* PHASE * 

* * 
***************** 



**H4******* 

* * 

* SET ERROR 
MESSAGE CODE, 

* X'20' 

* * 
*********** 



TURN 

OFF RETRY 

OPTION 

* * 

*********** 



****K4*#******* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART NA * 
*************** 



****G5********* 

* SVC 3 
*FETCH SSANERRD 

* CHART PA 
*************** 
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Chart PX. $$ANERAS - Phase 12 of Tape ERP 
Refer to Chart 13, 



****A1 ********* 

* * 

* $$ANERAS * 

* * 
*************** 



*****B1 ********** 

* * 

* INITIALIZE * 

* REGISTERS AND * 

* GET RETRY * 

* COUNTER * 
***************** 



***************** 



ERR400 

*****B2********** 

* IF TEB'S, * 

* INCREMENT * 

* PERMANENT * 

* READ DATA * 

* CHECK * 
***************** 



*****C2********** 

* IF TEBV'S. * 

* INCREMENT * 

* PERMANENT * 

* READ DATA * 

* CHECK * 
***************** 



*****B4********** 



***************** 



*****D3** ******** 

* * 

* TURN OFF * 
X* RETRY AND * 

* IGNORE BITS * 

***************** 

'. **** 

* * 
. .X* 3 * 

* * 
**** 



* MOVE LOGICAL * 

* UNIT INTO * 

* REPCCB * 

* * 
***************** 



***** PI ********** 

* SET READ * 

* OPPOSITE * 

* RECOVERY * 

* (ROR) BIT ON * 

* * 
***************** 



.* USER *. NO 
♦.ACCEPTS DATA .*... 
*. CHECKS .* 



Gl *. 
* 

7 
TRACK 



DATA *. VE< 
CONVERTER .*... 
.MODE SET .* 



*POST READ DATA * 

* CHECK IN BYTE * 

* 2 OF USERS * 

* CCB * 
***************** 



*****G2********** 

* * 

* TURN ON PASS * 

* BACK BIT * 

* IN ERBLOC * 

* * 
***************** 



*****F 3** ******** 



*************** 



*****G3** ******** 



********** 



ORIGINAL 
CCW READ 
. FORWARD 



*****Q4********** 

* * 

* SET READ * 

* FORWARD IN * 

* RORCCW * 

* * 
***************** 



ERR110 X 

*****E4********** 
♦SET READ COUNT * 

* TO 1 AND GO * 

* TO READ * 

* OPPOSITE * 

* OPERATION * 
***************** 



****P4********* 

* SVC 3 * 
♦FETCH $$ANERAQ * 

* CHART PQ * 
*************** 



ERR105 .*. 

Jl *. 

.* CCW *. 

.♦SUPPRESSES ♦. 

♦.DATA TRANSFER. 

♦AND CHAIN-.* 

*. ING .♦ 

♦ . .♦ 

♦ NO 



*****K1 ********** 

♦ BUILD READ ♦ 

♦ OPPOSITE ♦ 

♦ RECOVERY CCW * 

♦ (RORCCW) * 

♦ * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



ERR402 

*****H2 ********** 

* RESET READ ♦ 

* OPPOSITE * 

* RECOVERY BIT ♦ 

* (TURN OFF) * 

* * 
***************** 

**** 



****j2********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART NA * 
*************** 
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Chart QA. $$ANERRG - Phase 1 of Data Cell ERP (Part 1 of 3) 
Refer to Chart 11. 



****A1 ********* 

* * 

* SSANERRG * 
*************** 



IJBERG20 X 

*****B1********* 

* SET SYSTEM 
*MASK TO ENABLE 

* INTERRUPTS ON 

* ALL CHANNELS 

**************** 



*****d*** ******* 
*LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOC, AND * 

* PUB ENTRY * 

* * 
***************** 



*****0X ********** 



CHANNEL 
DATA 
CHECK 



*****B3«* ****** 

* INSERT X'10' 

* EQUIP CHECK 

* MESSAGE 

* CODE 
* 
*************** 



*****Q4**** 

* INSERT X'28« * 

* CHANNEL DATA * 

* CHECK * 

* MESSAGE CODE * 

* * 
***************** 



ADD 1 

TO RETRY 

COUNTER 



***************** 



***** PI ********** 

* CALCULATE * 

* AND SAVE CCB * 

* ADDR-SAVE * 

* CSW STATUS * 

* • BYTES * 
***************** 



*****Gi***«* 

* GET SEEK ADDR 

* FROM 1ST CCW 

* AND SAVE IN 

* ERBLOC 
* 
**************** 



*****H1 ********** 

* * 

* SAVE USER'S * 

* DATA CELL * 

* ADDRESS * 

* * 
***************** 



B01 




.*. 
E3 * 
* 


NO 


.* 


SEEK 


. . .* 


* 


CHECK 


X 




*. .* 


***** 




*YE 


*QB * 






* A3* 




. 



*****G2********** 

* INSERT X«26« * 

* INVALID SEEK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



**H2******* 

* TURN OFF * 

* RETRY AND * 
*IGNORE BITS IN 

* ERBLOC FLAG * 

* BYTE * 
*********** 



.* MISSING 
ADDRESS 
*. MARKER 



****05********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



*****H3** ******** 

* * 

* INSERT X'22* * 

* BALLAST CELL * 

* ACCESSED * 

* MESSAGE CODE * 
***************** 



****G4********* 

* SVC 3 * 
.X*FETCH SSANERRJ * 

* CHART QF * 
*************** 



*QB-E4 
QC-E5 
***** 







* 






* 


**** 

* * 

* 2 * 

* * 
**** 


X 
**j3******* 

* TURN ON * 
♦INTERVENTION * 

* REO'D BIT IN * 
* ERBLOC FLG * 

* BYTE * 
*********** 




I X 








MSGWTR T 





****K3********* 

* SVC 3 * 
♦FETCH SSANERRM * 

* CHART RA * 
*************** 
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Chart QB. $$ANERRG - Phase 1 of Data Cell ERP 
Refer to Chart 11. 



(Part 2 of 3) 



***** 

*QA * 
* E3* 



****.* A 3** ******** 

* INSERT X'08' * 

* INTERVENTION * 

* REQ'D MESSAGE * 

* CODE * 

* * 
***************** 



*****C 3** ******** 

* INSERT X'09« * 

* BUSOUT * 

* MESSAGE * 

* CODE * 

* * 
***************** 



YES 
. ..* 

X 

**** 
* 
1 * 
* 

**** 


♦RETRY COUNT*. 

A MULTIPLE .♦ 
♦ . OF 16 .* 
*. .* 
*. .* 
♦ NO 


YES .♦ DATA 
...♦. CHECK 
*. 
♦ . 

*. .* 
♦ NO 


X 
***** 
*QA * 
* D5* 


X 
HOI .*. 



.* *. 
* ONE *. NO 

RETRY .*.... 
*. .* 

*. .* . 


****Q5********* 

* SVC 3 

* EXIGN 

* CHART DD 
*************** 


*. .* 


X 




*YES 


**** 

* * 

* 2 * 

* * 
**** 




X 

**54******* 

* TURN ON * 
INTERVENTION * 
REQ'D BIT IN * 

ERBLOC FLG * 

* BYTE * 
*********** 






**** 






* * 






X..* 1 * 
****** * 






*0A * **** 






* K3* 







.* MISSING 
ADDRESS 
*. MARKER 



***** 
*QC * 
* A3* 



H3 *. 
.* IS *. 
.* RETRY *. NO 
.GREATER THAN .*... 



J3 *. 

* IS 

RETRY 

COUNT 

ODD 



.* 



****K3** ******* 

* SVC 3 * 
♦FETCH SSANERRI * 

* CHART OE ♦ 
*************** 



*****H4********** 

* INSERT X'14' ♦ 

* OVERRUN * 

* MESSAGE * 

* CODE * 



******: 



****** 



.* IS ♦. 

.♦RETRY COUNTS. YES 
. MULTIPLE OF .*.... 
♦. 16 .♦ 



**** 

* * 

* 2 * 



***** 

♦ QA * 

* D5* 



306 DOS Supervisor and Related Transients 



Chart QC. $$ANERRG - Phase 1 of Data Cell ERP (Part 3 of 3) 
Refer to Chart 11. 



*****A3** ******** 

* INSERT X'18 1 * 

* COMMAND * 

* REJECT * 

* MESSAGE * 

* CODE * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



TRACK 
CONDITION 
. CHECK . 



*****D2********** 

* POST TRACK * 

* OVERRUN * 

* BIT IN CCB 

* BYTE 3, BIT 

*******: 



**C5******* 

* TURN OFF * 
RETRY AND 

IGNORE BITS 
IN ERBLOC 

* FLAG BYTE * 
*********** 



*X. 



3***04********* 

* SVC 3 * 
♦FETCH SSANERRH * 

* CHART QD * 
*************** 



N01 
YES 



*****£ 5********** 

* INSERT K*19' * 

* FILE * 

* PROTECT * 

* MESSAGE * 

* CODE * 



* 2 * 

* * 
**** 



*****F4********** 

* POST END * 

* OF CYLINDER * 

* IN CCB BYTE * 

* 3, BIT 2 * 

* * 
***************** 



*****G2********** 

* INSERT X«17' * 

* FILE PROTECT * 

* MESSAGE * 

* CODE * 

* * 
***************** 



**H2******* 

* TURN OFF * 
RETRY AND 

IGNORE BITS 
IN ERBLOC 

* FLAG BYTE * 
*********** 



.* CHANNEL * 


. YES 


*. CHAINING 


.* 




*. CHECK .* 






*. .* 






*. .* 




X 


*N0 




***** 
*QB * 
* H4* 

* * 
* 

G01 


X 






*****H3********** 




* INSERT X«19« 


* 




* UNOET. ERROR 


* 




* MESSAGE 


* 




* CODE 


* 





**************** 
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Chart QD. $$ANERRH - Phase 2 of Data Cell ERP 
Refer to Chart 11. 



* i * 

* * 
**** 



**** 
* * 

* 3 * 



****A1******** 
* $$ANERRH 
************** 



* SSM TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****d ********** 

* LOAD * 

* ADDRESS * 

* OF COMREGt * 

* ERBLOCt AND * 

* USER CCB *D2 * 
***************** 



*****D1 ********** 

* RELOCATE ADDR * 

* CONSTANTS IN * 
*CCW'S, MOVE 1ST* 

* CCW TO CCB * 

* * 
***************** 



RDRCD 

***** El ********** 

* SAVE CHAN. * 

* QUEUE POINTER * 

* AND CHAN * 

* SCHED FLAG * 



*****P1 ********** 

* CALC. LUBID, * 

* MOVE LUBID * 

* TO CCB * 

* AND SET * 

* RIK TO * 
***************** 



****Gl *********** 
SVC 15 
* READ * 
HOME 
ADDR * 

*************** 



*. UNRECOVERABLE. 

*. I/O .* 

♦ERRORS.* 



* 2 



**** 
MSGWTR X 

*****B 2 ********** 

* PREPARE X«20' * 

* ERROR ON * 

* RECOVERY * 

* MESSAGE * 

* CODE * 
***************** 



****C2********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART NA * 
*************** 



*D2 
THIS CCB WAS SAVED 
IN PHASE 1 
($$ANERRG). 



YES .* 

..X*. CHANNEL 
*. BUSY 



*****B5********** 



IOERR 

*****j2********** 

* RESTORE CHANQ * 

* POINTER, * 

* RESTORE CHAN * 

* SCHEDULE FLAG * 

* * 
***************** 



*****D 3** ****** 
* 

* ADD 1 

* TO HEAD 

* NUMBER 

*************** 



*****g 3** ******** 

* * 

* COMPUTE * 

* SEEK * 

* ADDRESS * 

* * 
***************** 



.* FILE *. YES 
♦PROTECT OPTION.*... 
*. IN USE .* 



**G3******* 

* SET FILE 
MASK COMMAND 

* TO NOP 

* * 

*********** 



*****D4«* ******* 

* POST END 

* OF CYLINDER 

* BIT IN CCB 

* BYTE 3, BIT 2 



****** 



'*** 



****E4********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



*********** 



*****C 5 ********** 

* LOAD ADDRESS * 

* OF CHKt CSW * 

* ROUTINE * 

* (EXWHY) * 

***************** 



NO .* SYSTEM * 
...♦.HAVE STORAGE 
*. PROTECT .* 



*****£ 5** ******** 

* MOVE CHAN AND * 
♦UNIT TO IOOPSW * 

* AND GET * 

* STORAGE * 

* PROTECT KEY * 
***************** 



****F5****** 

* SVC 3 

* EXWHY 

* CHART DD 
************ 



*****H 3** ******** 

* MOVE SEEK CCW * 

* TO CCB AND * 

* SSM TO * 

* DISABLE * 

* INTERRUPTS * 
***************** 



***** j 3** ******** 

* GET CHANNEL * 

* AND UNIT OF * 

* ERRONEOUS * 

* DEVICE * 

* * 
***************** 



RSTQPT 

****** i ********** 

* RESTORE CHANO * 

* POINTER, * 

* RESTORE CHAN * 

* SCHEDULE FLAG * 
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Chart QE. $$ANERRI - Phase 3 of Data Cell ERP 
Refer to Chart 11. 



****A1********* 

* * 

* $$ANERRI * 

* * 
*************** 



IJBERI20 

*****Bl ********** 

* SSM TO ENABLE * 

* INTERRUPTS * 

* ON ALL * 

* CHANNELS * 



********** 



***** 



RETRY-A 
MULTIPLE 
. OF 32 



*****g 3** ******** 

* SET UP SEEK * 

* ADDRESS IN * 

* 1ST SEEK CCW * 

* AND NO-OP 2ND * 

* SEEK CCW * 
***************** 



***** CI ********** 

* * 
*L0AD ADDRESSES * 

* OF COMREG * 

* AND ERBLOC * 

* * 
***************** 



STRIP 

NUMBER 
00 



X 


E062 


X 


*****D1 ********** 


*****02***** 


* RELOCATE * 


* 




* CONSTANTS IN * 


* 


ADD 1 


* CCWS AND SET * 


* 


TO STRIP 


* RIK TO * 


* 


NUMBER 



**************** 



*********** 



*****D3** ******** 

* * 

* SUBTRACT 1 * 

* FROM STRIP * 

* NUMBER * 

* * 
***************** 



******** 



_*-*_*_** 



READ 
* HOME 
ADDR 
************* 



E050 

***** PI ********** 

* MOVE * 

* HOME ADDRESS * 

* TO ERBLOC * 

* SEEK * 

* ADDRESS * 
***************** 



*****H1 ********** 

* INITIALIZE * 

* INTERNAL * 

* RETRY * 

* COUNTER * 

* WITH A 9 * 
***************** 



**** 
51 X 
*****jl ********** 

* SET UP * 

* SEEK ADDRESSES * 

* 1 AND 2 IN * 

* SEEK CCW'S * 

* * 
***************** 



8TH *. 
INTERNAL 
. RETRY .♦ 



****£ 3** ******** 

INSERT NEW * 

STRIP NO. * 

IN SEEK * 

ADDR IN * 

CCW * 



******** 



***************** 



****G3 ********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 



***A4********* 

IORTN 
************** 



IORTN X 

*****C4**** ****** 

* SAVE CHANQ * 

* POINTER AND * 
♦CHAN. SCHEDULER* 

* FLAGS * 

* * 
***************** 



***** 04**** ****** 

* CALCULATE * 

* LUBID AND * 

* STORE IN * 

* CCB * 

* * 
***************** 



****E4********* 
SVC 15 
* EXECUTE 
CHANNEL 
* PROGRAM * 

***************** 



CHANNEL *. YES 
QUEUE .*.... 
FULL .* 



♦ NO 
**** 
* 
3 *... 



IOERR 

*****G 5** ******** 

* RESTORE CHANQ * 

* POINTER AND * 

* CHAN SCHEDULER * 

* FLAGS * 

* * 
***************** 



****H2********* 

* SVC 3 * 
♦FETCH $$ANERRK * 

* CHART QH * 
*************** 



5050 

*****j2********** 

* SET UP * 

* CCW IN CCB * 
..X* FOR NEXT * 

* SEEK * 

* * 
***************** 



****K 2 *********** 
IORTN QE 
**_*_*_ *_*_*„*_** 
SEEK TO 1ST 
AND LAST * 
TRKS OF STRIP 
«c************** 



****H3********* 

* SVC 7 

* WAIT 
* 

*************** 



RESTORE 

CHANQ 
POINTER 



* 3 * 


RSTFLG X 


MSGWTR X 


* * 


***** j 4** ******** 


*****j5********** 


**** 


* RESTORE * 


* INSERT X'20' * 




* CHANNEL * 


* ERROR ON * 




* SCHEDULER * 


* RECOVERY * 




* FLAGS * 


* MESSAGE * 




* * 


* CODE * 




***************** 


***************** 



****« 3** ******* 

* * 

* RETURN * 

* * 
*************** 



NO .* *. 

...♦.UNRECOVERABLE. 

*.I/0 ERROR.* 



****«5********* 

* SVC 3 * 
♦FETCH $$ANERRM * 

♦ CHART NA * 
*************** 
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Chart QF. $$ANERRJ - Phase 4 of Data Cell ERP (Part 1 of 2) 
Refer to Chart 11. 



♦#A1»»«*»» 
SSANERRJ 



.» COMPARE * 
*. RETRY COUNT 
• . WITH 3 .» 



SSM TO ENABLE 
INTERRUPTS ON 
ALL CHANNELS 



»*#*»B2**»«*»«»»» 
» INSERT X«21' * 
•NO-RECORD-FOUND» 
« AND MISSING • 
•ADDRESS MARKER » 
* MESSAGE CODE * 



•LOAD ADDRESSES 

• OF COMREG, 

• ERBLOC, AND 

• USER CCB 



♦♦Dl*»*»«»* 

RELOCATE 

ADDRESS 

CONSTANTS 

IN 
CCWS 



♦♦•♦D2»»»«»»» 

INSERT X« 15* 

SEEK CHECK 

CODE FOR 

MESSAGE 

WRITER 



MOVE ADDRESS 

OF SEEK CCW 

TO CCW 



SEEK AND 
READ HA 
TRACK 



MISSING 
ADDRESS 
MARKER 



»»«F2««**»*«« 

SET ADDRESS 

AND COMMAND 

CODE FOR 

SEEK IN 

CCB 



*»»»#G1*»»*»»»»»* 


•»**G2******** 


* MOVE ADDRESS • 


IORTN Q 


• OF SEEK CCW • 




•TO CCB, INSERT • 


PERFORM 


♦ COMMAND CODE • 


• SEEK 


•TO READ REC. • 





SEEK AND 

READ HOME 

ADDRESS 



* CHANGE CCIIH » 

• IN ADDRESS • 
♦FOR SECOND SEEK» 



»»#*«E3 *•••*••• 

• SET THE SEEK 

• ADDRESS IN 

• SEEK CCW 



• INSERT X'23' 

• BLANK STRIP 

• CODE 

• FOR 
•MESSAGE WRITER 



SEEK AND 

READ HA 

TRACK 19 



»»«*A4»*»»**»*«* 

MOVE ADDRESS ♦ 
OF RELEASE • 
CCW TO CCB * 



BALMSG X 

•**»*B5**»«*«*«* 

* INSERT X'22* 

* BALLAST CODE 

* AND INTERV 
♦REQD CODES FOR 
♦MESSAGE WRITER 



•MSGWTR 

•♦•♦»C5»«»*^»»»» 

• INSERT X'20' 

• ERROR-ON- 
...X» RECOVERY CODE 

• FOR MSG 

• WRITER 



•♦D4»^»»»» 

SVC 3 

ENTRY 

CHART DD 



• USER * 

WANTS RETRY 
♦.ON N-R-F .• 



• SVC 3 
•FETCH $$ANERRM 

• CHART NA 



«»F5»»«**» 

• POST 

• NO-RECORD- 
• FOUND BIT * 
•CCB, BYTE 

• BIT 4 



IN 



••G4««**«** 


♦ POST 


NO- 




RECORD- 


-FOU^D 


BIT 


IN 




CCB, BYTE 


'4 


• BIT 4 





♦•G5»»»*»« 

SVC 3 

EXIGN 

CHART DD 



♦♦♦♦#H4»»»»«»»*» 

• INSERT X«36« 

• NO-RECORD- 

• FOUND CODE 

• FOR 
•MESSAGE WRITER 



YES .• •. 

UNRECOVERABLE. 

•.I/O ERROR. • 



Kl *. 

.»CCH OF «. 
.* HOME AD- «. YE 
•.DRESS EQUALS .*.. 
. *.SEEK ADDR.» 



SET 
SUBCELL 
TO ZERO 



SEEK 

TO 

SUBCELL 



THIS CCB WAS SAVED 
IN PHASE 1 
(SSANERRG). 
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Chart QG. $$ANERRJ - Phase 4 of Data Cell ERP (Part 2 of 2) 
Refer to Chart 11. 



****A3********* 

* * 

* IORTN * 

* * 
*************** 



IORTN 

*****q 3** ******** 

* SAVE CHANO * 

* POINTER AND * 
♦CHAN SCHEDULER * 

* FLAGS * 

***************** 



*****C 3** ******** 

* CALCULATE * 

* LUBID AND * 

* STORE IN CCB, * 

* SET RIK TO * 



****D3** ********* 
SVC 15 
* EXECUTE * 
CHANNEL 
* PROGRAM * 

***************** 



* 1 ♦ ... 

* * . 
**** X 

.*. 
F3 



****G2********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



* RESTORE * 

* CHANO * 

* POINTER * 

* * 
***************** 



RSTFLG 

*****H 3** ******** 

* RESTORE * 

* CHAN * 

* SCHEDULER * 

* FLAGS * 

* * 
***************** 



IOERR 

*****G4********** 

* RESTORE * 

* CHANQ * 

* POINTER AND * 

* CHAN SCHEDULER * 

* FLAGS * 
***************** 



.UNRECOVERABLE. 

*. I/O .* 

♦.ERROR.* 



****K2********* 

* RETURN ♦ 

* TO LINK * 

* ADDR +4 ♦ 
*************** 



****K3** ******* 

* RETURN ♦ 

* TO LINK ♦ 

* ADDRESS ♦ 
*************** 
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Chart QH. $$ANERRK - Phase 5 of Data Cell ERP 
Refer to Chart 11. 



* * 

* SSANERRK * 

* * 
*************** 



IJBERK20 

*****B2********** 

* SSM TO * 

* ENABLE * 

* INTERRUPTS * 

* ON ALL * 

* CHANNELS * 
***************** 



*****C2********** 
♦LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOC. AND * 

* USER CCB * 

* *C3 * 
***************** 



*****D2********** 

* INSERT X«13« * 

* MISSING * 
♦ADDRESS MARKER * 

* MESSAGE * 

* CODE * 



*C3 
THIS CCB WAS SAVED 
IN PHASE 1 ($$ANERRG). 







E2 * 






* 


Nn 


.♦ 


DATA 


..* 


"* 


CHECK 



.♦ USER *. YES 
.REQUEST DATA ...... 

*. CHECK .* 



**P3******* 

* TURN ON 
PASS BACK 

BIT IN 
ERQUE 

* FLAG 
*********** 



*****G2**** ****** 

* INSERT X'll' * 

* DATA CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



DATA 
CHECK ON 
. COUNT 



*****j2********** 

* INSERT X«16» * 

* DATA CHECK * 

* ON COUNT * 

* MESSAGE * 

* CODE * 
***************** 



**C4******* 

* POST DATA * 
CHECK BIT 

IN CCB 
BYTE 3 

* BIT 3 * 
*********** 



D4 *. 

.* LAST * 

CCW A 

WRITE 

. COMMAND 



.* 



.♦ USER ♦ . 
.* WANTS *. NO 
. VERIFY AND .*... 
♦ READ ERRORS 



**F4******* 

♦ TURN ON 
PASS BACK 

BIT IN 
ERQUE 

* FLAG 
*********** 



SLI 
AND SKIP 

. BIT ON 



**H4******* 

♦ TURN ON * 
"■VERIFY ERROR * 

♦ BIT IN CCB ♦ 
♦ BYTE 3, ♦ 

♦ BIT 6 ♦ 
*********** 



*****J4********** 

♦ INSERT X'12' ♦ 

♦ VERIFY ERROR ♦ 

♦ MESSAGE ♦ 

♦ CODE * 

♦ * 
***************** 



****K4********* 

♦ SVC 3 ♦ 
♦FETCH $$ANERRM ♦ 

♦ CHART NA ♦ 
*************** 
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Chart RA. $$ANERAB - Phase 1 of ERP Message Writer 
Refer to Chart 1«*. 



••»»*B1* 

•LOAD ADDRESSES 
* OF COMREG, 
» ERBLOC AND 
» PUB ENTRY FOR 
» ERROR DEVICE 



.» HAS ». NO 
. DEVICE BEEN 

•.DEQUEUED .• 



•*D1*»**»»» 
* TURN ON • 

• NO CCB • 
AVAILABLE BIT 

• 6 IN ERROR • 
•QUEUE ENTRY« 



ADD ZONE TO 

MESSAGE NBR 

AND CONVERT 

TO BINARY 



DETERMINE 

ENTRY IN 

CHANNEL QUEUE 

AND GET CCB 

ADDRESS 




•••»C3*»»»«»»» 

CALCULATE 

Rl = MESSAGE 

LENGTH TIMES 

MESSAGE 

NUMBER 



•••#D3** # ****** 

LOAD BASE 

ADDRESS OF 

MESSAGE TABLE 

INTO R2 



ADD Rl TO 

R2 TO GET 

ENTRY INTO 

MESSAGE TABLE 



♦ EA 
SEE FIGURE 46 
FOR A LIST OF 
MESSAGES IN THE 
MESSAGE TABLE. 



SET SYSTEM 

MASK TO 

ENABLE 

INTERRUPTS ON 

ALL CHANNELS 



• SVC 3 
•FETCH SSANERRN 

* CHART RB 



♦ ••(-^•••••••» 

STORE CCB 
ADDRESS FOR 

USE IN 
SUBSEQUENT 
PHASES »H2 



IF NO CCB IS AVAILABLE, 
THE STORED ADDRESS WILL 
BE ALL ZEROS. 



X 
* 1 
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Chart RB. $$ANERRN - Phase 2 of ERP Message 
Refer to Chart 14. 



Writer 



**A1********* 

SSANERRN * 

************* 



IJBERN33 X 

*****B1 ********** 

* SET SYSTEM * 
*MASK TO ENABLE * 

* INTERRUPTS * 

* ON ALL * 

* CHANNELS * 
***************** 



*****Ci ********* 

* LOAD ADDR 

* OF COMREG, 

* ERBLOC, 

* AND PUB ENTRY 

* FOR DEVICE 
**************** 



*****/\2********** 

* MOVE CHAR C * 

* TO TARG1 * 

* MEANING * 

* CANCEL * 

* * 
***************** 



.* ALLOW 
. RETRY AND 
*. IGNORE . 



*****£ 2 ********** 
*MOVE CHAR D FOR* 

* OPTR DECISION * 
*T0 ACTION FIELD* 

* BLANK OUT * 

* TARG1 FIELD * 



.*. 

Dl *. 

* * 

DASD 

*. .* 
*. .* 
*YES 



**E1****** 

* TURN 
ON DASD 

BIT 4 IN 
ERQUE 

* FLAG 
********** 



**£2********** 

MOVE CHAR I * 

INTO TARG1 * 

FLD TO * 

INDICATE * 

IGNORE * 

■ it******** 



* ACCEPT * 
UNRECOV I/O 

*. ERROR .* 



*****B 3 ********** 

* MOVE CHAR I * 
*FOR INFORMATION* 
*INT0 ACTION FLD* 
*AND I TO TARG1 * 

* FOR IGNORE * 
***************** 



*****C 3 ********** 

* MOVE BLANK * 
*INTO TARG2 AREA* 

* CLEARING R * 

* PREVIOUSLY * 

* THERE * 
***************** 



* SET FTCHNM 

* FOR $$ANERAE 

* FETCH 

**************** 



*#**E3 ********* 

* SVC 3 
*FETCH $$ANERAE 

* CHART RC 



**** 

* * 

* 6 * 



.YES .* I/O 
" .*. PROGRAM 
*. CHECK 



.YES .* I/O 
.X..*. PROTECTION 
*. CHECK . 



ATYPE X 

*****B5********** 

* SET SYSTEM * 

* MASK TO * 

* PREVENT ALL * 

* INTERRUPTS * 

* * 
***************** 



*****C5**«* ****** 

* MOVE CHAR A * 

* INTO ACTION * 
*FIELD AND BLANK* 
*INTO TARG1 AND * 

* TARG2 FIELDS * 
***************** 



*****E5 ********** 

* MOVE X«40' * 

* INTO FIELD * 

* NAMED EXTOPT * 

* TO USE AS AN * 

* OPTION FLAG * 
***************** 



.* OPERATOR *. YES 
*. INTERVENTION .*.... 
♦.REQUIRED .* 



* 5 * 

* * 
**** 



*****G1 ********** 

* MOVE CHAR I * 

* INTO ACTION * 
*FIELD. I MEANS * 

* INFORMATION * 

* MSG * 
***************** 



***** j i ********** 



***************** 



* RETURN 

CONTROL TO 
*. USER 



*****G2********** 

* MOVE CHAR R * 

* FOR RETRY * 

* INTO TARG2 * 

* FIELD * 

* * 
***************** 



*****P5********** 



**************** 



****G 5 ********* 

* SVC 3 * 
*FETCH $$ANERRS * 

* CHART RK * 
*************** 



X 


TSTCCB X 


*****Hl ********** 


*****H2******** 


* MOVE CHAR I * 


* LOAD CCB 


* TO TARG1 * 


* ADDR STORED 


* FIELD * 


* FROM PREVIOUS 


* I SIGNIFIES * 


* PHASE 


* IGNORE * 


* 


***************** 


*************** 



IS *. YES 
CCB ADDR .*... 
. REG=0 .* 



*****K2********** 

* TURN ON * 
*BIT 2 IN BYTE 2* 
*OF CCB MEANING * 

* UNRECOVERABLE * 

* I/O ERROR * 
***************** 



OPFLAG X 

*****H4********* 
*TURN ON BIT IN 
*CHAN SCHED FLG 

* OF PUB ENTRY 

* TO SHOW OPTR 

* INTERV NEEDED 
**************** 



*****j 4**** ****** 

* SET SYSTEM * 
*MASK TO ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



***# 

* * 

* 4 * 

* * 
**** 
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Chart RC. 



$$ANERAE - Phase 2A 
Refer to Chart 14. 



of ERP Message Writer 



****Al ********* 
* 

* $$ANERAE 
* 

*************** 



IJBEAE33 
PHASE2A X 

*****B1 ********** 

* * 

* ENABLE * 

* ROUTINE FOR * 

* INTERRUPTS * 

* * 
***************** 



*****Cl** ******** 

* POINT REG * 

* ERBLK TO ERR * 

* RECOV BLOCK, * 

* POINT WORKREG * 

* TO PUB * 
***************** 



***Di ********** 

* 

SET FETCH * 

NAME TO * 

$$ANERRR * 

*************** 



*****A2********** 
♦GET TASK OWNER-* 
♦SHIP FROM 'LID 1 * 

* IN COMREG * 

* EXTENSION * 

* INTO WKRG1 * 
***************** 

#*** 



NOLTA X 

***** A3** ******** 

* CALC ADDR * 

* OF REQID * 

* ENTRY, GET * 

* PROTECT KEY * 

* INTO WKRG1 * 
***************** 



**** 
STORKE X 

*****B2********** 

* * 

* STORE KEY * 

* FROM WKRG1 * 

* AT -PROTKEY- * 

* * 
***************** 



*****C2********** 
♦POINT WKRG1 TO * 

* PIB TABLE * 

* ENTRY, MOVE * 

* PREFIX TO * 

* PRINT LINE * 
***************** 



* SET FETCH * 

* NAME TO * 

* $$ANERRO * 

* * 
***************** 



B3 ♦ . 

.* *. 

AP 

SUPPORTED 



*****C 3 ********* 

* CALC ENTRY 

* IN TASK 

* REQUESTOR ID 

* TABLE 

* (TSKIDTAB) 
**************** 



*****0 3** ******** 

* * 

* GET PROTECT * 

* KEY INTO * 

* WKRGL * 

* * 
***************** 



***** pi ********** 



***************** 



WAS 

CANCEL IN 

LTA 



IS THIS *. YES 
SUPERVISOR .*..X 
. ERP CCB .♦ 



*****jl********** 
♦GET PROTECT KEY* 

* FROM LTK IN * 

* BG COMREG, SET * 

* LTA SWITCH * 

* = X'01' * 
***************** 



SET FETCH * 

NAME TO * 

$$ANERRR * 

* 

************** 



*****H2********** 
*SET FLAG=X«FF« * 
*NO MSG PRINTED * 

* SET FETCH * 

* NAME TO * 

* $$ANERRS * 
***************** 



****j2********* 

* SVC 3 * 

* FETCH THE * 

* PHASE * 
*************** 



*****F 3** ******** 

* MOVE MSG NO., * 

* ACTION CODE, * 

* TARGET CODES, * 

* AND MSG TO * 

* PRINT LINE * 
***************** 



*****G 3** ******** 

* * 

* SAVE PREFIX * 

* CODE AT * 

* -PREFIX- * 

* * 
***************** 



****H 3** ******* 

* SVC 3 * 
♦FETCH $$ANERRO * 

* CHART RD * 
*************** 



RESET 

***** j 3** ******** 
♦SET ACTION CODE* 
♦FOR INFORMATION* 

♦ (= • I ') , SET ♦X 

♦ TARGET BYTES ♦ 

♦ = • I • * 
***************** 



.♦DEVICE ♦. 
.♦ USED BY 
♦. SUPERVISOR 



.♦DEVICE ♦. 
SHARED BY ♦ 
PARTITIONS 



*****C4********** 

* MOVE 'BG* TO ♦ 

* PRINT LINE, ♦ 

* MOVE X'10' ♦ 

* (BG KEY) TO ♦ 

* -PROTKEY- * 
***************** 



D4 *. 
.♦DEVICE ♦. 
YES .♦ASSIGNED TO*. 
...*. BACKGROUND . 



*****E4*** ******* 

* MOVE «F1' TO * 

* PRINT LINE, * 

* MOVE X«30' * 

* (Fl KEY) TO * 

* -PROTKEY- * 
***************** 



.♦DEVICE *. 
.♦ASSIGNED TO*. 
.FOREGROUND 1 .♦ 



*****G4*« ******** 

* MOVE «F2' TO * 

* PRINT LINE, * 

* MOVE X'20" ♦ 

* (F2 KEY) TO * 

* -PROTKEY- * 
***************** 



FIRST TIME THROUGH 
LOOP1, CONSIDER 
NEXT TO BE FIRST. 



*****G5********** 
*SET REGS PIB1, * 

* PIB2 FOR PTRS * 

* TO SUBTASK * 

* PIBS AND PIB * 

* EXTENSIONS * 
***************** 

**** 



LOOP1 X 

*****H5********** 
♦POINT PIB1 AND ♦ 

* PIB2 TO NEXT * 
*SUBTASK PIB AND* 

* PIB EXTENSION * 

* *D5 * 
***************** 



IS IT *. 
IN SAME 
.PARTITION.* 



YES .* ALL * 
...*. SUBTASK PIBS 
*. CHECKED .* 



NO .* ALL * 
.X....*. SUBTASK PIBS 
*. CHECKED .* 
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A2 *. 






***** A 3** ******** 








****Ai ********* 


.* *. 






* TRANSLATE * 








* * 


.*DEVICE NOT * 


. YES 


* SENSE BYTE * 








* $$ANERRO * 


*. OPERATIONAL 


.* 




* INTO * 








* * 


*. MESSAGE .* 






* PRINTABLE * 








*************** 








* CHARACTERS * 






**** 




*. .* 




X 


***************** 






* * 






*N0 




**** 

* * 

* 5 * 

* * 
**** 








* 2 * 

* * 
**** 


IJBER035 X 


X 






X 


NOCCE 




X 


***#*B1********** 


*****B 2 ******** 


** 




*****B3 ********** 


** 


***B4** ******** 


* SET SYSTEM * 


* ZERO THE 






* UNPACK CCB * 




LOAD 11 INTO * 


*MASK TO ENABLE * 


* COMM CODE 


* 




* ADDRESS INTO * 


* 


Rl 


POINT TO * 


* INTERRUPTS * 


* OF THE CSW 


* 




♦PRINTLINE AREA,* 




XXX 


IN TABLE * 


* ON ALL * 


* IN PRINT 


* 




* TRANSLATE TO * 


* 


OF 


SYMBOLIC * 


* CHANNELS * 


* LINE AREA 


* 




*PRINTABLE CHARS* 






UNITS * 


******** 


it******** 


*************** 






***************** 


** 


*************** 



*****d ********** 

* * 

* LOAD ADDRS * 

* OF COMREG * 

* AND ERBLOC * 

* * 
***************** 



SWITCH 

*****£)! ********** 

* SWITCH DATA * 

* BETWEEN 2 * 

* LOCATIONS- * 

* PLINE AND * 

* KCCB * 
***************** 



*****E1 ********** 

* LD ADDR OF * 

* PUB ENTRY * 

* FOR DEVICE * 

* IN ERROR * 

* * 
***************** 



*****p ^** ******** 

* LD ADDR OF * 

* CCB SAVED * 

* FROM PREV * 

* PHASE * 

* * 
***************** 



CCB 

ADDRESS 

REG = 



HI *. 
* HAS * 

DEVICE 

A SYSTEM 

LUB 



*****jl ********** 

* CONVERT TO DEC* 
*UNPACK THE UNIT* 

* NO. OF DEVICE * 
*INTO PRINT LINE* 

* AREA * 
***************** 

**** 



**** 
U X 
*****«! ********** 
♦UNPACK CHAN AND* 

* UNIT AND MAKE * 

* PRINTABLE * 

* CHAR IN PRINT * 

* LINE AREA ♦ 
***************** 



**** 

* * 

* 2 * 



* IS 
ERRQUE 
CCW IN 
CORE 



D2 *. 

.♦ IS * 

ERRQUE 

CCW LESS 

. THAN 8 

*. .* 

♦ . .♦ 



*****E2 ********** 

* DETERMINE * 

* ADDRESS * 

* OF LAST * 

* CCW USED * 

* * 
***************** 



*****F2********** 

* SET CMND CODE * 

* OF LAST USED * 

* CCW AND PLACE ♦ 

* IN CCW PRINT * 

* LINE AREA * 
***************** 



X... 



LACSW X 

*****G 2** ******** 

* LD ADDR * 

* OF CSW * 

* FROM ERROUE * 

* ENTRY * 

* * 
***************** 



D3 *. 
* WAS *. 

ERROR ♦. YES 
A PROGRAM .♦..X 

CHECK .♦ 



E3 *. 
.* CCB *. 

ADDRESS *. NO 
AVAILABLE .*... 

FOR .♦ 
*. DEV .* 



*****H2* 

* UNPK KEY * 

* ADDRESS AND * 

* CNT FLDS OF * 
♦CSW INTO PRINT * 

* LINE AREA * 
************ 



*****J2********** 

* TRANSLATE ♦ 

* ASSEMBLED ♦ 

* CSW INTO * 

* PRINTABLE * 

* CHARACTERS ♦ 
***************** 

**** 



♦ YES 



*****p 3 ********** 

♦ MOVE CCW ADDR ♦ 

♦ FROM THE CCB ♦ 

♦ INTO SAVE * 

♦ AREA ♦ 

♦ * 
***************** 



SW X 

*****q 3** ******** 

* GET SEEK ADDR * 
*FROM CCW, UNPK * 

* 1ST TWO BYTES * 
♦(BB) INTO PRINT* 

* LINE AREA * 
***************** 



UNPCH 

*****H3** ******** 

* UNPK CCHH * 

* FROM SEEK * 
♦ADDR AND TRANS * 

* ADDRESS TO ♦ 

* PRINT CHARS * 
***************** 



* 3 



**** 
SYCLAS X 

*****C4** ******** 

♦ MPY SYM UNIT ♦ 

♦ NO. BY 3 TO * 

* GET NAME TO * 
*SYM UNIT IDENT * 

* TABLE *C5 * 
***************** 



*****D4** ******* 

* LD TABLE ADDR 

* INTO R2 ADD 

* Rl DISPLACE 

* TO GET PROPER 

* SYMBOLIC NAME 
**************** 



*****E4** ******** 

* MOVE SYM NAME * 

* OF SYSTEM DEV * 

* FROM TABLE * 

* TO PRINT * 

* LINE AREA * 
***************** 



* 4 * 

* * 
**** 



*C5 
IN CASE OF NO CCB 
AVAILABLE, THIS WILL 
BE «XXX« AT END OF 
TABLE. 



**** 

* * 

* 7 * 

* * 

**** 



****j3********* 

♦ SVC 3 ♦ 
*FETCH $$ANERRP * 

* CHART RE * 
*************** 



* 5 



**** 
UNPKSEN X 

****** 2 ********** 
♦GET SENSE BYTE ♦ 
♦DATA FROM ERROR* 
♦QUEUE AND UNPK * 
* DATA INTO * 
♦PRINT LINE AREA* 
***************** 
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* * 

* $$ANERRP * 

* * 
*************** 



IJBERP33 

*****B1********** 

* SET SYSTEM * 

* MASK TO * 

* ENABLE * 

* INTERRUPTS * 

* ON ALL CHANNELS* 
***************** 



*****d*** ******* 

* LOAD ADDR OF * 
♦COMREG, ERBLOCt* 

* AND START OF * 
♦PRINTLINE AREA * 

* (PLINE) * 
***************** 



.* *. YES 

♦.MULTIPROGRAM .*... 
*. SYSTEM .* 



*****£!********** 

*ADD 3 TO START * 

* ADDR OF PLINE * 

* TO BYPASS * 
♦PREFIX, REDUCE * 
*CCW BYTE COUNT * 
***************** 



.*. 
B3 *. 
.* ERROR * 
REQUIRE 
OPERATOR 
. INTERV 
*. .* 



X.... 



ACTIONA 

*****A4** ******** 

* GET ADDRESS * 

* OF PUB * 
..X* ENTRY FROM * 

* ERBLOC * 

* * 
***************** 



.* IS IT *. NO 
♦.INTERVENTION .*... 
♦.REQUIRED .* 



COUNTRG 

*****C 3 ********** 

* LOAD SYSLOG * 

* ERROR RETRY * 

* COUNTER * 

* WITH 3 * 

* * 
***************** 



RELOC 

*****P1 ********** 

* STORE * 

* STARTING * 

* ADDRESS IN * 

* PRINT CCW * 

* * 
***************** 



*****Gl********** 

* MOVE INDENT ♦ 

* ADDRESS TO * 

* CCW'S. MOVE * 

* FIRST CCW * 

* ADDR TO CCB * 
***************** 



*****Hl ********** 

* LOAD PUB * 

* AND LUB * 

* TABLE ♦ 

* ADDRESSES * 

* * 
***************** 



* GET SYSLOG * 

* ENTRY FROM * 

* PUB TABLE * 

* * 
***************** 



QUETEST .*. 

E3 *. 
.* I/O *. 
.* ERROR 
*. QUEUED FOR 
*. SYSLOG . 



*. 



NO .* SYSLOG 
X..*. CHANQ PTR 
*. NULL 



.* SYSLOG ♦ 


. NO 


* 


A 

♦. PRINTER .♦ 

♦ . .♦ 

♦ . .♦ 


.*.. . . 




* 


>YES 






> 


( 




*****K1********** 


* 


MODIFY CCW'S 


♦ 


* 


TO SKIP TO 


* 


* 


CHANNEL 1 


* 


* 


AND TO EJECT 


* 


* 


PAGE 


* 


***************** 






X 





DEVICE 

END 
POSTED 



**H3******* 

* MODIFY 

NOP AT 

SVCWAIT TO 

SVC 7 



*****j 3** ******** 

* SAVE CHANQ * 

* POINTER IN * 

* MVI * 

* INSTRUCTION * 

* RSTOPT * 
***************** 



*****K3** ******** 

* SAVE CHAN ♦ 

* SCHED FLAG * 

* IN MVI * 

* INSTRUCTION * 

* RSTFLG ♦ 
***************** 



**04******* 

* TURN OFF * 
♦CHAINING BIT 

* FOR PAGE 
* EJECT CCW 

* * 
*********** 



*****A5** ******** 

* MOVE NULL * 

* POINTER INTO * 

* PUB BYTE 2 AND * 
♦ZERO FLAG BYTE ♦ 

* * 
***************** 



B5 ♦. 

.♦ DASD ♦. 

.♦ ERROR ♦ 

.INDICATED IN 

♦. EFLAG .♦ 



♦ . 



****05********** 

INCREASE CCW ♦ 

BYTE COUNT ♦ 

TO PRINT ♦ 

SEEK ADDRESS ♦ 



******** 



***** 

♦ RF ♦ 

♦ B5+ 



♦G4 
NONZERO VALUE 
IN REG 
INDICATES 
CHANQ FULL. 



CNTEXT 

*****E5********** 

♦ LD CCB ADDR ♦ 

♦ AND MOVE I/O ♦ 

♦ KEY X'Ol' ♦ 

♦ INTO RIK FLO ♦ 

♦ OF ERBLOC ♦ 
***************** 



*****P5********** 

♦ * 

♦ SET REG * 

♦ TO NONZERO ♦ 

♦ VALUE ♦GA * 

♦ * 
***************** 



****G5 *********** 
SVC 15 
* PRINT TWO * 
LINES OF 
* ERROR * 
INFO 
***************** 



*****H5********** 

* * 

* TEST REG ♦ 

* FOR ZERO ♦ 

* *GA ♦ 

* * 
***************** 



YES 


.* 


CHANQ *. 


. . .♦ 




FULL 


* 


* 


.* 
*. .* 


X 




*. .* 


***** 




♦ NO 


♦ RF ♦ 






♦ HI* 






* * 




X 


* 




***** 


IOERR 




♦ RF ♦ 

♦ Bl> 
* * 

* 
WAITSVC 
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***** 

*RE * 
* J5* 



.* I/O *. NO 
. OPERATION .*... 
♦.COMPLETE .* 



.* NULL *. 
.* CHANQ * 
*.PTR FOR THIS 
*. DEVICE .* 



RSTQPT 

*****D1 ********** 

* RESTORE * 

* CHAN SCHED * 

* FLAG IN * 

* PUB ENTRY * 



**** 

* * 

* 2 * 

* * 

**** 

Ix.. 



*********** 



**** 



* RESTORE * 

* CHAN SCHED * 

* FLAG IN * 

* PUB ENTRY * 

* * 
***************** 



****C2***** 

* SVC 7 

* WAIT 

* *E2 
*********** 



**** 

* * 

* 1 * 

* * 
**** 



* ACTION * 

INFORMATION 
*. MESSAGE .* 



*****D 3** ******** 

* MOVE FF * 

* INTO SVCCBR * 

* TO INDICATE * 
*ERROR ON SYSLOG* 

* - NO MSG *E4 * 
***************** 



**** 




***** 


* * 




*RE * 


* 3 * 




* E4* 


* * 




* * 


**** 




* 

x! 


X 
AACTION .*. 


RTYRTN X 


B4 *. 




*****B5********** 


.* * 




* MOVE X'40' * 


NO .* ACTION 


*. 


* TO FIELD * 


...*. MESSAGE 




* EXTOPT TO * 


*. 


* 


* INDICATE * 


*. .* 




* ACTION TYPE * 


*. .* 




***************** 


*YES 




'. * * 

...* 4 * 

* * 


X 




**** 


CHKDEV .*. 




PHASES X 


C4 *. 




*****C5********** 


.* * 




# * 


.* SYSLOG 


*. NO 


* SET FETCH * 


*. A PRINTER 


.*. .. 


* NAME FOR * 


*. 


* 


* PHASE S * 



**** 

* * 

* 5 * 

* * 
**** 



*E4 
SVCCBR = PHASE 4 
START + 524. 



*********** 



****05**«****** 

* SVC 3 * 
♦FETCH SSANERRS * 

* CHART RK * 
*************** 



.* I/O 


*. NO 


.* DECISION *. NO 










*. ERROR ON 


.*....... 


X*. MESSAGE .*. 












*. SYSLOG 


* 


*. .* 












*. .* 




*. .* 












*. .* 




*. .* 




X 








*YES 




*YES 


*** 


* 










**** 


* 




* 










* * 


* 


3 


* 










* 5 *. .. 
















* * 


**** 






X 




**** 












.*. 


CALPH5 X 








*G3 




Gl *. 




*****G 2 ********** 








SSANERRQ (CHART 


RH) 


.* * 




* * 








OR 




.* ERROR 


'*. NO 


* SET UP * 








$$ANERRR (CHART 


RJ) 


*. RETRIED 


.#. ... 


* FETCH FOR * 












*. 3 TIMES 


.* 


* NEXT PHASE * 












*. .* 




* *G3 * 












*. .* 


X 


***************** 












*YES 


***** 














**** 


*RE * 














* * 


* D3* 














*RE *... 


* * 














* J5* 


* 














**** 


LOGENT 














IOERR X 
















**H1****** 




X 












* 




****H2********* 












* SET UP 


* 


* SVC 3 * 












* NAME FOR 




* FETCH THE * 












* PHASE R 


* 


* PHASE * 












* 


* 


*************** 













*********** 



*****J1 ********** 

* RESTORE * 

* CHANO PTR * 
*AND CHAN SCHED * 

* FLAG IN * 

* PUB ENTRY * 
***************** 



**** 

* * 

* 2 * 
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****ai ********* 
* * 

* SS.ANERRQ * 



* LOAD ADDRS * 

* OF COMREG * 

* AND ERBLOC * 

* * 
***************** 



*****C1 ********** 

* SET SYSTEM * 

* MASK TO * 

* ALLOW * 

* INTERRUPTS * 
*0N ALL CHANNELS* 
***************** 



Dl *. 
* IS *. 

SYSLOG *. 
A PRINTER .*.... 



*****£}********** 



* 1 * 

* * 
**** 



*****A2* ********* 

* MOVE ADDRESS * 

* OF INVALID * 

* OPERAND MSG * 

* INTO OUTPUT * 

* CCW * 
***************** 



****B2 ********** 

STORE ADDRESS * 

OF FIRST CCW * 

IN CHAIN INTO * 

OUTPUT CCB * 

**************** 



*****C 2 ********** 

* MOVE ADDR OF * 

* CONSTANT TO * 
*ZERO DATA ADDR * 
*AND FLAGS INTO * 
*1ST CCW IN CHN * 
***************** 



*****02* ********* 

* STORE ADDR OF * 
♦DISABLE ROUTINE* 

* (SSMASK) IN * 

* WAIT CONSTANT * 

* AREA * 
***************** 



*****£ 2** ******** 



X 
QUETEST .*. 

A3 *. 
.* I/O *. 
.* ERROR 
*. QUEUED FOR 
*. SYSLOG . 



NO .* SYSLOG 
X..*. CHANO PTR 
*. NULL 



.* DEVICE 
END 
*. POSTED 



**D3***** 
* MODIFY 
SVC 7 AT 
SVCWAIT T 

A NOP 



*** 



c******* 



* GET ADDRESSES * 


* MOVE PREFIX * 


* OF PUB TABLE * 


* TO PRINT * 


* AND LUB TABLE * 


* LINE AREA * 


* * 


* * 


***************** 


***************** 




**** '. 




* * 




*RH *... *** 




* D2* . *RH 




**** X * G 


X 


MPSTST .*. * 


***** PI ********** 


F2 *. * 


* MOVE ADDRESS * 


.* *. 


* OF CONSTANT * 


.* MPS *. YES. 


* INTO CCW FOR * 


*. SYSTEM .*..X. 


* READING * 


*. .* 


♦OPERATOR REPLY * 


*. .* 


***************** 


*. .* 



*****G1 ********** 

* LOAD ADDRESS * 

* OF INVALID * 

* RESPONSE * 

* MESSAGE * 

* * 
***************** 



*****G2 ********** 

* MOVE ADDR OF * 

* CCW TO READ * 

* REPLY TO * 

* CCB * 

* * 
***************** 



***H2 ********** 

STORE ADDR * 

OF CCW INTO * 

CCW ADDR * 

AREA OF * 

OUTPUT CCB * 



**** 
* 
* 1 



*****jl********** 

* ADD 3 TO * 

* STARTING ADDR * 
*OF INVALID RESP* 

* MSG TO BYPASS * 
♦PRINTING PREFIX* 
***************** 



*****K1********** 



***************** 



X.... 

COUNT RG 

*****j2********** 

* LOAD SYSLOG * 

* ERROR RETRY * 

* COUNTER WITH * 



***************** 



**** 
LOGENT X 

*****«2********** 



***E 3 ********** 

SAVE CHANQ * 

POINTER AND * 

CHAN SCHED * 

FLAG * 

* 

*************** 



*****P3********** 

* MOVE FF * 

* NULL CHANQ * 

* POINTER INTO * 

* PUB AND ZERO * 
*PUB CSFLAG BYTE* 
***************** 



*****G3********* 

* LD CCB ADDR 

* AND MOVE I/O 

* KEY 01 
*INTO RIK FIELD 

* OF ERBLOC 



*****H3** ******** 

* LOAD REG * 

* WITH CCB ADDR * 

* SO REG WILL * 
*NOT HAVE VALUE * 



******* 



OF 



********* 



X 


**** X 


.*. 


TESTIGN .*. 


B4 *. 


B5 *. 


.* *. 


.* *. 


YES .* NOP *. 


YES .* OPERATOR *. 


...*. AT SVCWAIT .* 


...*. RESPONSE ON .* 


#. .* 


*. IGNORE .* 


*. .* 




*.■ .* 


X *. .* 


*N0 


***** *no 




*RH * . **** 




* G4* . * * 




* * . ..* RH * 




* . * H4* 




**** 


SVCWAIT ! 


SETCNCL X 


X 


**C5******* 


****C4 ********* 


* * 


* SVC 7 * 


* TURN OFF * 


* WAIT * 


* ALL OPTION * 


* * 


* FLAGS * 



*************** 



*********** 



RSTQPT 

*****E4********** 

* RESTORE * 

* CHANNEL * 

* QUEUE POINTER * 

* IN PUB ENTRY * 

* * 
***************** 



RSTFLG 

*****F4********** 

* RESTORE * 

* CHANNEL * 

* SCHEDULER * 

* FLAGS IN * 

* PUB ENTRY * 
***************** 



YES .* NON- *. 

...*. RECOVERABLE . 

*.I/0 ERROR.* 



YES 


* OPERATOR 


. . .* 


. RESPONSE 




*. CANCEL 




*. 


X 


*. .* 


*** 


*N0 


H * 




J3* 


• 



***** 

*RH * 
* Bl* 



***** 
*RH * 
* B3* 



YES .* UNIT *. 
...♦.EXCEPTION ON .* 
*. I/O .* 



**** 

* * 

* 5 * 

* * 
**** 



GET SYSLOG * 

ENTRY FROM * 

PUB TABLE * 

* 

*************** 



X 


NOPBR 


.*. 


****j 3** ********* 




JA * 


SVC 15 




* 


* EXCP TO * 


BRANCH .* 


I/O 


WRITE 


. . .*. 


ERROR 


* RESPONSE * 


* 


SWITCH 


MSG 




*. 


**************** 


X 


*. .* 
*N0 






*RH * 








* B2* 








* * 


X 






* 


**** 


X 


IOCOMP 


* 


.*. 




* 5 


K3 *. 




* 


.♦ *. 




**** 


.* CHANQ *. YES 






*. FU 


.L .*... 


. 





* OPERATOR 

RESPONSE A 
*. RETRY 



***** 
*RH * 
* G3* 



* B4* NOLOG 
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***** 

*RG * 
* B5* 



REPERR X 

*****B1********** 

* UNPACK * 

* MESSAGE NO. * 

* INTO MESSAGE * 

* PRINT AREA * 

* * 
***************** 



*****£ 1 ********** 

* MOVE CHAR 'D' * 

* TO MESSAGE * 

* PRINT AREA * 

* AFTER * 

* NUMBER * 
***************** 



*****D1 ********** 

* ZERO FIRST * 

* BYTES OF * 

* REPLY IN * 

* PRINT * 

* AREA * 
***************** 



*****£ i********** 

* MOVE THE * 

* PREFIX INTO * 

* THE MESSAGE * 

* AREA * 

* * 
***************** 



*****Fi********** 

* CHANGE CCW * 
♦ADDRESS IN CCB * 

* TO ALLOW * 

* PRINTING ON * 

* 1052 * 
***************** 



**Ql******* 

* ACTIVATE * 
BRANCH AT 
I/O ERROR 

SWITCH 

* NOPBR * 
*********** 



***** 

♦ RG * 

* J2* 



* J4* 


* G4* 


* * 


* * 


* 


* 


* 


X 


IOCOMP X 


DECCTR .♦. 


*****B2********** 


B3 *. 


* RESTORE ADDR * 


.* *. 


* OF FIRST CCW * 


NO .♦ ERROR ♦ . 


* IN CHAIN * 


...*. RETRIED .* 


* INTO OUTPUT * 


*. 3 TIMES .* 


* CCB * 


*. .* 


***************** 


X ♦ . .* 




***** *YES 




*RG ♦LOGENT . 




* K2* 




* * 




* .X 


X 


PHASR '. 


**C2******* 


X 


* SET THE * 


****C3********* 


* I/O ERROR * 


* SVC 3 * 


* SWITCH TO A * 


♦FETCH SSANERRR 


* NO OP * 


* CHART RJ 


* * 


*************** 



NOLOG X 

*****B4********** 

* RESTORE * 

* CHANQ POINTER * 

* AND CHAN * 
***** * SCHED FLAG * 
*RG * * * 
* di* ***************** 



*****D2********** 

* LOAD THE * 
♦ADDRESS OF THE ♦ 
♦COMMUNICATIONS ♦ 

* REGION ♦ 

* * 
***************** 



***** 

♦ RG ♦ 

♦ ?2* 



♦RG-H5 
RG-J5 
***** 



TURN ON 

RETRY 

FLAG 

* * 

*********** 



**G4******* 

* ♦ 
TURN ON 
IGNORE 

FLAG 

* * 
*********** 



.♦ RETRY 

^ALLOWED ON 

♦. DEVICE 



.♦ IGNORE ♦. NO 
♦ALLOWED ON THIS*... 
♦. DEVICE .♦ 



***** 
*RG ♦TE 
♦ B5^ 



****j 3** ******* 

♦ SVC 3 FETCH ♦ 

♦ $$ANERRS ♦ 

♦ CHART RK * 
*************** 
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Chart RJ. $$ANERRR - Phase 6 of ERP Message Writer 
Refer to Chart 14. 



* SET SYSTEM • 

* MASK TO • 
•DISABLE ALL I/O* 

* AND EXTERNAL • 
» INTERRUPTS » 



••••A2**»****** 

MOVE CHAN AND 

UNIT FROM PUB 

ENTRY TO MAIN 

STORAGE 

LOCATION 2 



*«#B2« 

SET RETRY 

FLAG X'Ol* 

IN MAIN 

STORAGE 

LOCATION 4 



•»»#A3***»* 

* IOINTR 

* *A4 



• SET SYSTEM 

• MASK TO 

• DISABLE ALL 

• I/O INTERRUPTS 



»A4 
ENTRY POINT WHEN I/O 
OR EXTERNAL INTERRUPTS 
OCCUR DURING THE 
EXECUTION OF THIS 
PHASE. 



» PREPARE PSWS ♦ 
•FOR INTERRUPTS * 
•AND PUT ADDRESS* 
•OF ERRQUE ENTRY* 
* FOR ERROR DEV * 



#«»*«E1««*«»*««« 

• SAVE EXTERNAL 

• NEW PSW AND 

• SUBSTITUTE 

• MYPSW FOR EX- 
TERNAL NEW PSW 



GET ADDRESS 

OF THE CCB 

AND THE PUB 

ENTRY 



*#»*G1******»* 
MOVE THE MSG 
NUMBER FROM 
ERROR QUEUE 
TO STORAGE 
LOCATION 



• IS •. 

MESSAGE 
DECISION 
TYPE 



DEVICE 
IN ERROR 
. STILL 
•.BUSY .* 



•#E2**««**« 

SET EXTERNAL^ 

OPTION FLAG TO« 

♦INDICATE ACTION* 

•TYPE MESSAGE » 

• (X'40') • 



PHASES 

«*.»#F2»*»««»«» 

• MOVE AN 'S* 

• TO LAST BYTE 

• OF THE FETCH 

• NAME 



»»#»»G2»»***»**«» 

• RESET THE • 

• FIRST 5 BYTES • 
•OF MAIN STORAGE* 

• TO ZEROS • 



LDPSW 

#*»»*E3«*»»**»»» 

* LOAD PSW WITH 
•ALL INTERRUPTS 

* ENABLED AND 

* MACH CHK AND 

* WAIT BITS ON 



»F3***» 
WAIT 



YES .* IS 

RESPONSE 

*. RETRY 



.» IS 
. RESPONSE 
». IGNORE 



E4 *. 

• • IS * 

IGNORE 
RESPONSE 
. VALID 



SET EXTERNAL* 

• OPTION FLAG 
FOR IGNORE 

* (X'lOM 



ANY 

OTHER 

.INTERRUPT. 



•»#*D5»*»»»*«» 

TURN OFF 

KEY-BIT IN 

INTERRUPT 

CODE OF EXT. 

OLD PSW 



••»««E5***«*««»* 

•MOVE INTERRUPT 
•CODE BYTE FROM 

• EXT. OLD PSW 

• TO SPECIAL 

• PSW 



REPLACE EXT. 

OLD PSW 

WITH SPECIAL 

PSW 



•**»G5***»»««»* 

LOAD EXTERNAL 

PSW 



*»»»H1»*»**»* 

MOVE CHAR «D 

TO MAIN 

STORAGE 

LOCATION 1 



JL *. 
.• IS ». 

• MESSAGE 

A DECISION 
«. TYPE 



••••Kl******** 

REPLACE CHAR 

■D» WITH 'A* 

IN MAIN 

STORAGE 

LOCATION 1 



•»»*»H2********* 

* RESTORE 

* EXTERNAL NEW 

* PSW AND MASK 
•IN I/O OLD PSW 



«»J2»*«»»* 
FETCH 

SSANERRS 
CHART RK 



YES 
X 



MESSAGE 
AN ACTION 
. TYPE 



J4 ♦. 
.• IS * 

RETRY 
RESPONSE 
. VALID 



X 

»#K4»»»»**» 

♦ SET EXT. * 

OPTION FLAG 

FOR RETRY, 

X'04' 



NO .* IS 
...•. RESPONSE 
*. CANCEL 



• SET EXT. * 
OPTION FLAG 
FOR CANCEL, 
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Chart RK. $$ANERRS - Phase 7 of ERP Message Writer (Part 1 of 2) 
Refer to Chart 14. 



****A1 ********* 

* * 

* $$ANERRS * 

* * 
*************** 



IJBERS34 

*****£!********** 

* SET SYSTEM * 

* MASK TO * 

* ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 
***************** 



*****d ********** 

* GET ADDRESSES * 

* OF C0MRE6, * 
♦ERBLOC. AND PUB* 

* ENTRY FOR * 
♦DEVICE IN ERROR* 
***************** 



NO .* IS 
,..*. DEVICE 
*. A TAPE 



IS *. NO 
TEB TABLE .*... 
. ZERO .* 



ACTION 

TYPE 
MESSAGE 



* 2 * 

* * 
**** 



*****B3********** 

* SSM TO ENABLE * 
*I/0 INTERRUPTS!* 

* EST CHAN END * 

* FOR 1419 * 

* INTERRUPTS * 

***************** 



WAS 
DEVICE 
READIED 



*****03** ******** 

* SET * 

* CSW FOR * 

* DEVICE END * 

* AND * 

* CHANNEL END * 
***************** 



IS 

DEVICE A 

TCR 



Gl *. 

.* IS *. 

NO .* THERE A *. 

(..*. COMREG .* 

*. EXTENSION.* 

*. .* 



NO .* ARE *. 
X..*. THERE 

*. TEBV'S .* 



ZERTEBV 

*****ji********** 

* DETERMINE * 

* TEBV ENTRY * 
♦FOR THIS DEVICE*. 

* AND ZERO * 

* RETRY COUNTER * 
***************** 



* MOVE X'OC* * 

* INTO RETRY *. 
♦COUNTER IN TEB * 

* * 
***************** 



ZERTEB 

*****E2********** 

* DETERMINE TEB * 
♦ENTRY FOR THIS * 

...X* DEVICE AND * 

* ZERO THE * 

* RETRY COUNTER * 
***************** 



.*. 

F2 *. 

.* HAS *. 

.* MESSAGE *. 

♦.BEEN PRINTED . 

♦ K2 .♦ 



♦ . 



.* 



**** 

* * 

* 1 * 

* * 
**** 



E3 *. 

* * 

ADDRESS 

IN 

CSW 

*. .* 

♦ . .* 

*NO 



*****P3********** 

* * 

* SET UP * 

* DUMMY ADDRESS * 

* IN CSW + 1 ♦ 

* * 
***************** 



♦ RESET THE CCB ♦ 

♦ SAVE AREA * 

* TO ZERO * 

* * 
***************** 



IS 
REPLY 
IGNORE 



IS 
REPLY 
RETRY 



***** 
*RL * 
* Al* 



IGEXIT 

*****H3********** 

* LOAD ADDRESS * 

* OF * 

* IGNORE EXIT * 

* ROUTINE INTO * 

* R15 * 
***************** 



**** 

X 
*****F4********** 

* * 

* LOAD ADDRESS * 

* OF CCB INTO * 

* PUBREG R14 * 

* * 
***************** 



*****G4********** 

♦ CLEAR CCB * 

♦ BITS 0-2 * 

♦ IN BYTE 2 * 

♦ AND BITS 0-4 * 

♦ IN BYTE 3 * 
***************** 



* RETRY EXIT 

* ROUTINE 

* INTO R15 
*************** 



***** 
*RL ♦ 
♦ Al* 



EXIT 

*****j 3** ******** 

* ZERO LAST * 

* BYTE OF * 

* FETCH NAME * 

* FOR * 

* SVC 3 * 
***************** 



♦ K2 
THE SAVE AREA OF THE 
DEVICE CCB WILL CONTAIN 
X'FFS PLACED THERE BY 
PHASE 4 ($$ANERRP) IF 
NO MESSAGE WAS PRINTED. 



♦ K4 
TO EXIGN, 
TO EXRTY, 
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Chart RL. $$ANERRS - Phase 7 of ERP Message Writer (Part 2 of 2) 
Refer to Chart 14. 



CANRTN X 

*****&!**** ****** 

♦ INSERT X'01' * 

♦ IN LAST BYTE OF* 
*FTCHNM TO SIG- * 

♦ NIFY CANCEL ON * 
♦RETURN FROM TRN* 
***************** 



*****Ci ********** 

* INSERT X»59« * 
♦IN INSTRUCTION * 

♦ AT 'CANCOD' * 

♦ FOR OPERATOR ♦ 

* CNCL DECISION * 
***************** 



WAS *. NO 
CANCEL IN .♦... 
LTA .* 



*****£!********** 

* INSERT X'80' * 
*IN INSTRUCTION * 

* AT 'CANCOD* * 

* FOR CANCEL * 

* IN LTA * 
***************** 



**C3******* 

* SET * 

* ON BIT A OF * 
* PIB FLAG BYTE * 

* 15, CANCEL * 

* BEGUN * 
*********** 



**D3******* 

♦SET ON BIT 1 

*0F PIB BYTE 1, 

♦ CALL SSBEOJ 

* * 

*********** 



SETDIS 

*****F1 ********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE ALL * 

* INTERRUPTS ON * 

* ALL CHANNELS * 
***************** 



*****Gl********** 

* ZERO WORK REG * 

♦ 12, INSERT * 
♦PROTECTION KEY ♦ 

♦ DATA, AND PIB ♦ 

* TABLE ADDR ♦ 
***************** 



*F2 
THIS WILL BE A 
X'BO" OR X'59' 
AS MODIFIED BY 
PRECEDING 
INSTRUCTONS. 



CANCOD 

*****p 3** ******** 

* MOVE CANCEL ♦ 

* CODE INTO PIB ♦ 

* FOR UNCONOIT * 

* CANCEL TEST * 

* *F2 * 
***************** 



HAS 
CANCEL 
STARTED 



*YES ♦♦** 
. * * 

* 1 * 

* * 
**** 



.♦ ERROR ♦. NO 

IN AB .*.... 

*. ROUTINE .* 

♦ . .* 

*. .♦ 


K 


»YES 


**K1*> 
* SET 

♦ BIT 1 

BYTl 

* CALL 
* 


****** 
ON * 
N PIB * 

= 1. * 

(SBEOJ * 
* 


*********** 




X 1 



♦ CANCEL EXIT * 

♦ ROUTINE INTO * 

♦ R15 * 
***************** 



*****H3** ******** 

* * 

* LOAD ADDRESS * 

* OF PIB TABLE ♦ 

* INTO RIO * 

* * 
***************** 



****j 3** ******* 

* SVC 3 * 

* EXCAN * 

* CHART FG * 
*************** 



* 2 * 

♦ * 
**** 



IGNCAN X 

*****C4 ********** 

* INSERT X'OO' * 

* IN LAST BYTE ♦ 

* OF FTCHNM ♦ 

* TO SIGNIFY ♦ 

* NON-CANCEL ♦ 
***************** 



**Q4******* 

♦ TURN ON ♦ 

* UNIT CHECK ♦ 

* BIT AND TURN 

♦OFF BUSY BIT * 

*IN CSW STAT* 

*********** 



.♦ PROGRAM ♦. NO 
*.OR PROTECTION.*... 
♦. CHECK .♦ 



*****P4*** ******* 

* CALCULATE * 

* LUBID * 

* OF * 

* LOGICAL * 

* UNIT * 
***************** 



G4 *. 

.** SYSROR 
OR 
*. SYSIPT 
*. .* 
*. .* 
♦YES 



*****H4********** 

* * 

* CHANGE LUBID * 



♦ FOR SYSRES * 

* * 
***************** 



****J4********* 

* SVC 3 ♦ 

* EXIGN * 

* CHART DD ♦ 
*************** 



**** 

* * 

* 2 * 

* * 
**** 



Charts 323 



Chart SA. $$ANERRT - MICR (1412/1419) ERP 
Refer to Chart 12. 



****A1 ********* 

* * 

* $$ANERRT * 

* * 
*************** 





* 1 * 

* * 
**** 






* 2 * 

* * 
**** 


IJBERT20 X 

*****B1 ********** 

* SSM TO * 

* ENABLE * 

* ALL * 

* INTERRUPTS * 

* * 
***************** 


X 

.*. 

B2 *. 

.* *. 

.* * 

*. INTERVENTION 

*. REQ .* 

*. .* 

*. .* 

*N0 


UNDTR X 

*****B3** ******** 

* INSERT X»19« * 
. YES * UNDETERMINED * 
.*.... * ERR MSG * 

* CODE * 

* * 
X ***************** 

**** 
* * 






* 4 * 

* * 
**** 


X 

**** 
* * 


X 
*****c l********** 

* LOAD ADDRS * 

* OF COMM * 

* REG, ERBLOC * 

* AND PUB ENTRY * 

* FOR DEVICE * 


PROC X 

*****C2******** 
* 

* INSERT X'09« 

* BUSOUT 

* MSG CODE 
* 


* 

* 
* 
* 
* . 




* 3 * 

* * 
**** 



***************** 



*****D1********** 

* CALCULATE * 

* CCB ADDR * 

* FROM CHANNEL * 

* QUEUE * 

* * 
***************** 



***** El ********** 

* GET THE CCB * 

* ADDR FROM THE * 

* QUEUE AND * 

* CLEAR HIGH- * 

* ORDER BYTE * 
***************** 



D2 *. 
* 

BUSOUT 

*. , : 
*. .* 
*NO 



*****£ 2********** 

* INSERT X'37« * 

* DISENGAGE * 

* FAILED MSG * 

* CODE * 

* * 
***************** 



*****Fl ********** 


F2 *. 










* GET ADDR OF * 


.* *. 










* CCW CAUSING * 


.* COMMAND *. NO 








* INTERRUPT * 


*. REJECT .* 










* AND PUT IN * 


*. .* 










* REG 14 * 


*. .* 










***************** 


*. .* 




X 








*YES 


**** 








* 




* 








* 


2 


* 








* 




* 






X 


**** 




X 










*****G1 ********** 


G2 *. 








*****G3********** 


* INSERT X«28« * 


.* *. 








* INSERT X'18« * 


* CHANNEL DATA * 


.* FAIL TO *. NO 






* COMMAND * 


* CHECK MSG * 


*. DISENGAGE .* 








X* REJECT MSG * 


* CODE * 


*. .* 








* CODE * 


* * 


*. .* 








* * 


***************** 


*. .* 
*YES 








***************** 

**** ', 

* * 

* 3 *... 

* * 


X 










**** 


.*. 


IREXIT X 






PSTERR X 


HI *. 


*****H2 ********** 








**H3******* 


.* *. 


* POST * 








* TURN ON * 


.* CHANNEL *. YES 


* INTERVENTION * 








♦UNRECOVERABLE* 


*. DATA .*.... 


* REQUIRED * 








* I/O ERROR BIT * 


*. CHECK .* 


* SEE BY * 








IN CCB BYTE 2,* 


*. .* 


* * 








* BIT 2 * 


*. .* X 


***************** 








*********** 



*****B4********** 

* POST * 

* INTERVENTION * 

* REQUIRED BIT * 
*IN CCB, BYTE 3,* 

* BIT 1 
************ 



**C4******* 

TURN ON PASS* 

BACK AND INTER- 

* VENTION REQ 

*BITS 1» 2 IN * 

ERBLOC ERR FLG 

*********** 



*****D4********** 

* SSM TO * 

* DISABLE * 

* I/O * 

* INTERRUPTS * 

* * 
***************** 



**E4******* 
* TURN ON * 

* OPERATOR * 
INTERVENTION 

* BIT IN PUB * 
CHN SCHD FLG* 

*********** 



**P4******* 

* TURN ON * 

* CHANNEL END * 
* BIT IN CSW * 

* STATUS * 

* BYTES * 
*********** 



.*SHOULD-*. 
.* NOT-OCCUR *. YES 
*. SENSE— BYTE .*.... 
*.0, BIT 3 .* 



****** i********** 

* INSERT X'08 1 * 

* INTERVENTION * 

* REQUIRED * 

* MSG CODE * 

* * 
***************** 



**J2******* 

* TURN ON * 
♦PASSBACK AND * 

* INTERVENTION * 
* REQUIRED * 

* SEE C4 * 
*********** 



**j3******* 

* TURN ON * 

* PASSBACK * 
BIT IN ERBLOC 

* ERROR FLAG * 

* BIT 2 * 
*********** 



**H4******* 
* TURN OFF * 

* OPERATOR * 
INTERVENTION 

* BIT IN PUB * 
CHN SCHD FLG* 

*********** 



**J4******* 
* TURN ON * 

* CHANNEL END * 
*AND DEVICE END 

* BITS IN CSW * 
STATUS BYTES* 

*********** 



.*. 

G5 *. 

* CSW * 

HAS A 

COMMAND 

ADDRESS 



*****H5********** 

* INSERT * 

* DUMMY * 

* ADDRESS * 

* X'OOlOOO' * 

* IN CSW * 
***************** 



****J5********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



****«3********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART NA * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart SB. $$ANERRU - Phase 1 of Unit Record ERP (Part 1 of 2) 
Refer to Chart 11. 



»»#A1«**»**» 
$$ANERRU 



SSM TO ENABLE 

INTERRUPTS 

ON ALL 

CHANNELS 



•LOAD ADDRESSES 
« OF COMREG, 

* ERBLOC, AND 

* PUB ENTRY 

* FOR DEVICE 



CALCULATE 

ADDRESS OF 

LAST USED 

CCW 



IS 

THERE - 

CCW 



INSERT X'FE' 
IN CCW 
ADDRESS 



* IS 

DEVICE 
». A 1052 



»«H1«»***»* 
• TURN ON « 

•ALLOW IGNORE 
BIT IN ERQUE 

• FLAG BYTE 



CHANNEL 
DATA 
CHECK 



•»**C2* 

INSERT X'28' 

CHANNEL DATA 

CHECK MESSAGE 

CODE 



INITIAL 

SELECTION 

• K2 



IS 
DEVICE 
A 1052 



**B3******* 

INSERT X'OF'* 
♦IN MASK BYTE • 
•OF INSTRUCTION 
•AT 'UNUSENS' • 



IS 
DEVICE A 
. 1442P 



INSERT X'05'« 
•IN MASK BYTE * 
DF INSTRUCTION 



TSTCCC 

»##«*C4«»»»»*»« 

• INSERT X' 19' 

• UNKNOWN 

• SENSE DATA 

• MESSAGE CODE 



INSERT X'03'» 
♦IN MASK BYTE • 
♦OF INSTRUCTION 
♦AT 'UNUSENS' • 



E3 ♦. 

.♦ IS ». 

DEVICE 

A 2501 OR 

.1442 R/P . 



IS 
DEVICE A 
. 2540P 



INSERT X'02'» 
•IN MASK BYTE • 
3F INSTRUCTION 
• AT • 

• 'UNUSENS' • 



•SC «UNUSENS 



.♦ IS ♦ 

DEVICE 

1442P OR 

.1442 R/P 



H2 ♦. 

.• ERROR •. 
OCCURRED 
ON A READ 

. COMMAND . 



« TURN ON • 
♦ALLOW IGNORE 

BIT IN ERQUE 
• FLAG BYTE 



• K5^ 
FTHMSGW 



«*«»J3«»»»»«»« 

INSERT X'27« 

UNKNOWN 

DEVICE 

MESSAGE CODE 



.♦ IS ♦. 

♦ DEVICE ♦. YES 

A 1403U OR 

♦. 1443/1445. » 



INSERT X'OE'^ 
•IN MASK BYTE • 
OF INSTRUCTION 
•AT 'UNUSENS' • 



J4 •. 
.♦ IS *. 

DEVICE 
A 2520P OR 
.1403/1404. 



»K2 

ABSENSE OF 

CONTROL UNIT END, DEVICE 
ENDt OR CHANNEL END BITS 
IN CSW STATUS BYTES. 



.♦ ERROR ♦. 
♦ OCCURRED 

ON A WRITE 
♦. COMMAND . 



INSERT X'OE'^ 
•IN MASK BYTE ♦ 
♦OF INSTRUCTION 
•AT 'UNUSENS' ♦ 
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Chart SC. $$ANERRU - Phase 1 of Unit Record ERP (Part 2 of 
Refer to Chart 11 • 



2) 



**** 
* * 

* 2 ♦ 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 



* INSERT X'08» * 

* INTERVENTION * 

* REQUIRED * 

* MESSAGE * 

* CODE * 
***************** 



C3 ♦ . 

.* ERROR ♦ . 
OCCURRED 
ON A READ 

. COMMAND 



.* 



.* 



INTREQ 

*****D1********** 

* MOVE ADDRESS " 

* OF ALARM CCW 

* IN CCB 



*X. 



.♦.INTERVENTION .♦ 
♦.REQUIRED .♦ 



***************** 



*****E2********** 

♦ INSERT X«09» ♦ 

♦ BUSOUT CHECK ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 

♦ * 
***************** 



♦ Fl 
BITS TURNED OFF 
ARE DEVICE BUSY, 
I/O ERROR QUEUED 
FOR RECOVERY, 
AND OPERATOR 
INTERVENTION 
REQUIRED. 



SB ♦ 

♦ H2^ 

**** 



***** 
*SB ♦ 
♦ D4^ 



UNUSENS .♦. 

HI ♦. 

.♦ SENSE ♦. 

.♦ DATA IS ♦. YES 

♦IMPOSSIBLE FOR.^.... 

♦. THIS .♦ 

♦DEVICE. ♦ 



*****53** ******** 

♦ ADD 1 ♦ 

♦ TO ERROR ♦ 

♦ COUNT ♦ 

♦ IN PUB ♦ 

♦ * 
***************** 



****P3********* 

♦ SVC 3 ♦ 

♦ EXRTY ♦ 

♦ CHART DD ♦ 
*************** 



*****G3** ******** 
♦ INSERT X«18« ♦ 
COMMAND ♦ 
REJECT ♦ 
MESSAGE CODE ♦ 



.X+ 



***************** 



**A4******* 
♦STORE CHANQ^ 

♦ POINTER IN ♦ 
INSTRUCTION 

♦ AT ♦ 
♦ 'RSTQPT' ♦ 

*********** 



**B4******* 

♦ STORE ♦ 

♦CHANNEL SCHED^ 

♦ FLAG IN ♦ 

♦ INSTRUCTION ♦ 

♦AT 'RSTFLG'^ 

*********** 



*****C4********** 

♦ NULL CHANQ * 

♦ POINTER IN ♦ 

♦ DEVICE PUB * 

♦ TO REMOVE * 

♦ FROM CHANQ * 
***************** 



**D4******* 

♦ TURN OFF ♦ 

♦CHANNEL SCHED+ 

♦ FLAG BITS IN ♦ 

♦ DEVICE PUB ♦ 

*> *F1 ♦ 

*********** 



* DEVICE 

ON CHANNEL 
*. QUEUE . 



*****F4********** 

♦ DETERMINE * 

♦ LOGICAL UNIT ♦ 

♦ NUMBER AND ♦ 

♦ MOVE NUMBER ♦ 

♦ INTO CCB ♦ 
***************** 



*****G4********** 

♦ * 

♦ LOAD ADDR OF ♦ 

♦ CCB INTO ♦ 

♦ REG 15 ♦ 

♦ * 
***************** 



**** 

* * 

* 3 ♦ 



*****B5********** 

♦ LOAD REG 15 ♦ 

♦ INTO REG ♦ 

♦ SO REG DOES ♦ 

♦ NOT HAVE ZERO ♦ 

♦ * 
***************** 



****C5*********** 
SVC 15 
♦ EXECUTE ♦ 
ALARM 
♦ CCW ♦ 

***************** 



CHANNEL 
QUEUE 
FULL 



♦NO 



IS 

DEVICE 
SYSLOG 



PUTUTR 

*****H2+***+*^+* 

♦ INSERT X'19» * 

♦ UNKNOWN * 
...X^ SENSE DATA * 

♦ MESSAGE CODE * 

♦ * 
***************** 



LOGERP 

*****J2********** 

♦ INSERT X'lO' * 

♦ EQUIPMENT * 
...X^ CHECK * 

♦ MESSAGE CODE * 

♦ * 
***************** 



.* I/O 
. OPERATION 
♦.COMPLETE . 



****P5********* 

* SVC 7 ♦ 

* WAIT * 

* * 
*************** 



RSTQPT X 

*****G5********** 

* RESTORE ♦ 

* CHANQ POINTER ♦ 

* TO DEVICE ♦ 

* PUB ENTRY ♦ 

* * 
***************** 



****«!********* 

♦ SVC 3 ♦ 

♦ SJANERRV ♦ 

♦ CHART SO ♦ 
*************** 











ARND1 X 


RSTFLG X 












*****H4********** 


*****H5********** 












♦ SET CCB LUB ♦ 


♦ RESTORE ♦ 












*= SYSLOG, MOVE * 
♦X'Ol' INTO RIK ♦ 


* CHANNEL * 












♦SCHEDULER FLAG ♦ 












♦ IN ERBLOC * 


♦ TO DEVICE ♦ 












* * 


♦ PUB ENTRY * 












***************** 


***************** 












'. **** 


**** I 












♦ * 


* * 












..X^ 3 ♦ 


♦SB ♦... 












* * 


♦ H2* 


X 








**** 


**** 


.♦. 










AACT X 


J3 ♦. 








*****j4********** 


**j5******* 


.♦ ♦. 








♦ INSERT X'19« * 


♦ TURN ON ♦ 


.♦ COMMAND ♦. 


"^0 






♦ UNKNOWN ♦ 


♦INTERVENTION ♦ 


♦. REJECT .♦ 
♦ . .♦ 








X+ SENSE DATA ♦ 
♦ MESSAGE CODE * 


♦ REQUIRED BIT ♦ 
♦ IN ERQUE ♦ 








♦ . .♦ 








* * 


♦ FLAG BYTE ♦ 


♦ . .♦ 








***************** 


*********** 


♦ YES 










I **** 














* * 














.X.+ SB * 


..........X 












•••.•••....X. ♦ G3* 




**** 


CNCL X 








X 


.FTHMSGW 


**K3******* 


**** 


**K4******* 


X 


♦ TURN OFF ♦ 


* 




* 


♦ TURN OFF ♦ 


****K5^***^'C<*^* 


♦ ALLOW RETRY ♦ 


* 


4 


* 


♦ALLOW IGNORE ♦ 


♦ SVC 3 ♦ 


♦ AND IGNORE ♦ 


* 




* 


♦ BIT IN ERQUE ♦ 


♦ $$ANERRM ♦ 


♦BITS IN ERQUE^ 


**** 


♦ FLAG BYTE ♦ 


♦ CHART NA ♦ 


♦ FLAG BYTE ♦ 








* * 


*************** 


*********** 




. 




*********** 


. 








X 




X 


..: 
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Chart SD. $$ANERRV - Phase 2 of Unit Record ERP (Part 1 of 2) 
Refer to Chart 11. 



**A1»»»*«» 
$$ANERRV 



GET ADDRESS 

OF COMREG, 

ERBLOC AND 

PUB ENTRY 



NO 


CI • . 

.• IS ». 
* CHANNEL • 

QUEUE 
*. VALID .* 


• 


X 

*SE * 
* Kl* 




► YES 




















CONT 




< 




•••••Dl********»* 








* DETERMINE 
♦ADDRESS OF CCB 

* FROM CHANQ. 


• 


* 




* 



SSM TO ENABLE 
INTERRUPTS ON 
ALL CHANNELS 



.» IS 

.• DEVICE 

». A 2540 P 

*. 2520 P 



.* WAS *. 

EQUIPMENT 
CHECK ON 
. 2520 P . 



••D3«**»**» 
• TURN ON • 

• EQUIPMENT 
CHECK BIT IN 

* CCB BYTE 3, 

» BIT 3 • 



E3 *. 
• USER • . 

WANTS *. NO 
ERROR .*..X 
RETURN .» 



.* IS ». 
YES .* DEVICE • 
...... A 1403/1404 



YES .* * 

...». INTERVENTION 
•.REQUIRED .• 



YES 


* 


BUSOUT 




• 


CHECK 


X 










•NO 


*SE » 






* B5* 


















BUSOUT 




E5***« 


YES 




DATA 


...» 




CHECK 



YES .• 


ZERO ». 
SENSE .• 


.« IS 

..X*. DEVICE A 
». 1403 U 


X 

• SE * 

* C4* 


'♦NO 


'♦YES 


NOSTATUS 


X 

Gl****. 

EQUIPMENT**. NO 
CHECK .* 


X 
G2* **. 

»* OVERRUN 



**F3«*«**«» 
TURN ON » 

PASSBACK 
IT IN ERQUE 

FLAG BYTE 



EQPCHK 

••••♦HI «♦••**•»* 

• INSERT X'10' 

• EQUIPMENT 

• CHECK MESSAGE 
» CODE 



Jl •. 

.» IS •. 

.* DEVICE • 

. A 2540 R OR 

♦.1442 R/P .* 



.« PUB * 
♦. ERROR COUNT 
». =1 .* 



INSERT X'33' 
PARITY ERROR 

IN UCB 
MESSAGE CODE 



*»J3»»««*«» 

* TURN OFF • 

• ALLOW RETRY * 

AND IGNORE 

•BITS IN ERQUE* 

« FLAG BYTE * 







...» 


OVERRUN 


# 
















X 






• 4 • 






• NO 








• SE » 






' 




• C3» 

OVRUN 


X 




INTREQ X 










»*»»»G4»^+»»*»» 






G5 ». 




• INSERT X'08' 










• INTERVENTION 




YES 


.♦''command 




• REQUIRED 






REJECT 




• MESSAGE CODE 














X 

♦ SE • 

* Fl» 


'•NO 




X 




CMDREJ 


X 














H4 *. 






H5 *. 














NO .» CHANNEL * 




NO 


.» UNUSUAL 




...•.END OR DEVICE 






COMMAND 




•. END .* 






•.SEQUENCE 


» 
















X 






• YES 




• SE • 


♦ YES 








» B3«H01 
























X 














CMDSEQ X 




J4 ». 






••J5«**«»*» 








• TURN ON 




YES .** CHANNEL *» 






* UNUSUAL 




...*. END ONLY 






COMMAND SEQ 










* BIT IN CCB 










BYTE 3, BIT 


4 


X ». .» 








• •» •NO 






• 




5 • *x 










* X 




















• SE * 










• Kl* 






























CONT 
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Chart SE. $$ANERRV - Phase 2 of Unit Record ERP (Part 2 of 2) 
Refer to Chart 11. 



INSERT X'll' 

DATA CHECK 
MESSAGE CODE 



CI *. 
» IS ». 

DEVICE 
A PRINTER 



Dl • . 

* IS 
DEVICE 
1443 P 
1445 P 



INSERT X«09' 

BUSOUT 
MESSAGE CODE 



OVRUN .*. 


NOSTATUS X 


C3 *. 


#»##»C4*********» 


.* IS ». 


* INSERT X'19' • 


YES .* DEVICE A *. 


» UNKNOWN » 


1443 P OR .» 


• SENSE DATA * 


*. 1445 P .* 


» MESSAGE CODE • 


X *#_ .♦* 


'»•«♦•»»#«•««*»»•£ 



INSERT X«14« 

OVERRUN 
MESSAGE CODE 



»*E3*«*«*»» 

• TURN ON • 
•INTERVENTION 

REQUIRED BIT 
• IN ERQUE 

• FLAG * 



Fl •. 
.• IS 

DEVICE A 
1403 P 
. 1404 P 



Gl 
.• IS 

DEVICE A 

1443 

. 1445 



OR 



GET ADDRESS 

OF LAST 

USED CCW 



Jl *. 

.* WAS * 

COMMAND 
CODE SET 
. MODE 



GETMSG 

»*#«#G2*»*»»»** 

* INSERT X'18' 
» COMMAND 

» REJECT 

* MESSAGE CODE 



*#H2««»»*»» 

• TURN OFF • 
* ALLOW RETRY * 

AND IGNORE 
•BITS IN ERQUE* 

• FLAG BYTE • 



»«G3«**»»*« 
• TURN OFF • 

♦ ALLOW RETRY 
BIT IN ERQUE 

* FLAG BYTE 



♦•H3»«*«*«* 
• TURN ON * 

•ALLOW IGNORE 
BIT IN ERQUE 

• FLAG BYTE 



YES .* PUB * 

X..». ERROR COUNT 
#. =1 .« 



INITIAL 

SELECTION 

• H5 



D5 *. 
.• IS «. 

DEVICE A 

1403 P OR 

. 1404 P . 



.• DEVICE A *. YES 
». 1442 R/P OR ...... 

•. 1442 P .* 



YES .* IS 
...*. DEVICE A 
». 2540 P 



ADD 1 TO 

ERROR COUNT 

IN PUB 



SVC 3 

EXRTY 

CHART DD 



• H5 
INITIAL SELECTION IS 
INDICATED BY ABSENCE 
OF DEVICE END OR 
CHANNEL END POSTED 
IN CSW. 



«»K1«»»**»» 

SVC 3 

EXIGN 

CHART DD 



*»«*K3****»*»** 

• SVC 3 
•FETCH SSANERRM 

* CHART NA 
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Chart SF. $$ANERRW - MICR (1419D) ERP (Part 
Refer to Chart 12. 



1 of 3) 



**** 

* * 

* i * 

* * 
**** 



****A1******* 

* SSANERRW 
* 

************* 



*****Bl ********** 

* SSM * 

* TO ENABLE * 

* ALL * 

* INTERRUPTS * 

* * 
***************** 



*****d ********** 

* LOAD ADDRESS * 

* OF COMM RGNi * 

* ERBLOCt AND * 

* PUB FOR * 

* DEVICE * 
***************** 



*****Dl ********** 

* MOVE X'OO' * 

* INTO A-TRANS * 

* PHASE NAME * 

* FIELD OF * 

* ERBLOC * 
***************** 



SECONDARY 
. CONTROL . 
*.UNIT .* 



*****Fl ********** 

* LOAD RETURN * 

* ADDR 'PCURTN' * 

* INTO RETURN * 

* REG * 

* * 
***************** 



A3 *. 
.♦SHOULD-*. 
.* NOT-OCCUR *. NO 
. SENSE BITS .*... 



.X* 



*****A4*** ******* 

* INSERT X'08' * 

INTERVENTION * 

REQUIRED * 

MSG CODE * 

* 

*************** 



*SG-H4 
SG-J3 
SH-E1 
**** 



**** 

* * 

* 2 * 



*SH 1 

* Dl* 
**** 

UNDTR X 

*****C 3** ******** 

* INSERT X'19« * 

* UNDETERMINED * 

* ERROR MESSAGE * 

* CODE * 

* * 
***************** 



BUSOUT 

*****C4********** 

* INSERT X'09' * 

* BUSOUT * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



**02******* 

* TURN ON * 

* UNRECOV I/O * 

* ERROR IN CCB * 

*BYTE 2, BIT 2* 



**E2******* 
* TURN ON * 

* PASS BACK 
BIT 2 IN 

* ERBLOC 
*ERROR FLAG * 

*********** 



****P2********* 

* SVC 3 * 
♦FETCH SSANERRM * 

* CHART NA * 
*************** 



*****E4********** 

* INSERT X'37« * 

* DISENGAGE * 

* FAILED MSG * 

* CODE * 

* * 
***************** 



*G3 
THE CCW 
CAUSING 
INTERRUPT IS 
CHECKED WITH 
X'El' , A DUMMY 
COMMAND CODE 
FOR A FAILURE 
TO DISENGAGE. 



*****Hl********** 
*PLCCB SH* 
*_*_*_*_*_*_*_*_* 

* GET CCB * 

* FOR POCKET * 

* LIGHT * 
***************** 



* GET CCB * 

* FOR STACKER * 

* SELECT * 
***************** 



PCURTN 

*****jl********** 

* INSERT X'28' * 

* CHAN DATA * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



*****G4******* 

* GET ADDR 

* OF CCW 

* CAUSING 

* INTERRUPT 
* 
************** 



YES .* FAILED * 

*.TO DISENGAGE 

*. *G3 .* 



*****A5**** ****** 
*TURN ON INT REQ* 

* BIT IN CCBt * 
.X*TURN ON ERBLOC * 

*FLG FOR INT REQ* 

* AND PASSBACK * 
***************** 



*****B5********** 

* * 

* SSM TO * 

* DISABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



*****C5********** 

* TURN ON * 

* OPERATOR * 

* INTERVENTION * 

* BIT IN PUB * 
*CHAN SCHED FLG * 
***************** 



*****D5********** 

* TURN ON * 

* CHAN END * 

* BIT IN CSW * 

* STATUS BITS * 

* * 
***************** 



*****F5********** 

* TURN OFF * 

* OPERATOR * 

* INTERVENTION * 

* BIT IN PUB * 
♦CHAN SCHED FLG * 
***************** 



*****G5** ******** 

* MOVE X'OC * 

♦ TO CSW STATUS ♦ 

♦ BYTE FOR ♦ 

* CHAN END * 
♦AND DEVICE END ♦ 
***************** 



IREXIT 

*****J3********** 
♦TURN ON INTERV * 
♦ REQ'D BIT IN * 
*CCB BYTE 3 BIT * 
♦1 AND IN ERBLOC* 
♦ERROR FLG, BIT1* 
********* 



*****J4********** 

* INSERT X'18' * 

* COMMAND * 

* REJECT MSG * 

* CODE * 

* * 
***************** 



CSW HAS 
A COMMAND 
ADDRESS . 



*****j5********** 

* INSERT DUMMY * 

* ADDRESS * 

* X'OOIOOO' * 

* IN CSW * 

* * 
***************** 



****«5********* 

* SVC 3 * 

* EXIGN * 

* CHART DD ♦ 
*************** 
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Chart SG. $$ANERRW - MICR (1419D) ERP (Part 2 of 
Refer to Chart 12. 



3) 



***** 

*SF * 
* El* 



* 1 * 

* * 
**** 



.* STACKER *. 

♦SELECT COMMAND. 

*. CODE .* 



SSCOM 

*****d********** 

*SSCCB SH* 

*_*-.*_*..*_*-.*_*_* 

* GET CCB FOR * 

* STACKER * 

* SELECT * 
***************** 



*****01********** 

* LOAD ADDRESS * 

* OF CCB AND * 

* ADD DISPL TO * 

* GET DOCUMENT * 

* BUFFER * 
***************** 



B3 *. 

.♦SHOULD-*. 

* NOT-OCCUR * 

SENSE— BYTE 

*.0, X«18« .* 

*. .* 



INRQ . 

*****C 3** ******** 

* INSERT X'08' * 

* INTERVENTION * 

* REQUIRED * 

* MSG CODE * 

* * 
***************** 



*****D2********** 
♦PLCCB SH* 
*_*_*_*_*_*_*_*_* 

* GET CCB FOR * 

* POCKET LIGHT * 

* * 
***************** 



.* STACKER *. NO 
♦SELECT COMMAND.*.. 
*. CODE .♦ 



**** 

* * 

* 2 * 

* * 
**** 



CONT X 

*****El********** 

* INSERT X«28' * 

* CHAN DATA CHK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



* INSERT X'Og* * 

* BUSOUT CHECK * 

* MSG CODE ♦ 

* ♦ 
***************** 



*****Gl********** 

* INSERT X«19' * 

* UNDETERMINED * 

* ERROR MSG * 

* CODE ♦ 

* * 
***************** 



***** 
*SH * 
* El* 



***** 

*SH * 
* Bl* 



.♦ STACKER *. 

♦SELECT COMMAND. 

♦. CODE .* 



OPVNT X 

**P4******* 

* TURN ON ♦ 
♦INTERVENTION 
♦REQUIRED BIT 1 
♦ IN ERBLOC 
♦ERROR FLAG ♦ 
*********** 



****G4**^«***** 

♦ SVC 3 FETCH ♦ 

♦ $$ANERRM ♦ 

♦ CHART NA * 
*************** 



CKER *. NO 



ALREADY 

RETRIED 

ONCE 



♦ *** 

* * 

* 3 * 



**** 



PSTBUF 

***** j 3** ******** 

* POST BITS * 

♦ AND 1 IN ♦ 
♦DOCUMENT BUFFERS. 

♦ BYTE ♦ 

* * 
***************** 



*****P5********** 
*POST BITS AND* 
*1 IN DOC BUFFER* 
♦BYTE 0. INSERT ♦ 

♦ REJECT DOC ♦ 

♦ X«CF' ? BYTE 5 ♦ 
***************** 



****G5********* 

* SVC 3 * 

* EXIGN * 

* CHART DD ♦ 
*************** 



*****H5********** 

* INCREMENT ♦ 

♦ RETRY COUNTER ♦ 
X^ PUB BYTE 3 ♦ 

♦ BY ONE ♦ 

* * 
***************** 



****J5********* 

♦ SVC 3 * 

♦ ENTRY * 

♦ CHART DD ♦ 
*************** 



***** 
*SF * 
* D2* 
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Chart SH. $$ANERRW - MICR (1U19D) ERP (Part 3 of 3) 
Refer to Chart 12. 



BATCH 
NUMBERING 
. SWITCH . 



COMRJ 

*****d ********** 

* INSERT X«18' * 

* COMMAND * 

* REJECT MSG * 

* CODE * 

* * 
***************** 



***** 
*SF * 
* C3* 



.* STACKER 


*« 


YES 


SELECT COMMAND 


*... . 


*. CODE 






*. .* 






*. .* 




X 


*N0 




***** 
*SG * 






* J3* 


X 




* * 


***** 




* 


*SF * 




PSTBUF 


* 02* 







****C3** ******** 

INSET X'34' * 

BATCH NO. SW * 

OFF MSG * 

CODE * 

******** 



*****p 3 ********** 
*POST BITS AND* 

* 1 DOC BUFFER * 
*BYTE 0, INSERT * 

* REJECT DOC * 
*X«CF' IN BYTE ,5* 
***************** 



**E3******* 

* TURN OFF * 

* ALLOW RETRY * 

*BIT 5, TURN ON * 

*ALLOW IGN BIT* 

*3 IN ERBLOC* 

*********** 



****P3********* 

* SVC 3 FETCH * 
*FETCH $$ANERRM * 

* CHART NA * 
*************** 



****A4 ********* 

* * 

* SSCCB * 

* * 
*************** 



*****B4*#******** 

* GET EXTERNAL * 

* INTERRUPT * 

* STATUS FROM * 

* PUB BYTE 5 * 

* * 
***************** 



*****C4** ******** 

* TRANSLATE * 

* THIS VALUE TO * 
*A DISPLACEMENT * 

* WITHIN THE * 

* DTF TABLE * 
***************** 



*****0 4** ****** 

* ADD THIS 

* DISPLACEMENT 

* TO THE START 

* ADDRESS OF 

* THE TABLE 
*************** 



*****E4******** 

* GET ADDRESS 

* OF DTF (CCB) 

* FROM THIS 

* LOCATION AND 

* SAVE *F5 
*************** 



****P4*« ******* 

* RETURN TO * 

* PCURTN * 

* VIA REG 'RET* * 

*************** 



****A5********* 

* * 

* PLCCB * 

* * 
*************** 



****B5********** 

LOAD POINTER * 

TO CHAN * 

QUEUE FROM * 

PUB BYTE 2 * 



*****C5********** 

* MULTIPLY THIS * 

* VALUE BY A * 

* AND ADD TO * 

* THE ADDR OF * 
*THE CHAN QUEUE * 
***************** 



*****D5** ******** 

* GET THE CCB * 

* ADDR FROM THE * 

* CHAN QUEUE * 

* AND CLEAR THE * 

* HI-ORDER BYTE * 
***************** 



****E5******** 

RETURN TO 

PCURTN 

VIA REG 'RET' 

************** 



FIRST 16 BYTES 
OF DTF CONTAIN 
THE CCB. 
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Chart SJ. $$ANERRX - 2671 Paper Tape ERP (Part 1 of 2) 
Refer to Chart 12. 



****A1 ********* 

* $$ANERRX * 

* * 
*************** 



*****B1 ********** 

* * 

* SSM TO * 

* ENABLE ALL * 

* INTERRUPTS * 

* * 
***************** 



CHANNEL 
DATA 
CHECK 



. X* 



*****B 3** ******** 

* INSERT X'19« * 
UNUSUAL * 

SENSE * 
MESSAGE * 

* CODE * 
***************** 



X 


CHDTCK .*. 


*****d ********** 


C2 *. 


* LOAD ADDRESS * 


.* *. 


* OF COMREG * 


YES .* INITIAL *. 


* AND * 


...*. SELECTION .* 


* ERROR BLOCK * 


*. *F2 .* 


* * 


*. .* 


***************** 


X *. .* 




***** *no 




*SK * . **** 




* C5* . * * 




* * CANCON ...* 2 * 




* . * * 




**** 


X 


SETFLE X 


***** oi ********** 


**02******* 


* MOVE STATUS * 


* TURN OFF * 


* BYTE DATA * 


* ALLOW RETRY * 


* FROM CSW * 


*AND IGNORE BITS* 


* INTO SAVE * 


* 3 AND 5 IN * 


* AREA CCSW1 * 


* ERR FLAG * 


***************** 


*********** 




*SK-D2**** '. **** 




SK-D4* * . * * 




SK-D5* *.X.X.* 4 * 




SK-H2* * * . * * 




SK-J3**** . **** 


X 


CALLMW 


*****{=! ********** 


X 


* LOAD ADDRESS * 


****E2********* 


* OF PUB AND * 


* SVC 3 * 


* GET ADDRESS * 


♦FETCH $$ANERRM * 


* OF CHANNEL * 


* CHART NA * 


* QUEUE POINTER * 


*************** 


***************** 





CHANNEL *. NO X .* INVALID 

OR DEVICE .* X*. BITS 

END .* *. 



**** 

* * 

* 2 * 

* * 
**** 



*****D 5 ******** 

* INSERT X'LO" 

* EQUIPMENT 
X* CHK MSG 

* CODE 
* 
*************** 



**** 

* * 

* 3 * 



*****Fl ********** 

* CALCULATE * 

* AND LOAD * 

* ADDRESS OF * 

* CCB * 

* * 
***************** 



*****Gi ********** 

* INSERT X«28' * 

* CHAN DATA * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



*F2 
CONTROL UNIT 
END, DEVICE 
END, OR CHAN 
END. 



.. .*. 


EQUIPMENT 




*. CHECK . 




*. .* 


X 


*. .* 


***** 


*N0 


*SK * 




* F3* 




* * 




* 




EQUCHK 






X 


*****F5******* 


* 


INSERT X«08' 


# 


INTERVENTION 


* 


REQ MSG 


* 


CODE 



***************** 



ECK 

.* 
*N0 



* 1 * 

* * 
**** 



*****H2********** 

* INSERT X»18« * 

* CMND REJECT * 

* MESSAGE *X 

* CODE * 

* * 
***************** 



*****G4********** 

* INSERT X'll' * 

* DATA CHK * 
X* MESSAGE * 

* CODE * 

* * 
***************** 



**H4******* 

* TURN ON * 
INT REQ 

BIT 1 IN 
ERBLOC 

* ERR FLAG * 
*********** 



* 3 * 

* * 
**** 



***** 
*SK * 
* H2* 



*****J3******* 


*** 




J4 *. 


* INSERT X'19« 


* 




* *. 


* UNUSUAL 


* 


.* 


USER *. NO 


* SENSE MSG 


* 


*. 


WANTS .*.... 


* CODE 




* 


RETURN .* 


* 


* 




*. .* 


***************** 




*. .* X 








*YES ***** 








*SK * 








* El* 


X 






X * * 


**** 






***** * 


* * 






*SK * MODCC 


* 4 * 






* Bl* 
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Chart SK. $$ANERRX - 2671 Paper Tape ERP (Part 2 of 
Refer to Chart 12. 



2) 



TURN ON DATA* 
♦CHECK BIT IN 

CCB, BYTE 3, 
* BIT 3 



STORE UPDATED 

I/O AREA 

ADDRESS IN 

CCW HOLD 

AREA 



♦♦CI » 

* TURN ON ♦ 
•ALLOW IGNORE 
• BIT 3 IN 
♦ERBLOC ERROR 

» FLAG » 



*»DL**»»»»« 
« TURN OFF * 

♦ INTERV REQ 
BIT IN ERROR 

♦ FLAG 



J4* 



MODCCW 

* GET ADDRESS 
» OF CCW AND 

* LOAD IT INTO 

* WORK REG 15 



» GET RESIDUAL ♦ 
» COUNT, ADD 1 ♦ 
♦TO IT AND STORED 

♦ NEW CCW COUNT • 

♦ IN HOLD AREA • 



♦ GET ADDRESS ♦ 

♦ OF CCW AND ♦ 
♦RESTORE UPDATED^ 

♦ CCW IN WORK ♦ 

♦ REG 15 ♦ 



INSERT X'09' 

BUSOUT CHECK 

MESSAGE 

CODE 



♦*C5»^^*^^^ 
♦ TURN OFF ♦ 

♦ ALLOW RETRY 
• AND IGNORE 

♦ BIT 3+5 
♦IN ERR FLG ♦ 



♦ SJ ♦ 

♦ E2^CALLMW 

RETXIT 



»£*♦♦♦♦♦♦♦♦♦ 

♦SET UP THE PUB 

♦ ERR COUNT 

♦ AREA TO 1 



•*»»F1«»»»«»**^ 

MOVE CCW TO 

CCW HOLD AREA 

AND MOVE 
RESIDUAL CNT 
TO HOLD AREA 



*»«»G1*^^^^^*^ 
LOAD CCW CNT 
INTO WORKREG 
AND SUBTRACT 
RESIDUAL CNT 



»#»»H1»**»»»*» 

SUBTRACT 1 

FROM WORKREG 

AND ADD TO 

IT I/O AREA 

ADDRESS 



♦ TURN ON ♦ 
♦ INT. REQ 

BIT 1 IN 
♦ERBLOC ERROR 

♦ FLAG ♦ 



USER 

WANTS 

RETURN 



* TURN ON ♦ 

♦INT. REQ BIT ♦ 

♦IN CCB, BYTE 3. 



BIT 



SVC 3 

EXRTY 

CHART DO 



♦♦ J3*«»»*»« 
♦ TURN ON ♦ 
♦ALLOW IGNORE 

BIT 3 IN 
♦ ERBLOC 
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Chart TA. 



$$ANERRY - Physical 
Refer to Chart 15, 



Attention Routine: Send Message 



***** 

*TB * 

* F3* 

* * 



**** 

* * 

* 2 * 



****£}********* 

* * 

* SSANERRY * 

* * 
*************** 



IJBPA233 

*****B i********** 

* LOAD ADDR OF * 

* BG COMM RGN * 

* AND PIB * 

* TABLE AND * 

* COMM REGION * 
***************** 



* 1 *.X 



**** 
CANTLP X 

*****B2********** 
♦INSERT STORAGE * 

* KEY FROM * 
♦INTERPHASE COMM* 

* RGN IN REG 10 * 

* *Jl * 
***************** 



*****B3********** 

♦ SUPPRESS PROG * 
♦IDENTIFICATION * 

♦ BY NOPING * 
♦CCW2 AND CCWOA ♦ 

♦ COMMAND CODES ♦ 
***************** 



*****A4********** 

♦ RESET SYSLOG ♦ 

♦ CHAN SCHED * 

♦ FLAGS TO * 

♦ ALLOW I/O * 

♦ * 
***************** 



****B4*********** 
SVC 15 
♦ WRITE MSG ♦ 
GET OPTR 
♦ REPLY * 

***************** 



♦ A5 
IF REG 10 IS ZERO, NO 
DEVICES REQUIRED OPERATOR 
INTERVENTION FOR Fl TYPE 
PROGRAM WHICH IS CHECKED 
FIRST TIME THROUGH LOOP 
SO THE LOOP COUNTER IN 
REG 12 IS REDUCED BY 1. 
REG 12 IS ALSO BEING USED 
TO INDEX THE INTERPHASE 
COMMUNICATIONS AREA. IT 
NOW POINTS AT THE NEXT 
LOWER STORAGE BYTE WHERE 
F2 CAN BE CHECKED AND 
FINALLY BG. 



*****d********** 


C2 ♦. 


♦ SET X'81« ♦ 


.* *. 


♦ IN FLAG BYTE ♦ 


YES .♦ REG 10 *. 


♦OF ATT RTN PIB * 


...♦. EQUAL ZERO .♦ 


♦FOR REGS STORED^ 


♦. +A5 .* 


♦AND SVC 2 BOUNDS 


♦ . .* 


***************** 


X ♦. .♦ 




***** * N0 




*TB * 




♦ F3* 




* * 
* 




TCAN2 


X 


X 


*****□! ********** 


*****D2********** 


* * 


♦ ADD KEY * 


♦ LD ADDR ♦ 


♦ TO PIB TABLE ♦ 


♦ OF ERROR ♦ 


♦ ADDR TO ♦ 


♦ BLOCK ♦ 


♦ INCREMENT TO ♦ 


* * 


♦ PROPER PIB ♦ 


***************** 


***************** 



*****El ********** 

♦ MODIFY ♦ 

♦ PHASE NAME ♦ 

♦ IN ERBLOC ♦ 
♦TO $$ANERR'01« ♦ 

♦ *K1 * 
***************** 



*****P1 ********** 

* * 

* SET RIK * 

* EQUAL TO ♦ 

* X»01« ♦ 

* * 
***************** 



*****G1 ********** 
♦SET SYSTEM MASK+ 
♦ TO ALLOW I/O ♦ 
♦INTRPT. LOAD 15^ 
♦IN R12 COUNTER ♦ 
♦FOR NO. OF PIBS^ 
***************** 



*****E2********** 

♦ MOVE PROG ID ♦ 

♦ FROM PIB TO ♦ 

♦ OUTPUT AREA, ♦ 

♦ UNPK CUU FOR ♦ 

♦ PRINTING ♦ 
***************** 



LOGRTN 

*****P2********** 
♦PUT OUTPUT ADDR+ 
♦FOR MSG IN CCW2+ 
♦AND CCWOA. PUP* 

♦ TYPIN ADDR IN ♦ 
♦CCW3 FOR REPLY ♦ 
***************** 

**** 

♦ * 
*TB ♦ 

♦ Jl* 
**** 

L0G1 X 

*****G2********** 

♦ STORE TYP0UT1 ♦ 

♦ ADDR IN DATA ♦ 

♦ ADDR PORTION ♦ 

♦ OF CCW1 ♦ 

♦ * 
***************** 

**** 

♦ * 

♦ TB ♦ 

♦ D2^ 
**** 

L0G2 X 

*****H2********** 

♦ * 

♦ PUT ADDR ♦ 

♦ OF CCWOA ♦ 

♦ IN CCB ♦ 

♦ * 
***************** 



LOGTST 

*****C3********** 

♦ GET ♦ 

♦ SYSLOG ♦ 

♦ PUB ♦ 

♦ ENTRY ADDR ♦ 

♦ IN REG 10 ♦ 
***************** 



LOGWAIT .♦. 

D3 *. 
.♦ I/O ♦. 
.♦ ERROR 
♦. QUEUED FOR 
♦. SYSLOG . 



NO .♦ SYSLOG 
!..♦. CHANQ PTR 
♦. NULL 



.♦ I/O ♦. NO 
QUEUE .♦... 
♦.OVERFLOW .♦ 



NO .♦ DEVICE 

,..♦. END 
♦. POSTED 



**G3******* 

♦ MODIFY * 
NOP AT 

SVCWAIT TO 
SVC 7 

* * 
*********** 



♦ Jl 
IF PHASE Z WHILE SCANNING 
THE PUB TABLE FOUND A 
DEVICE REQUIRING OPERATOR 
INTERVENTION, PHASE Z 
THEN IDENTIFIED THE Fl, 
F2 OR BG PROGRAM USING 
THE DEVICE, STORED ITS 
STORAGE KEY IN THIS 
INTERPHASE COMMUNICATIONS 
AREA AND CALLED THIS 
PHASE. 



X.. 



HOLDQUE X 

*****H 3** ******** 
♦SAVE PUB CHANQ ♦ 

♦ POINTER AND ♦ 

♦ CHANNEL ♦ 

♦ SCHEDULER ♦ 

♦ FLAGS ♦ 
***************** 



RSTCHPT 

*****J3********** 

♦ MOVE X'FF' ♦ 

♦ TO PUB CHANQ ♦ 

♦ POINTER TO ♦ 

♦ DETACH PREV ♦ 

♦ REQUESTS ♦ 
***************** 



.♦ CCB *. YES 
♦. TRAFFIC BIT .♦. 
♦. POSTED .♦ 



NOP .♦ SW 
...♦. SET TO NOP 

♦. OR SVC . 



****P5********* 

* SVC 7 ♦ 

* WAIT ♦ 

* * 
*************** 



*****G5********** 

* * 

* RESTORE CCW ♦ 

* LENGTH COUNT ♦ 

* TO 27 ♦ 

* * 
***************** 



H5 ♦. 
.♦ NULL * 
♦ CHANQ 

PNTR IN 
♦. SYSLOG 
♦. PUB .♦ 
*. .* 
♦ YES 



RSTCHQ X 

*****j5********** 

♦ RESTORE USING ♦ 

♦ PROG CHANQ ♦ 

♦ PNTR AND CHAN ♦ 
♦SCHED FLAGS TO ♦ 

♦ SYSLOG PUB * 
***************** 



♦Kl 
X'Ol' IN LAST BYTE INDICATES 
RETURNING FROM PHYSICAL 
ATTENTION TRANSIENTS 
($$ANERRY, Z, 0). 



***** 
♦TB ♦ 
♦ B2^ 
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Chart TB. $$ANERRY - Physical Attention Routine: 
Refer to Chart 15 • 



Read Operator Reply 



♦ A3 
THE STORAGE KEY FOR PROGRAM ABOUT 
WHICH OPERATOR WAS JUST INTERROGATED 
IS RECOVERED FROM INTERPHASE 
COMMUNICATIONS BYTE WHERE PHASE Z 
PUT IT WHEN IT WAS DETERMINED THE 
PROGRAM OWNED DEVICES REQUIRING 
OPERATOR INTERVENTION. THIS 
IDENTIFYING STORAGE KEY IS NOW 
MOVED TO A UNIQUE BYTE IN THE 
INTERPHASE COMMUNICATIONS AREA 
FOR USE BY PHASE Z WHEN IT IS 
LATER REFETCHED. 

*B4 
SEE NOTE 
CHART TA-K1. 



.UNRECOVERABLE. 

♦.ERROR ON .* 

♦SYSLOG.* 



LOAD ADDR * 

OF CCW 2 * 

INTO REG * 

* 

*************** 



.* UNIT * 
.EXCEPTION ON 
*. SYSLOG .* 



*D4 
INVERT REQUEST 
SWITCH AND TURN 
OFF PTAFTCH 
SWITCH. 



***** 
*TA * 
* H2* 



**** 

* * 

* 3 * 



*#***B5******** 

* MODIFY PHASE 

* NAME IN 

* ERBLOC 
*TO SSANERR'Ol' 

* *B4 
*************** 



C5 *. 

.* ATT *. 

NO .*REQUEST SW *. 

,..*. ON IN ATTN . 

*PIB SWITCH.* 

*. .* 



*****D5** ******** 

* * 

* MODIFY PHASE * 

* NAME TO * 

* CALL SSANERRO * 

* * 
***************** 



**E1******* 

*BLANK FIRST* 

*BYTE OF INPUT* 

AT LOCATION * 
* TYPIN * 
* * 

*********** 



.* WAS * 
OPERATOR 
RESPONSE 

. IGNORE 



.* WAS * 
.* OPERATOR 
. RESPONSE 
*. CANCEL 



TCAN2A 

*****E3** ******** 

* CLEAR ENTRY * 

* IN CANCEL * 
...X* INFO TABLE * 

* TO INDICATE * 

* IGNORE * 
***************** 

**** 



*TA *.X 
* C2* 
**** 
TCAN2 



.* LOOP *. 
.* CTR IN * 
*. REG 12 ZERO 
*. *H2 .* 



INVAL 

*****G1 ******** 

* LOAD ADDR OF 

* INVALID 

* MESSAGE 

* IN REG 
* 
*************** 



****H1 ********** 

SET CCW * 

LENGTH * 

COUNT TO * 



***************** 



POSTCAN 

**G2******* 

* MODIFY * 

* INSTRUCTION 
* AT LABEL 

* CNCLSW TO 

* BRANCH * 
*********** 



*H2 
DURING LOOP IF PROGRAM 
STORAGE KEY FOUND 
INDICATING A DEVICE(S) 
REQUIRING OPERATOR 
INTERVENTION A MESSAGE 
IS OUTPUT ON SYSLOG. 
ITS SAMPLE FORMAT I S- 
AR 0P60D I INTERV REQ 

FOR Fl AR HERE 

THE OPERATOR IS TO 
TYPE HIS RESPONSE, 
IGNORE OR CANCEL. 

IF HIS RESPONSE IS 
OTHER THAN IGNORE OR 
CANCEL, THIS PHASE 
ISSUES A MESSAGE 
0P60D INVALID RESPONSE 
AND OPERATOR REPLIES 
AGAIN. 



***** 
*TA * 
* B2* 



**E5******* 

* RESET * 
ATTENTION 

SWITCHES IN 
PUB 

* *D4 * 
*********** 



*****p 5 ********** 

* LOAD REG 15 * 

* WITH ADDR * 

* OF SUPVR * 
♦ATTENTION EXIT * 

* FROM ERBLOC * 
***************** 



* LOAD ERROR 

* BLOCK ADDR 

* IN REG 15 

*************** 



H3 *. 

.♦BRANCH *. 
* IF ANY 

PROGS WERE 
♦.CANCELED . 



*H5 
EXT02, CHART BC, 
OR SSANERRO, 
CHART TE (SEE 
BLOCKS B5,C5, 
AND D5). 



CALLSEC3 

*****J4********** 

* TURN ON ATT * 

* RTN RECALL ♦ 

* SWITCH IN * 

* ATTENTION PIB * 

* * 
***************** 



****K4********* 

* SVC 3 * 

* $$ANERRZ * 

* CHART TC * 
*************** 



Charts 335 



Chart TC. $$ANERRZ - Physical Attention Routine: 
Refer to Chart 15. 



Initial PUB Scan 



****A1********* 

* * 

* $$ANERRZ * 

* * 
*************** 



IJBPA134 

*****Bl ********** 

* LOAD * 

* ADDRESS OF * 

* BG COMM * 

* REGN AND * 

* PIB TABLE * 
***************** 



* 2 * 

* * 
**** 



.* PENDING *. YES 
.INTERVENTION .*.... 
•.REQUIRED .* 



**C1 

* SET ATTN * 
PIB FLAG TO 
REGS STORED 

AND SVC 2 

* BOUND * 



*****D1 ********** 

* * 

* LOAD ADDRESS * 

* OF * 

* ERROR BLOCK * 

* * 
***************** 



*****£!********** 

* MODIFY PHASE * 

* NAME IN * 

* ERRBLOC * 

* TO $$ANERR * 

* '01' *K2 * 
***************** 



RECALL 
SWITCH 

ON 



SECTI0N1 X 

*****C2********** 

* CLEAR * 

* INTERPHASE * 
♦COMMUNICATIONS * 

* AREA * 

* * 
***************** 



*****D p ********** 

* SET LTK * 

* SAVE AREA IN * 

* INTERPHASE * 

* AREA TO * 

* ZERO * 
***************** 



**** 
DPUBL X 
*****g 2 ********** 
*PUBSCN TD* 
*_*_*_*_*_*_*_*_* 

* SCAN FOR * 

* INTERVENTION * 

* REQ IN PUBS * 
***** 



.* . 


CALLSEC2 X 


B3 *. 


**B4******* 


ATTN *. 


* SET * 


REQUEST *. NO 


* FETCH * 


SWITCH .*.... 


* PHASE NAME 


ON .* 


* TO $$ANERRY * 


. *G3 .* 


* * 



**C3******* 

* SET * 
FETCH 

PHASE NAME 
TO $$ANERR0 

* * 
*********** 



IS *. NO 
SYSLOG A .*.... 
. 1052 .* 

*. .* . 
*. .* X 

*YES **** 

* * 

* 4 * 



**Gi******* 

* SMM TO * 

ALLOW 

I/O 

INTERRUPTS 

* * 
*********** 



**H1******* 
♦MODIFY INST* 

* AT LTKHLD * 
IN QUEID 

* ROUTINE * 
* WITH LTK * 

*********** 



END 

OF PUB 

SCAN 



*****C 2 ********** 
*QUEID TD* 
*_*_*_*_*_*_*_*_* 

* FIND PROGRAM * 

* THAT OWNS * 

* THE DEVICE * 
***************** 



**03******* 

* RESET * 
ATTENTION 
SWITCHES 

IN PIB 

* *H3 * 
*********** 



*****E3******* 

* SET REG 15 

* WITH ADDR 

* OF GENERAL 

* EXIT 

* (EXT02) 
************** 



****F3********* 

* SVC 3 FETCH * 

* $$ANERRO OR * 

* $$BATTNA *F4* 
*************** 



******** 



*****C4 ********** 

* CALC PUB * 

* POINTER * 

* FOR SYSLOG * 

* AND STORE FOR * 
*USE BY SECTI0N2* 
***************** 



****D4********* 

* SVC 3 * 
*FETCH $$ANERRY * 

* CHART TA * 
*************** 



*F4 
SEE LOGICAL TRANSIENTS PLM 
FOR INTERNAL LOGIC OF $$BATTNA 



AP 

OPTION 

*J3 



**K1******* 

*MODIFY INST* 

*AT LTKHLD IN * 

* QUEID ROUTINE * 

*WITH LID FROM* 

COMREG XTNSN* 

*********** 



.X. 



Fl 
F2 OR BG 
. PROG 



*****j 2 ********** 

* CALC AND * 

* STORE REOID * 

* AND STORE CUU * 

* IN PARTITION * 

* COMM REGION * 
***************** 



* 3 * 

* * 
**** 



*G3 
THIS SWITCH IS ON ONLY 
IF THE ATTENTION KEY HAS 
BEEN PREVIOUSLY PRESSED. 
THIS CONSTITUTES A REQUEST 
FOR AN EMERGENCY CANCEL 
AND CAUSES $$ANERRO TO BE 
FETCHED. 



*H3 
TURN ON REQUEST SWITCH 
AND TURN OFF PTAFTCH 
SWITCH. 



*J3 
SUPERVISOR 
GENERATION 
OPTION. 



*K2 
SEE NOTE 
CHART TA-K1. 



**** 

* * 

* 1 * 

* * 
**** 
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Chart TD. $$ANERRZ - Physical 
Refer to Chart 15 



Attention Routine: Cancel 



**** 
* * 

* 2 * 

* * 
**** 



**** 

* * 

* 3 * 

* * 
**** 



SECTI0N3 X 

** a i******* 

* TURN OFF * 

RECALL, REQUEST, 

* AND PTAFTCH 

* SWITCHES IN * 

*PIB SW BYTE* 

* ********** 



SETPOSTL X 

*****B1********** 

* LOAD REG * 

* WITH LOOP * 

* CONTROL * 

* COUNT OF 15 * 

* * 

c******** 



STEPLOOP X 

*****A2********** 

* REDUCE LOOP * 

* CONTROL COUNT * 

* BY 1 AND * 

* TEST FOR * 

* MORE CANCELS * 
***************** 



.♦ ALL * 
.♦ PROGRAM 
TYPES 
♦ . CHECKED 



CNCLLOOP 

*****C].** ******** 

* LOAD REG * 

* WITH KEY OF * 

* PROG TO BE * 

* CANCELED * 

* * 
***************** 



OPERATOR 
OPTION IS 
. CANCEL . 



**E1******* 

*SET CANCEL * 

♦FLAG X'40' IN* 

* APPROPRIATE * 

* PIB * 

* * 

*********** 



Fl *. 

.♦CANCEL *. 

.*IN PROGRESS*. 

. OR ALREADY . 

♦.CANCELED .* 



**Gi******* 
♦SET CANCEL * 

* CODE TO 
X'59' IN 

♦ PIB 

* * 

*********** 



.* CANCEL *. NO 
♦.OF A LOGICAL .*..> 
♦.TRANSIENT.* 



**J1******* 
♦SET CANCEL ♦ 
♦FLAG X'80« IN 
♦ APPROPRIATE 
♦ PIB 



PUBSCN3 

*****C 2** ♦♦**♦♦♦♦ 
♦PUBSCN TD+ 
*_*_*_*_*_*_*_*_* 

♦ SCAN FOR ♦ 

♦ INTERVENTION ♦ 

♦ REQ IN PUBS ♦ 
********* ******** 



END 

OF 

PUBSCAN 



***** A 3** ******** 

* LOAD ADDR ♦ 

* OF PUB ♦ 

* ENTRY FOR ♦ 

* DEV ♦ 

* * 
***************** 



****B3********* 

♦ SVC 3 ♦ 

♦ PUBDEQ ♦ 

♦ CHART FE *K3 ♦ 
*************** 



*****C 3 ********** 

* RESET PUB * 
♦ENTRY ADDR AND * 

* SSM TO ALLOW ♦ 
♦I/O INTERRUPTS ♦ 

* * 
***************** 



**** 

* * 

* 4 * 

* * 
**** 



BYCNL 

*****Kl********** 

* LOAD ADDR ♦ 

* OF CANCEL * 

* EXIT ♦ 

* (EXCAN) ♦ 

* * 
***************** 



FIND THE 

PROGRAM THAT 

OWNS DEVICE 

*************** 



ENDPUBS3 

*****£ 3** ******** 

* LOAD REG 15 * 

* WITH ADDR * 

* OF ATTN EXIT * 

* (EXT02) * 

* * 
***************** 



****P3********* 

* SVC 3 * 

* EXT02 * 

* CHART BC * 
*************** 



****A4********* 

* * 

* PUBSCN ♦ 

* * 
*************** 



*****B4** ******** 

* ADD 8 TO THE * 

* PUB ADDR TO * 

* STEP THROUGH * 

* PUB TABLE * 

* ENTRIES * 
***************** 



.♦ ALL ♦. 
PUB TABLE ♦. 
ENTRIES 
. SCANNED .♦ 



NO .♦ * 

...♦.INTERVENTION 
♦.REQUIRED .♦ 



****E4********* 

* RET TO ADDR * 

* IN LNKREG * 

* PLUS 4 ♦ 
*************** 



****A5********* 

* * 

* QUEID ♦ 

* * 
*************** 



*****B5 ********** 

* * 

* CALC ADDR * 

* OF REQID * 

* FOR DEV * 

* ♦ 
***************** 



C5 



♦ . 



#****G4** ******** 



***************** 



*****H2********** 
*SSM TO PREVENT * 
♦ALL INTERRUPTS * 

* AND SET ♦ 

* DEQUEUE EXIT * 

* (PUBDEQ) ♦ 
***************** 



*****J2********** 

♦ * 

♦ LOAD CHAN ♦ 

♦ AND UNIT ♦ 

♦ NUMBER ♦ 

♦ * 

********: 



* AP 

SUPERVISOR 

♦ . 

*. .♦ 
♦ . .♦ 
♦ YES 



*****Q5********** 

♦ POINT ♦ 

♦ REG 10 * 

♦ TO TASK ♦ 

♦ REQ ID * 

♦ TABLE * 
***************** 



****E 5********** 

GET * 

ZONE OF * 

REQUESTOR * 

ID INTO * 

REG 10 * 

**************** 



QIDCK1 

*****P5********** 

♦ GET ADDR * 

♦ OF CCB ♦ 

♦ FOR DEVICE ♦ 

♦ FROM CHANNEL * 

♦ QUEUE ♦ 
***************** 



.♦CCB IS ♦. 
.♦IN LOGICAL *. 
. TRANSIENT . 
*. AREA .* 



****H3********* 

* SVC 3 

* EXCAN 

* CHART FG 
*************** 



* 2 * 

* * 
**** 



****H4^****^**# 

* RET TO * 

* ADDR IN * 

* LINKREG * 
*************** 



**** 

* * 

♦ 3 * 



akc ueyueueu, ain 
RETURNS IN-LINE. 



LTKHLD 

*****H5********** 

* PUT LTK INTO ♦ 

* REG 10 AND ♦ 

* INTO * 

* INTERPHASE * 

* AREA * 
***************** 



F1,F2 
OR BG 
PROG 



* 1 * 

* * 
**** 
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Chart TE. $$ANERRO - Physical Attention Routine: 
Refer to Chart 15. 



Request Cancel (Part 1 of 2) 



*A1 
SEVERAL MESSAGES ARE 
AVAILABLE. THE DESIRED 
MESSAGE AT ANY I/O OUTPUT 
TIME IS SELECTED BY 
CHANGING THE DATA ADDRESS 
IN CCW2. CCW 4 RETURNS 
OPERATOR'S REPLY TO 
THE SYSTEM. 



* 2 * 

* * 
**** 



*C1 
IF SYSLOG IS ON CHANNEL 
QUEUE, THIS IS A WAIT 
LOOP FOR USING PROGRAM 
TO COMPLETE ITS I/O 
OPERATION SO THIS PHASE 
CAN USE IT. PUB FLAGS 
ARE SAVED AFTER USING 
PROGRAM FINISHES WITH 
DEVICE. 



*D1 
IN ERBLOC=$$ANERR'01'. 
X'Ol' INDICATES RETURNING 
FROM PHYSICAL ATTENTION 
TRANSIENTS ( $$ANERRY, Z,0 ) . 



*E1 
FIRST MESSAGE FROM THIS 
PHASE IS AR 1I40D 
REQUEST CANCEL. AR.... 
OPERATOR REPLY MUST BE 
GIVEN AS DISCUSSED IN 
CHART TF, NOTE A5. 



**** A 2 ********* 

* * 

* $$ANERR0 * 

* * 
*************** 



IJBPA333 

*****B2********** 

* LOAD ADDRS OF * 

* COMM REGION * 

* AND OF PIOCS * 

* ERROR BLOCK * 

* * 
***************** 



**C2******* 

* * 
MODIFY 

PHASE NAME 
IN ERROR 

* *D1 * 

*********** 



***D2********** 

SET RIK IN * 

ERBLOC TO * 

X'Ol' AND SSM * 
TO DISABLE * 
EXTERN INT. * 

*************** 



*TF-R1 
TF-E2 
TF-G2 



*****p 2 ********** 

* SET ADDR OF * 

* PREFIX AR * 

* IN DATA * 

* ADDR OF CCW1 * 

* AND CCW3 * 
***************** 



*****G2********** 

* SET INPUT * 

* ADDR IN CCW4 * 

* AND MSG ADDR * 

* IN REG * 

* * 
***************** 



*J1 
TEST IS MADE FOR 
OTHER THAN BLANKS 
IN INPUT AREA. 



PAR41 

*****H2********** 

* STORE ADDR * 

* OF DESIRED * 

* MSG IN CCW2 * 

* VIA REG * 

* *A1 * 
***************** 

**** 



PAR42 

*****j2********** 

* LOAD ADDR * 

* OF FIRST CCW * 

* OF CHAIN * 

* INTO CCB * 



*****A4 ********** 

* NOP CCW1 * 

* AND CCW3 * 
.X* COMMAND CODES * 

* REDUCE CCWS * 

* BYTE COUNT * 
***************** 



PAR40 X 

*****B3 ********** 

* LOAD ADDR OF * 

* PIB TABLE * 

* AND ADDR OF * 

* LUB TABLE * 

* * 
***************** 



*****C 3** ******** 

* CALCULATE * 

* PUB ADDR * 

* FOR SYSLOG * 

* DEVICE * 

* * 
***************** 



C4 
* 

I 
STA 



.* I/O *. 
* ERROR *. YES 

QUEUED FOR .*... 
*. SYSLOG .* 



*** 



******* 



**** 

* * 

* 2 * 



**G3******* 

* MODIFY * 
NOP AT 

SVCWAIT1 TO 
SVC 7 

* * 
*********** 



PAR44 

*****H3** ******** 

* NULL SYSLOG * 

* PUB AND SAVE * 

* USER DATA * 

* (VIA BAL TO * 

* PTRXCH) * 
***************** 



*****j3********** 

* BLANK INPUT * 

* AREA. LOAD * 

* CCB ADDR IN * 

* REG 15 AND * 

* REG * 
***************** 



****« 3** ********* 
SVC 15 
* COMM WITH * 
OPERATOR 
* *E1 * 

***************** 



****P4 ********* 
SVC 7 

WAIT 



**** 

* * 

* 4 * 



.* UNIT * 
.EXCEPTION ON 
*. SYSLOG .* 



*DELETE PERIOD* 
FROM END OF * 

* MSG, MSG1 * 

* * 

*********** 



OPERATOR *. 
REPLY 
.RECEIVED .* 



***** 
*TF * 
* E3* 



NULL 

CHANQ 
POINTER 



*****H4********** 

* RESTORE USER * 

* DATA TO * 

* SYSLOG PUB * 

* (VIA BAL TO * 

* PTRXCH) * 
***************** 



YES .* SYSLOG *. 

...*. UNRECOVERABLE. 

*. ERROR .* 



*****K4********** 



***************** 



*****£ 5********** 

* LOAD ADDR OF * 

* INVALID * 

* STATEMENT * 

* MSG INVL * 

* IN REG * 
***************** 



*****P5********** 

♦MODIFY INVALID * 

* MSG CODE TO * 

* 1S01D * 

* * 
***************** 



*****G5 ********** 

* BLANK OUT * 

* WORD REQUEST * 

* IN MSG1. MAKE * 

* REPLY UPPER * 

* CASE * 
***************** 



*****H5********* 
* 

* LOAD REG 

* WITH LOOP 

* COUNT OF 3 
* 
**************** 

**** 



************ 



***** 
*TF * 
* Bl* 



**** 

* * 

* 3 * 

* * 
**** 



**** 

* * 

* 4 * 

* * 
**** 
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Chart TF. $$ANERRO - Physical Attention Routine: 
Refer to Chart 15. 



Request Cancel (Part 2 of 2) 



***** 

*TE * 
* J5* 



.♦. 

Bl *. 

.♦ WAS *. 

* OPERATOR * 

REPLY VALID 
*. *A5 .* 



***** 
*TE * 
* H2* 



*****d********** 
♦MODIFY INVALID * 

* MSG TO 1S02D * 

* FOR POSSIBLE * 

* USE NEXT TIME * 

* THROUGH LOOP * 
***************** 



.* WAS *. 
CANCEL BG *. 
MSG GI-VEN . 
*D5 .* 



El *. 

.♦CANCEL ♦. 

.♦ FOR PROG 

. WHOSE PIB 

♦.ADDRESSED. 

*. NOW .* 



**** 

* * 

* 1 * 

* * 
**** 



*****B 3** ******** 

♦ LOAD ADDR OF ♦ 

* SUPVR ROUTINE * 

* CANCEL ATT * 
♦EXIT IN REG 11 * 

♦ (ATNCNLJ ♦HS ♦ 
***************** 



****C3********* 

* SVC 3 * 

* ATNCNL * 

* CHART FG ♦ JS * 
*************** 



**03******* 

* TURN OFF * 

* ATTENTION * 
♦REQUEST SWITCH 

♦ IN ATTN RTN ♦ 

♦ PIB ♦ 
*********** 



***** 
*TE * 
* D4* 



*****B4********** 

♦ SET REG 15 ♦ 

♦ WITH ADDR OF * 

♦ EXIT1+4 FOR * 

♦ BRANCH ♦ 

♦ ADDR ♦ 
***************** 



**C4******* 

♦MOVE X«83« ♦ 

♦TO FLAG BYTE ♦ 

♦ OF ATTENTION ♦ 

♦ ROUTINE PIB ♦ 

♦ *K5 ♦ 

*********** 



PTRXCH 

*****D4********** 
♦•EXCLUSIVE OR* ♦ 

♦ PUB BYTES ♦ 

♦ 2-6 WITH * 

♦ 'SAVE* AREA ♦ 

♦ ♦FS ♦ 
***************** 



♦ . 



♦ YES 



EXIT2 

*****p l********** 

♦ LOAD ADDR OF ♦ 

♦ AREA NOT ♦ 

♦ ACTIVE MSG ♦ 

♦ INTO REG ♦ 

♦ *G5 * 
***************** 



.*. 


EXIT1 X 


.*. 


E2 ♦. 




**£3******* 


E4 ♦. 


♦ ALL ♦ 




* SET ATTN * 


.♦ ♦. 


PROBLEM 


♦ . YES 


♦ PIB FLAG ♦ 


YES .♦ PTRXCH ♦. 


PROG PIBS 


.♦.. .. 


♦BYTE=X'81'REGS ♦ 


...♦. ENTERED VIA . 


CHECKED 


♦ . 


♦STORED, SVC Z* 


♦. 'END 1 .♦ 


*. +E5 .♦ 




♦ BOUND ♦ 


♦ . .* 


♦ . .♦ 


X 


*********** 


*. .* 


♦ NO 


***** 




♦ NO 




*TE ♦ 










♦ H2+ 










X 


♦ * 










***** 


* 
PAR41 




X... ......... 






*TE * 






* J5* 




X 






* * 




*****P3********** 


X 


* 




♦ LOAD ADDR OF ♦ 


****F4********* 


PAR45 




♦SUPVR ATTENTION^ 


♦ RETURN 






♦ EXIT ROUTINE * 


♦ TO 






* IN REG 15 * 


♦ CALLER 






* (EXT 02) * 


*************** 






********! 


********* 







Gl ♦. 


G2 ♦. 


**G3******* 


.* IS *. 


.♦ ♦. 


* TURN OFF 


.* CANCELED ♦. NO 


.* MAINTASK ♦. NO 


* PTAFTCH 


♦. PROG AREA .* 


...X^. CANCELING - ...... 


* SW IN ATTN 


♦. ACTIVE .♦ 


♦.PIBCNCL =.♦ 


* PIB SWITCH 


♦. NOW .♦ 


*.X«00'.* 


♦ BYTE 


*. .* 


♦ . .♦ X 


*********** 


*YES 


♦YES ***** 






♦ TE ♦ 








* H2* 








♦ * 






*x.« .......... 










PAR41 




SETCNCL X 








*****Hi ********** 




X 


♦ SET X«40' ♦ 




****H3******* 


♦ CANCEL CODE ♦ 




* SVC 3 


♦IN CANCEL BYTE ♦ 




♦ EXT02 


♦OF APPROPRIATE * 




♦ CHART BC 


♦ PIB ♦ 




************* 


***************** 









.♦. 

Jl ♦. 

.♦ IS A ♦. 

♦CANCEL FOR *. 

THIS PROG IN . 

♦.PROGRESS .* 

♦. NOW .♦ 

♦ . .* 

*YES 


NO 
* 


*****j2********** 

♦ MOVE X«64« * 

♦ TO PIB CANCEL ♦ 
...X+ BYTE MEANING ♦ 

♦ OPERATOR ♦ 

♦ CANCEL ♦ 
***************** 






• 


X 






**** 

* * 

* 1 * 

* * 
**** 







♦A5 
OPERATOR RESPONSES CAN BE- 

1. CANCEL Fl 

2. CANCEL F2 

3. CANCEL BG 

4. CANCEL 

REPLY 4 MEANS CANCEL BG 
PROGRAMS. BEFORE TEST FOR 
VALID REPLY REG WAS 
LOADED WITH ADDRESS OF 
NVALID STATEMENT MESSAGE. 
F REPLY PROVES INVALID, 
HIS ADDRESS WILL BE PUT 
IN CCW2 DATA ADDRESS 
FOR SYSLOG OUTPUT TO 
OPERATOR SO HE CAN 
TRY AGAIN TO GIVE A 
VALID REPLY. 



****C5*«******* 

♦ * 

♦ PTRXCH ♦ 

♦ * 
*************** 



♦D5 
BLANKS IN PROGRAM 
IDENTIFICATION PART OF 
CANCEL MESSAGE MEANS 
CANCEL ALL PROGRAMS. 



♦ E5 
COUNTER IN REGISTER 14 
SEES IF CANCEL MESSAGE 
WAS CHECKED FOR ALL 3 
PROGRAM TYPES (Fl. 
F2 AND BG). LOOP IS 
REPEATED UNTIL ALL TYPES 
ARE CHECKED. ' 



♦ F5 
THIS IS DONE THREE TIMES 
TO EXCHANGE CONTENTS 



SET TO X^FFOOOOOOOO'. 
ENTRY THROUGH END RESTORES 
PUB CONTENTS. 



♦G5 
IF PROGRAM AREA IS NOT 
NOW ACTIVE, SYSLOG IS 
USED TO OUTPUT— (1I32D 
AREA NOT ACTIVE)— MESSAGE. 



♦ H5 
A RETURN TO SUPERVISOR IS 
TAKEN TO PROCESS THE 
PROGRAM CANCEL AFTER 
WHICH CONTROL RETURNS TO 
NEXT SEQUENTIAL 
INSTRUCTION OF THIS 
A-TRANSIENT PHASE. 



REFER TO SVC3 IN 
RESIDENT SUPERVISOR 
SECTION OF THIS MANUAL 
FOR USE OF THE SVC 3. 



♦K5 
X'83* IN FLAG BYTE MEANS 
REGISTERS ARE STORED, 
ATTENTION ROUTINE IS 
ACTIVE AND NOT SVC 7 OR 
SVC 2 BOUND. ATTENTION 
ROUTINE WILL BE CALLED 
AGAIN. 
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Chart TG, $$ANERRl - Move Data to Communications Region 



**** 
* * 

* 2 * 



**** A 1 ********* 

* * 

* SSANERR1 * 

* * 
*************** 



IJBMVC33 

*****B1 ********** 

* SET SYSTEM * 

* MASK =X'FF' * 

* ALLOW I/O AND * 

* EXTERNAL * 

* INTERRUPTS * 
***************** 



*****d ********** 

* LOAD ADDRESS * 

* OF COMM. * 
*REGION ERBLOC, * 

* AND PIB * 

* TABLE * 
***************** 



**Dl******* 

* INSERT * 
*X«01' AT END * 

OF PHASNM * 
* FOR RETURN * 

* * 
*********** 



MAINTASK X 

*****A2 ******** 

* GET 

* ADDR OF 

* Fl PIB INTO 

* REG 10 



**** 



************ 



* DETERMINE 

* IF SVC 5 WAS 

* ISSUED BY FG1 
**************** 



DETERMINE 
IF SVC 5 WAS 
ISSUED BY FG2 



**** 

X 
*****D 2********** 

* CALCULATE * 

* POINTER TO * 

* CORRECT COMRG * 

* FOR THIS PART * 

* IN REG 9 * 
***************** 



.* DOES *. 
* MOVE FIT *. NO 

IN THE USER .*... 
*. AREA .* 



*****B 3** ******** 

* MOVE USER * 

* DATA INTO * 
♦COMMUNICATIONS * 

* REGION * 

* * 
***************** 



****C 3 ********* 

* SVC 3 * 

* EXT02 * 

* CHART BC * 
*************** 



****B4***** 
# 

* PSWGET 
* 

*********** 



El *. 




*****£ 2********** 


.* *. 




* GET USER * 


.* AP *. NO 




* REGISTERS * 


. SUPERVISOR .*.... 




* AND 1 FROM * 


*. .* 




* USER * 


*. .* 




* SAVEAREA • * 


*. .* X 




***************** 


*YES **=( 


* 




. * 


* 




* 1 


* 




* 


* 




**** 




X 




X 


**** PI ********** 




*****F2********** 


SAVE PIB TABLE * 




* GET ADDRESS * 


ADDR AND LOAD * 




* OF ORIGIN * 


REG 10 WITH * 




* OF AREA FROM * 


SUBTASK9 * 




* PIB * 


PIB ADDRESS * 




* * 


**************** 




***************** 



TESTSUB 

*****Gi ********** 
*PSWGET TG* 
*_*_*_*«*_*_*_*_* 

* DETERMINE IF * 

* SVC 5 ISSUED * 

* BY SUBTASK * 
***************** 



.* ALL * 
.* SUBTASK 
PIBS 
*. CHECKED 



*****jl ********** 

* LOAD REG 10 * 

* WITH ADDR * 

* OF ORIGIN * 

* OF PIB * 

* TABLE * 
***************** 



G2 *. 

.* IS *. 
* FIRST * 

BYTE WITHIN 
*. AREA .* 



*****H2********** 

* GET LENGTH * 

* OF MOVE AND * 

* INSERT IT IN * 

* INSTRUCTION * 

* "MVC * 
***************** 



*****j2********** 

* DETERMINE * 

* ADDRESS OF * 

* LAST BYTE * 

* TO BE MOVED * 

* * 
***************** 



.* IS *. 
LAST BYTE 
WITHIN 
. AREA 



* 4 * 

* * 
**** 



***E3******* 

SSM TO 

ENABLE 

EXTERNAL 

INTERRUPTS 

************ 



*****F3****** 
*SET CANCEL CODE* 

* IN PIB CANCEL * 

* FLAG=X'61« * 
♦(YIELDS-X'21 1 ) * 

* * 
***************** 



****G 3** ******* 

* SVC 3 * 

* ATNCNL * 

* CHART FG * 
*************** 



IS *. NO 
THIS AREA .*... 
. ACTIVE .* 



E4 *. 
.* IS *. 
.* THIS *. YESX 
PROGRAM .*. 
♦.CANCELED .* 



*****F4********** 

* CALCULATE * 

* ADDRESS OF * 

* LAST * 

* INSTRUCTION * 

* EXECUTED * 
***************** 



* WAS *. NO 

LAST INSTR. .*... 
*. MVCOM .* 



*****G5********** 

* SUBTRACT 16 * 

* FROM REG 10 * 
X* TO GET ADDR * 

* OF NEXT PIB * 

* * 
***************** 



****H5********* 

* RETURN VIA * 

* LINK * 

* REGISTER * 
*************** 



**** 

* * 

* 3 * 

* * 
**** 



**** 

* * 

* 2- * 
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Chart UA. $$ANERR9 - Optical Reader ERP (Part 1 of 
Refer to Chart 11. 



2) 



****A1********* 

* $$ANERR9 * 

* * 
*************** 



IJBER932 X 

*****B1 ********** 

* SSM TO * 

* ENABLE * 

* INTERRUPTS ON * 

* ALL CHANNELS * 

* * 
***************** 



*****C1 ********** 
*LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOC, PUB * 
*ENTRY f CCB, AND* 

* LAST USED CCW * 
***************** 



**** 

* * 

* 2 * 



**C4******* 

* TURN ON * 
* NONRECOVERY * 

* BIT IN CCB, 
*BYTE 3, BIT 4* 

* * 
*********** 



.* IS 


* 


YES 


.* INVALID *. NO 


*. DEVICE A 




*. . . 


....X*. SENSE BITS .*.... 


*. 1287 


* 




*. FOR .* 


*. .* 






*.1287 .* 


*. .* 






*. .* 


*NO 






*YES 
X." '. 








x 








***** 


X 






*UB * 








* H5* 


El *. 






* * 


.* * 






* 


.* INVALID 


* 


YES 


UNSUPTD 


*. SENSE BITS 




*.. . 




*.FOR 1285 


* 






*. .* 








*. .* 








*NO 








Ix... 









**E5******* 

* TURN ON * 
* DATA CHECK * 

BIT IN CCB 
♦BYTE 3, BIT 0* 

* * 
*********** 



CDATACK 

*****P3** ******** 

* INSERT X'28« * 

* CHANNEL * 
...X* DATA CHECK * 

* MESSAGE * 

* CODE * 
***************** 



* INSERT X'09 1 

* BUSOUT 

* MESSAGE CODE 
* 
*************** 



**H1******* 

* TURN ON * 

* EQUIPMENT 
* CHECK BIT IN 

♦ CCB, BYTE 3, 

* BIT 3 * 
*********** 



.* *. YES 

♦.INTERVENTION .*.... 
♦.REQUIRED .* 



.X*. NONRECOVERY 



*****H2********** 

* INSERT X«08' * 

* INTERVENTION * 

* REQUIRED * 

* MESSAGE CODE * 



***** 



********* 



**** 

* * 

* 3 * 



NONREC 

**G3******* 

* TURN ON * 

* NONRECOVERY * 

...X* BIT IN CCB, * 

♦BYTE 3, BIT 4* 



*********** 



**H3******* 

* TURN ON * 
♦PASSBACK BIT 

* IN ERQUE 
* FLAG BYTE 

* * 
*********** 



*****j3 ********** 

* * 

* INSERT X'35" ♦ 

* NONRECOVERY ♦ 

* MESSAGE CODE ♦ 

***************** 



EOUIPXIT X 

**H4******* 

* TURN ON ♦ 
♦INTERVENTION 

♦ REQUIRED 
♦BIT IN ERQUE 

* FLAG BYTE ♦ 
*********** 



*****H5********** 

♦ ♦ 

♦ INSERT 1 * 

♦ IN RETRY ♦ 

♦ COUNTER ♦ 

♦ * 
***************** 



***** 

*UB * 

* F3* 

* * 
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Chart UB. $$ANERR9 - Optical Reader ERP (Part 2 of 
Refer to Chart 11 



2) 



***** 

*UA * 

* E5* 

* * 



CMNDREJ 

*****ci********** 

* INSERT X«18' * 

* COMMAND * 

* REJECT *X. 

* MESSAGE CODE * 



*** 



i************* 



**01******* 

* TURN OFF * 
* ALLOW RETRY * 

* AND IGNORE * 
♦BITS IN ERQUE* 

* FLAG BYTE * 
*********** 



.*. 
D2 *. 
* *. 
CHAINING ♦ . YES 


.OVERRUN .*. 

03 *. 
. •* *• 
X .* RETRIED ♦ . YES 


ANNUL 

*****Q4********** 

* * 

* INSERT X'14' * 


.* 


*. TIMES .* 


* MESSAGE CODE * 



*****E3** ******** 



TAPM0DE2 .*. 





NO .* IS *. 


* ADD 1 TO 


*. DEVICE .* 


* PUB RETRY 




*. A 1287 .* 


* COUNTER 




*. .* 


* 




*. .* 


**************** 




*YES 








**** 








* * 






. 


*UA *.. 








* H5* 






X 


**** 






.*. 


RETRY 






F2 *. 


X 




.* IS *. 


****P3********* 


X YES .♦ 1287 *. 


* SVC 3 


*. IN TAPE .* 


* EXRTY 


*. MODE .* 


* CHART DD 


*. .* 


*************** 


*. .* 






♦ NO 







***************** 



**E4******* 

* TURN ON * 
♦INTERVENTION 

♦ REQUIRED BIT 
♦ IN ERQUE 

* FLAG BYTE * 
*********** 



* 1 * 

* * 
**** 



**** 

* * 

* 3 ♦ 



**G1******* 
♦ TURN ON * 

* KEYBOARD ♦ 
CORRECTION 

♦ BIT IN CCB, ♦ 
BYTE 3. BIT 1 

*********** 



**** 

* * 

* 2 ♦ 

* * 
**** 



* INSERT X'38* * 

* INVALID FONT * 

* MESSAGE CODE * 

* * 
***************** 



**j2******* 

* TURN OFF * 
* ALLOW RETRY * 

* AND IGNORE * 
♦BITS IN ERQUE+ 

♦ FLAG BYTE * 
*********** 



.♦ LATE 
.X+. STACKER 
♦. SELECT 



**H3******* 

* SET CCB * 
♦BYTE 3» Bit 6* 

* FOR LATE * 
* STACKER * 

* SELECT * 
*********** 



IS ♦. NO 
HOPPER .♦... 
EMPTY .♦ 



**K3******* 

♦ SET CCB ♦ 
♦BYTE 3, BIT 2+ 

* FOR EMPTY * 
♦ HOPPER ♦ 

* * 
*********** 



.♦INVALID^. 
* SENSE BIT ♦ 

7 FOR 1287 
*. SET .* 



.* ANY *. 
ERRORS *. 
POSTED IN . 
CCB .♦ 



CONTINUE 

**J4******* 

* TURN ON * 
♦ALLOW IGNORE 

♦ BIT IN ERQUE 
♦ FLAG BYTE 

* * 
*********** 



UNSUPTD 

*****H5********** 

* INSERT X«19' * 

* UNKNOWN ♦ 
...X^ SENSE BIT * 

* MESSAGE * 

* CODE * 
***************** 

**** 



**J5* 

* TURN OFF * 
* ALLOW RETRY * 

* AND IGNORE * 
*BITS IN EROUE* 

* FLAG BYTE * 
*********** 



**** 



*UA-H4,J3* 



**** 



****«4********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



****K5********* 

* SVC 3 * 

* SSANERRM ♦ 

* CHART RA ♦ 
*************** 



* 3 * 

* * 
**** 
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Chart UC. $$ANERR6 - Phase 1 of 2495 ERP (Part 1 of 2) 
Refer to Chart 11. 



****A1********* 

* * 

* SSANERR6 * 

* * 
*************** 



*****Bl********* 

* SET SYSTEM 
*MASK IN PSW TO 

* ENABLE INTER- 

* RUPTS ON ALL 

* CHANNELS 
**************** 



*****d ********** 

* LOAD ADDR OF * 

* COMREG, ERROR * 

* BLK, PUB TBL * 

* CCW, + RETRY * 

* CTR * 
***************** 



*****C2**** ****** 

* INSERT X«25' * 

* MSG CODE FOR * 

* PROTECTION * 

* CHECK * 

* * 
***************** 





* 2 * 

* * 
**** 


* 3 * 

* * 
**** 


B3* **. 

*. 
5 OR 7 *. YES 
BIT .*... 
.* 


UNDETR X 

*****B4********** 

* INSERT X«19' * 

* MSG CODE FOR * 

* UNDETR ERR * 


X 
ACTI0N6 .*. 

B5 *. 

NO .** CCW 
...*. ADDRESS 
*. STORED 



*********** 



*****£!********** 

* * 

* INSERT X'31' * 

* MSG CODE FOR * 

* DEV NOT OP * 

* * 
***************** 



Gl *. 



EXIT 

*****G 2 ********** 
.=* *. * GET TEB PNTR * 

TEBS *. YES * COMPUTE TEB * 

SPECIFIED .* X* ADDR + GET * 

.* *RETRY CTR ADDR * 

*. .* * * 

*. .* ***************** 



INSERT X'lO' 

MSG CODE FOR 

EQUIP CHECK 



* LIMIT 

OF RETRIES 
*. EXCEEDED . 



***** 

*UD *RETOFF 

* G4* 



*****E3 ********** 

* INSERT X'28' * 

* MSG CODE FOR * 

* CHAN DATA * 

* CHECK * 

* * 
***************** 



********* 

* * 

* GET ENTRY * 

* ADDR FOR * 

* FETCH ROUTINE * 

* * 
***************** 



****P4** ******* 

* SVC 3 * 

* EXRTY * 

* CHART OD * 
*************** 



*****p 5 ********** 

* * 

* GET ADDR OF * 

* USERS CCB + * 

* STARTING CCW * 

* * 
***************** 



****G3 ********** 

INSERT X'09« * 

MSG CODE FOR * 

BUSOUT * 

CHECK * 

**************** 



***** 
*UD * 
* G4* 



INCREMENT 

RETRY 

COUNTER 



***** j 1 ********** 

* * 

* INSERT X«24' * 

* MSG CODE FOR * 

* PROGRAM CHECK * 

* * 
***************** 



****j 3** ******* 

* SVC 3 * 
*FETCH SSANERR7 * 

* CHART UE * 
*************** 



Charts 343 



Chart UD. $$ANERR6 - Phase 1 of 2495 ERP (Part 2 of 2) 
Refer to Chart 11. 



***** 

*uc * 

* F5* 



**** 
* l * 



***# 
ZEROCT X 
*****gl**** 



* ZERO OUT * 

* REPOSITION * 

* COUNT * 

* * 

***************** 



NEXT 

COMMAND 

A TIC 



*****C2********** 

* * 

* GET ADDR * 
.X* OF NEXT CCW * 

* FROM TIC * 

* * 
***************** 



ADD CCW * 

COUNT TO * 

REPO CNT * 

* 

*************** 



El *. 

* CCW 

ADDR = 

FAILED 

ADDR 



***** PI ********** 

* * 

* SAVE CCW * 

* FLAG + ADD * 

* 8 TO CCW ADDR * 

* * 
***************** 



**** 

* * 

* 3 * 



*****B3********** 

* * 

* STORE REPO * 

* CNT IN * 

* BKSP CCW * 

* * 
***************** 



DOSVC 

*****C 3** ******** 

* MOVE PNTR TO * 
*CHANQ INTO SAVE* 
♦STATEMENT + PUT* 
*X'FF« INTO PNTR* 

* IN PUB * 
***************** 



*****Q3********** 

* MOVE CHAN * 

* SCHED FLAGS * 

* TO RESTORE * 

* INSTR FOR * 

* SAVING * 
***************** 



**** 

* * 

* 2 * 



**E3*** 

* TURN OFF * 
QUEUED ERR 

+ DEV BUSY 
IND IN PUB 

* FLAG * 
*********** 



*****F 3** ******** 

* SET RIK TO * 

* X'OOS LOAD * 

* R15 WITH ADDR * 

* OF BLD CCB * 

* * 
***************** 



****G3** ********* 



***************** 



RCHAN X 

*****B4********** 

* MOVE 1 BYTE * 

* INTO CHANQ * 

* AREA TO * 

* RESTORE * 

* CHANQ * 
***************** 



*****C4********* 

* MOVE 1 BYTE 

* INTO CHAN 

* SCHED FLAG 

* AREA TO 

* RESTORE FLAGS 
**************** 



.* UNIT 
CHECK 
♦.OCCURRED 



*****£4********** 

* EXECUTE MOVE * 

* INSTR TO * 

* RESTORE CHANQ * 

* + CHAN SCHED * 

* FLAGS * 
***************** 



*****F4******** 

* INSERT X'20« 

* ERROR ON 

* RECOVERY 

* MESSAGE 
* 
*************** 



****Q5********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



*UC-B2,B4,B5tC5, 
D1,D2,D3,G4 
***** 



**G4******* 

* TURN OFF * 

RETRY + 
IGNORE BIT 
IN ERR BLK 

* FLAG BYTE * 
*********** 



*UC 
* Fl* 
**** 
EXIT 



****H4********* 

* SVC 3 * 
♦FETCH SSANERRM * 

* CHART NA * 
*************** 



*****jl********** 

* SAVE CCW * 

* ADDR FOR * 

* USER CCB * 

* RESTART * 

* * 
***************** 



**** 

* * 

* i * 

* * 
**** 











X 


FINUP 


X 






.*. 


*****j 2 ********** 






J3 ♦. 




STORE ♦ 






.* *. 


* 


STARTING ♦ 


NO 


.* 


I/O ♦. 


* 


CCW ADDR IN * 


. ..* 




COMPLETED .♦ 


* 


USERS CCB * 




"* 


.♦ 


* 


* 
*************** 

X 






♦ . .♦ 
*. .* 
♦ YES 

X 
**** 

* * 

* * * 


*****«2********** 






* * 


* 


* 






**** 


* 


SUBT RESIDUAL * 










CNT FROM * 








* 


REPO COUNT * 









**** 

* * 

* 3 * 

* * 
**** 
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Chart UE. $$ANERR7 - Phase 2 of 2495 ERP 
Refer to Chart 11. 



* * 

* $$ANERR7 * 

* * 
*************** 



*****Bl********** 

* SET SYS MASK * 

* IN PSW TO * 

* ENABLE * 

* INTERRUPTS * 

* ON ALL CHAN * 
***************** 



*****C1 ********** 

* LOAD ADOR OF * 

* COMREG, ERROR * 

* BLK» PUB TBL, * 

* RETRY CNTR * 
***************** 



Dl *. *****D2********** 

.* *. * GET TEB PNTR, * 

.* TEBS *. YES * COMPUTE TEB * 

*. SPECIFIED .* X* ADDR, + GET * 

*. .* * RETRY CNTR * 

*. .* * ADDR. * 

*. .* ***************** 
*NO 

!x ! 

x 

MAINTR .*. 

El *. *****E2********** 

.* *. * TURN ON INTV * 

.* *- YES * REQ'D BIT * 

♦ .INTERVENTION •* X* IN ERRBLK, *. 

*. REQ'D .* * SET X«08' * 

*. .* * MSG CODE * 

*. .* ***************** 
*NO 



SETPSN 

*****F2********* 

* INSERT X'39» 

* MSG CODE 
...X* FOR POSITION 

* CHK 



**** 

* * 

* 2 * 

* * 
**** 



*****B4**** ****** 
*CNTRTN UE* 
*_*_*_*_*_*_*_*_* 

X* INCREMENT * 

* RD ERROR * 

* ENTRY CNT * 
***************** 



TEST 

POSITION 

CHK 



RETRY 
CNT LIMIT 
.EXCEEDED . 



*****D 3 ********** 
*CNTRTN UE* 
*_*-*_*_*_*_*-*_* 

* INCREMENT * 

* PERMNT RD * 

* ERR CNT * 
***************** 



*****£ 3** ******** 

* * 

* INSERT X'll' * 

* DATA CHK * 

* MSG CODE * 

* * 
***************** 



* GET ADDR * 

* OF USER'S * 

* CCB IN CCWREG * 

* * 
***************** 



*****D4********* 
* 

* INSERT X«18' 

* CMDREJ 

* MSG CODE 
* 
**************** 



* 5 * 

* * 
**** 



CNTRTN * 
* 
********* 



WERE 

TEBS 

.SPECIFIED. 



*****C5******** 

* GET 

* CORRECT TEB 

* CNTR TO 

* PROPER BYTE 
* 

******** 



*****£ 5** ******** 

* * 

* INCREMENT * 

* + STORE * 

* TEB CNTR * 

* * 
***************** 



****P5********* 

* RETURN TO 

* ADDR IN 

* LNKREG 
*************** 



* DATA * 


NO 


.* TEST *. NO 




.* USER *. NO 








CHK 


*. . . . 


*. FOR RD .*.... 


*. ACCEPT DATA .*.... 






*. .* 


. 


*. .* 




*. CHK .* 








*; .# 




*. .* 




*. .* 






**** 


*. .* 


X 


*. .* 




*. .* 






* * 


*YES 


**** 

* * 

* 3 * 

* * 
**** 


*YES 




*YES 






* 4 * 

* * 
**** 


X 




X 












N .*. 




.*. 




X 


EXITA X 


UNDETR X 


HI *. 




H2 *. 




*****H 3** ******** 


*****H4********** 


*****H5********** 


.* *. 




.* *. 




* * 


* TURN OFF * 


* INSERT X'19« * 


* RD * 


YES 


.* RETRY *. YES 




* INSERT X'lO' * 


* RETRY BIT * 


* MSG CODE FOR * 


CMD 


*.-. . 


*. CNTR LIMIT .*..X 




* POST DATA * 


* IN ERROR * 


* UNDETR * 






*. EXCEEDED .* 




* CHK IN CCB * 


* FLAG * 


* ERROR * 


*. .* 




*. .* 




* * 


* * 


* * 


*. .* 


X 


*. .* X 


***************** 


***************** 


***************** 


*NO 


**** 


*NO **** 










* * 


**** . * « 








\ **** 




* 2 * 


* * . * 5 * 








* * 


X 


* * 


* 6 *.X. * * 








. ..* 5 * 


**** 


**** 


* * . **#* 








* * 


* * 




**#* 








**** 


* L, * 


ACTION7 


X 


X 


RETOFF X 


* * 




X 


*****j 3** ******** 


*****J4 ********** 


*****j5********** 


**** 




****j2********* 


* * 


* TURN ON * 


* TURN OFF * 






* SVC 3 * 


* TURN ON * 


* IGNORE BIT * 


*RETRY + IGNORE * 






*FETCH $$ANERR8 * 


* PASSBACK IN * 


* IN ERROR * 


*BITS IN ERRBLK * 






* CHART UF * 


* ERROR FLAG * 


* FLAG * 


* FLAG BYTE * 






*************** 


* * 


* * 


* * 








***************** 


***************** 
X 


***************** 

* * 

...* 1 * 

X. * * 








**** 












MSGWTR 

X 
****« 5** ******* 






















* SVC 3 * 












♦FETCH $$ANERRM * 












* CHART NA * 
















*************** 
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Chart UF. $$ANERR8 - Phase 3 of 2495 ERP 
Refer to Chart 11. 



**** A 1 ********* 

* SSANERR8 * 

* * 
*************** 



*****g 1 ********* 

* SET SYS MASK 

* IN PSW TO 

* ENABLE 

* INTERRUPTS 

* ON ALL CHAN 

**************: 



****B4 ********** 

UPDATE STATUS * 

+ RESIDUAL * 

CT IN * 

ERQUE * 



** 



*****C1 ********** 

* LOAD ADDR * 

* OF COMREG, * 

* ERROR BLK, * 

* PUB TBLt CCW, * 

* + RETRY CNTR * 
***************** 



**C2********* 
SVC 3 * 
EXIGN * 
CHART DD * 

************* 



*****02 ********** 

* GET TEB PNTR, * 

* COMPUTE TEB * 
X* ADDR, + GET * 

* RETRY CNTR * 

* ADDR * 
***************** 



REFAIL 

*****C3******* 

* TURN OFF 

* DEVICE END 

* IN LATEST 

* STATUS 



MAINTR 

*****£!******* 

* SAVE ERROR 

* QUEUE ENTRY 

* FOR ORIGINAL 

* ERROR 
* 
************** 



*****F1********** 
*DOSVC UF* 
*_*_*_*_*_*_*_*_* 

* PERFORM * 

* BACKSPACE * 

* * 
***************** 



RECVERR X 

*****G2******** 

* INSERT X'20' 

* RECOVERY 

* ATTEMPT ERR 

* MSG CODE 



=*********** 



SETRD 

*****H1 ********** 

* COMPUTE * 

* START PT + * 

* LGTH TO * 

* FINISH USER'S * 

* READ * 
***************** 



***** 



****H2* 

* SVC 3 * 
♦FETCH SSANERRM * 

* CHART NA * 
*************** 



_*_*_*_*_* 



***************** 



**** 04 ********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



*#**A5***** 
* 
* DOSVC 

*********** 



DOSVC X 

*****g5********** 

* SAVE PTR TO * 

* CHANQ + PUT * 

* X'FF* INTO * 

* PNTR IN * 

* PUB * 
***************** 



*****C5********** 

* MOVE CHAN * 

* SCHED FLAGS * 

* TO RESTORE * 

* INST FOR * 

* SAVING * 
***************** 



**05******* 

* TURN OFF * 

* ERR + * 
DEV BUSY INDS 

* IN PUB * 

* FLAG * 
*********** 



.* . 
E3 *. 
* *. 
RESIDUAL *. NO 


SETEBL 

*****E4 ********** 

* SET UP ERR * 

* BLK AS IF * 


X 
*****E5 ********* 

* SET RIK TO 

* X'OO', LOAD 


EQUAL .* 
*. .* 
*. .* 


* ERR HAS * 

* OCCURRED * 
***************** 


* OF BLD CCB 

* MAKE RO NON-0 
**************** 



*****F 3** ******** 

* RESTORE ORIG * 

* ERROR + * 
*. INCREMENT * 

* ERROR RETRY * 

* COUNT * 
***************** 



****G3********* 

* SVC 3 * 
♦FETCH SSANERR7 * 

* CHART UE * 
*************** 



*****j3 ********** 

* FIND NEXT * 

* CCW + PLACE * 

* ITS ADDR IN * 

* USERS CCB * 



**** 



[************ 



*****K2********** 

* SAVE * 

* STATUS * 

* SAVE CNT * 

* FROM LATEST * 

* READ * 
***************** 



****« 3** ******* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



****P4********* 

* SVC 3 * 
♦FETCH SSANERR7 * 

* CHART UE * 
*************** 



****P5**« ******** 



***************** 



*****H5********** 

* MOVE 1 BYTE * 

* INTO CHANU * 

* AREA TO * 

* RESTORE * 

* CHANQ * 
***************** 



*****j5********** 

* MOVE 1 BYTE * 

* INTO CHAN * 

* SCHED FLAG * 

* AREA TO * 

* RESTORE FLAGS * 
***************** 



*«5********* 
* 
RETURN * 
* 
****** 



**** 

* * 

* 1 * 



346 DOS Supervisor and Related Transients 



Chart UG. $$ANERAI - Phase 1 of 1017/1018 Paper Tape ERP 
Refer to Chart 12. 



* i * 

* * 
**** 



* 5 * 

* # 
**** 



****A1********* 

* * 

* $$ANERAI * 

* * 

*************** 


.* *. 
.* CHAINING *. 
*. CHECK 

*. .* 
*. .* 
*. .* 
*NO 


YES 

*. . . . 

X 

**** 

* * 

* 2 * 

* * 








.* ♦. 

.* BROKEN *. 

*. TAPE .* 

*. .* 

*. .* 

*. .♦ 

*N0 




X 










X 


X 

**Bl******* 

* * 

* SSM TO * 


.*. 
B2 *. 

.*" DEVICE "*. 

*. = . 

*. 1018 .* 

*. PUNCH.* 

*. .* 

*YES 


NO 








.*. 
B4 *. 
.* *. 
NO .* COMMAND *. 
...♦. REJECT .* 
*. .♦ 
♦ . .* 
X ♦. .* 
**** *YES 

* ♦ 

* 2 * 

* * 
*♦*♦ 


* INTERRUPTS * 

* * 

*********** 






















X 
*****d ********** 

* LOAD ADDRESS * 

* OF COMREG * 

* AND * 

* ERROR BLOCK * 

* * 
***************** 


X 

*#C2******* 

* PREPARE * 

* SENSE MASK- * 
* -OVERRUN * 

* -LOST DATA * 
♦BROKEN TAPE* 

*********** 


DV1017 X .. 

**C3******* 

* PREPARE * 

*SENSE MASK — * 

* -OVERRUN- * 

* LOST DATA * 

♦BROKEN TAPE* 

*********** 


COMRJT X 

*****C4********** 

* INSERT X'18« * 

* COMMAND * 

* REJECT ♦ 

* MESSAGE * 

* CODE ♦ 

***************** 



*****D1********** 

* LOAD ADDRESS * 

* OF PUB AND * 

* GET ADDRESS * 

* OF CHANNEL ♦ 

* QUEUE POINTER * 
***************** 



***** ei ********** 

* LOAD ADDRESS * 

* OF CCB AND * 

* SAVE IT FOR * 

* NEXT * 

* PHASE * 
***************** 



*****P1********** 

* GET ADDRESS * 
*0F CCW CAUSING ♦ 

* INTERRUPT * 

* AND MOVE IT ♦ 

* TO CCB * 
***************** 



ADD ONE 

TO RETRY 

COUNTER 

IN PUB 



D2 *. 

.* ERROR *. 

.♦CORRECTION 

FEATURE 

*. PRESENT . 



**E2******* 

* ADD * 
-DATA CHECK 

TO SENSE 
MASK 

* * 
*********** 



**D4******* 

* TURN OFF * 
ALLOW RETRY 
AND IGNORE 

BITS IN 

* ERR. FLG ♦ 
*********** 



**E3******* 

* ADD— * 
-BUSOUT 

CHECK 
TO SENSE 

* MASK ♦ 
*********** 



****E4********* 

* SVC 3 * 
♦FETCH $SANERRM * 

♦ CHART NA ♦ 
*************** 



INVALID 
SENSE 
DATA 



UNDETERR 

*****p 3** ******** 

♦ ADD ♦ 

♦ INSERT X«19' ♦ 
...X^ UNDETERMINED ♦. 

. ♦ MESSAGE CODE ♦ 

♦ * 
***************** 



EQPCHK 

*****G 3 ******* 

♦ INSERT X'lO* 

♦ EQUIPMENT 
...X^ CHECK 

♦ MESSAGE 

♦ CODE 
************** 



**** 

* * 

* 3 ♦ 

* ♦ 
**** 



♦ SET ON 
♦ INTERVENTION 
♦REQUIRED BIT 
♦IN ERR FLG ♦ 
*********** 



**B5******* 

♦ TURN ON * 
ALLOW RETRY 
AND IGNORE 

BITS IN 

* ERR FLG ♦ 
*********** 



**C5******* 

♦ SET ON ♦ 
BROKEN 

TAPE BIT IN 
BYTE 3 

♦ OF CCB * 
*********** 



*****05********* 

♦ INSERT X'40' 

♦ BROKEN 

♦ TAPE 

♦ MESSAGE 

♦ CODE 
**************** 



.♦RETRIES*. 
GREATER ♦ 
THAN 
TWO .♦ 



.*. 




.*. 














.♦. 


BUSRETRY .♦. 


HI *. 




H2 * 












H4 *. 


H5 ♦. 


.* *. 




.* 


* 










.♦ ♦. 


.♦ ♦. 


.* CHANNEL *. 




.* 




*. 


YES 






YES .♦ INITIAL *. 


YES .♦ INITIAL ♦. 


DATA .♦ 


* 


•INTERVENTION 
♦.REQUIRED .♦ 


♦ . . . . 








*. SELECTION .* 


...♦. SELECTION .♦ 


♦. CHECK .♦ 






♦ . .♦ 


♦ . .♦ 


♦ . .♦ 




♦ . 


* 












♦ . .♦ 


*. .♦ 


*. .* 




♦ . .♦ 






X 








♦ . .♦ 


X ♦. .♦ 


*YES 




♦ NO 






*** 
* 

* 3 
* 


* 

* 
* 
* 






♦ NO 


**** *NO 

* * 

* 8 * 

* * 


!x. .......... . 




X 






**** 






*x. ........ 








" '. X 






.♦. 










X 


UPDATCCW X 


.*. 


X 




J2 ♦ 










*****j 3** ******** 


*****j4********** 


J5 ♦. 


**** j i ********* 




.♦ 


* 








♦ INSERT X'08' ♦ 


* * 


.♦ *. 


_ SVC 3 * 




.♦ BUSOUT 




*. 


YES 




♦ INTERVENTION ♦ 


♦ UPDATE * 


. YES .♦ WRITE ♦. 


FETCH SSANERAJ * 


* 


CHECK 






♦ . . . . 




* REQUIRED ♦ 


♦ INTERRUPTED ♦ 


♦. COMMAND .* 


CHART UH * 




♦ . 




*' 






♦ MESSAGE ♦ 


♦ CCW ♦ 


♦ . .♦ 


*************** 




♦ . 


* 








* CODE * 


* * 


♦ . .♦ 






♦ . .♦ 






X 




***************** 


***************** 


♦ . .♦ 






♦ NO 






* 

♦ 4 
* 


* 
* 
* 


X 

**** 


**** 

♦ * 

♦ 8 ♦... 

♦ * . 


♦ NO 

Ix 






X 










* * 


**** 








.♦. 










* 7 * 




BSOUTMSG X 






K2 ♦. 










* * 


X 


*****K5 ********** 






.♦ 


* 








**** 


****K4********* 


* * 




YES 


.* DATA 




*, 








♦ SVC 3 ♦ 


♦ INSERT X'09« ♦ 




.. .* 


CHECK 
*. 




*" 


* 






♦ EXRTY ♦ 

♦ CHART DD ♦ 


♦ BUSOUT CHECK ♦ 

♦ MESSAGE CODE ♦ 






*. 


* 












*************** 


♦ * 



*************** 
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Chart UH. $$ANERAJ - Phase 2 of 1017/1018 Paper Tape ERP (Part 1 of 2) 
Refer to Chart 12. 



* * 

* SSANERAJ * 

* * 
*************** 



* * 
SSM TO 

ENABLE ALL 
INTERRUPTS 

* * 
*********** 



*****C2********** 

* LOAD ADDRESS * 

* OF COMREG, * 

* ERRBLOC, CCB * 

* AND PUB TABLE * 

* * 
***************** 



CHANNEL 
DATA 
CHECK 



YES .* RETRIES * 
...*. GREATER THAN 
*. THREE .* 



* 1 * 

* * 
**** 



**G1******* 

* BUILD * 
CHANNEL 

PROGRAMS 
BACKSPACE 1 

* * 
*********** 



DEVICE 

= 1018 

PUNCH 



**G2******* 

* * 
SET ON 

DATA CHECK 
BIT IN CCB 

* * 
*********** 



DOES 
USER WANT 
. RETURN . 



****j2********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



.* RETRIES * 
.GREATER THAN 
*. TWO .* 



CHNDTEX 

*****G3** ******** 

* INSERT X'28« * 

* CHANNEL * 

* DATA CHECK * 

* MESSAGE * 

* CODE * 
***************** 

**** 



**H3******* 

* TURN OFF * 
ALLOW RETRY 
AND IGNORE 

BITS IN 

* ERR FLG * 
*********** 



****G4********* 

* SVC * 

* EXRTY * 

* CHART DD * 
*************** 



**** 

* * 

* 1 * 



DTEXIT X 

*****E5********** 

* INSERT X«ll' * 

* DATA CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



F5 *. 

.* ALLOW *. 

NO .*IGNORE BIT 

...*. IN BYTE 2 

*. OF CCB . 



**G5******* 

* SET ON * 
DATA CHECK 
BIT IN BYTE 

3 OF CCB 

* * 
*********** 



**H5******* 

* TURN ON * 
♦ALLOW IGNORE 

* BIT IN 
* ERR FLG 

* * 
*********** 



****J3********* 

* SVC 3 * 
♦FETCH SSANERRM * 

* CHART NA * 
*************** 
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Chart UJ. $$ANERAJ - Phase 2 of 1017/1018 Paper Tape ERP (Part 2 of 2) 
Refer to Chart 12. 



***** 

*UH * 
* Gl* 



*****B2********** 

* SAVE INDEX * 

* TO CHANQ * 

* AND CHANNEL * 

* SCHEDULER * 

* FLAGS * 
***************** 



*#C2******* 

* TURN OFF * 

♦QUEUED ERRORS* 

* AND DEVICE * 

♦BUSY BITS IN * 

CHAN SCHD FLGS 

*********** 



*****Q2********** 

* SET RIK TO * 

* X'00' AND * 

* STORE ADDRESS * 

* OF CCW IN CCB * 

* * 
***************** 



****E2*********** 



**** 

* * 

* l * 



****C5********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



RCHAN . X 

*****04********** 

* RESTORE * 

* INDEX * 

* TO * 

* CHANQ * 

* * 
***************** 



*****E4********** 

* RESTORE * 

* CHANNEL * 

* SCHEDULER * 

* FLAGS * 

* * 
***************** 



NO .* CHAN 
...♦. QUEUE 
♦.OVERFLOW 



**** 



ERROR 

*****G 2** ******** 

* RESTORE * 

* INDEX TO * 

* CHANQ AND * 

* CHAN SCHD * 

* FLAGS * 
***************** 



*****H2 ********** 

* INSERT X'20' * 

* ERROR ON * 

* RECOVERY * 

* MESSAGE CODE * 

* * 
***************** 



**J2******* 

* TURN OFF * 
ALLOW RETRY 
AND IGNORE 

BITS IN 

* ERR FLG * 
*********** 



****K2 ********* 

* SVC 2 * 
♦FETCH SSANERRM * 

* CHART NA * 
*************** 



*****G4********** 

♦ UPDATE ♦ 

♦ THE ♦ 

♦ INTERRUPTED ♦ 

♦ CCW ♦ 

♦ * 
***************** 



****H4****^+^* 

♦ SVC 3 ♦ 

♦ EXRTY * 

♦ CHART DD * 
*************** 
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Chart UK. $$ANERSA - 3211 Printer ERP (Phase 1) (Part 1 of 4) 
Refer to Chart 12. 



♦••»A1*»«»»* 
» SSANERSA 



CHANNEL 
DATA 
CHECK 



ALLOW I/O, 

EXTERNAL 
INTERRUPTS 



SET 
MESSAGE 
CODE TO 
INTERV 
REQ *H4 



••••»C1*»»«»»*»«« 


C2 *. 


» GET ADDRESS * 




» OF COMREG • 


.» BUS *. YES 


« AND ERROR * 


». OUT ...... 


« RECOVERY * 


♦. CHECK .» 


» BLOCK » 






• . .• X 




•NO *•#•• 




• UM » 




» Bl* 












X BUSOUT 


X 




•••••oi«» 


D2 *. 






» GET USERS » 


.• DATA *. YES 


» CCB * 


*. CHECK ...... 


» ADDRESS « 


». . * 








». .• X 




•NO »•••» 




• UM • 




• A4* 










X 


X DATCHK 






El ♦ . 


E2 •. 






.* CHANNEL *. NO 


.• BUFFER ». YES 


*. 9 OVERFLOW .«... 


•. PARITY ...... 




». CHECK .♦ 








». .» X 


#YES 


•NO ••••• 




• UL • 




• Bl« 










X 


BUFPAR 




X 


Fl #. 


•»F2«»««*»» 




• SET • 


.»*USER CCB "*. NO 


* MESSAGE » 


*. AVAILABLE .*..X 


• CODE TO COMM * 




* REJCT • 


*. .* 


• »H4 • 


**YES 






X 


X 




••Gl*»*»»»» 


G2 •. 


* POST * 




• CHANNEL • 


.** COMMAND '». YES 


» 9 OVERFLOW » 


*. REJECT 


» IN CCB • 


«. . • . 








• . .» X 




•NO ••»•• 




*UL • 


.X 


♦ HI* 


X 








• * 


ACTION1 


• 1 * 


X 




»»H2*»»*«»* 




♦ SET ♦ 




» MESSAGE • 




• CODE TO LOAD * 




* CHECK *H4 a 




*»«*»»»»*»*«* 



•»C4**»*»»» 

• SET 
MESSAGE 
CODE TO 

UNDETR ERR 

* »H4 



ACTION2 X 

♦*C5**»***» 

• SET • 
•INTERVENTION 

• REQUIRED IN 
• ERQUE 

• FLAGS * 



• EXIT TO OBR 
•RECORD BUILDER 

* $$ANERRM 



OP08 INTERV REQ 
0P18 COMM REJCT 
0P19 UNDETR ERR 
0P41 LOAD CHECK 
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Chart UL. $$ANERSA - 3211 Printer ERP (Phase 1) (Part 2 of 4) 
Refer to Chart 12- 



*»B1****»* 
• SET 

* MESSAGE 
CODE TO 

* BUFFER 
•PARITY »J4 



CHNDAT X 

♦»C3«»«***« 
* SET * 
» MESSAGE 
• CODE TO CHAN 
» DTCHK 
» *J4 # 



NO .» USER CCB *. 




.» BUFFER ». 


YES 


.* INITIAL 




YES 


....*. AVAILABLE .• 




♦. READ 




». SELECTION 








































X 






X 


♦ YES 




• NO 




.NO 












• UM • 








• UM • 








• F2« 








♦ Cl» 






































X 


ACTI0N8 








ACTI0N3 


'. X 




ACTION5 .•. 












«»E1«****»« 




E2 •. 




























* POST LINE • 

» POSITION * 

* IN CCB » 




.* USER CCB ». 
»• AVAILABLE 


NO 













































**»YES 




• F4» 








'. X 














• F4 






X 


ACTI0N7B ) 






UM-B4,C4,G4 


'. Fl* "*. 




• »F2« 




*»F3« 




UN-F1 


.• DOES ». 




• POST LINE • 










.* USER ». 


YES 


• COMPLETE • 




• DISALLOW 






». WANT .» 




» PARITY 




* RETRY 






•.PASSBACK .» 


. 


• CHECK • 




• 


• 




















X 












• NO 
















• UM 
















• H4 


















X 
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Chart UM. $$ANERSA - 3211 Printer ERP (Phase 1) (Part 3 of 4) 
Refer to Chart 12. 
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Chart UN, $$ANERSA - 3211 Printer ERP (Phase 1) (Part 4 of 4) 
Refer to Chart 12. 
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Chart UP. $$ANERSB - 3211 Printer ERP 
Refer to Chart 12. 
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Chart UQ. $$ANERSC - 3211 OBR Record Builder (Part 1 of 
Refer to Chart 12. 
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Chart UR. $$ANERSC - 3211 OBR Record Builder (Part 2 of 2) 
Refer to Chart 12. 
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Chart VA. $$RASTOO - Initial MCAR/CCH Analysis (Part 1 of 4) 
Refer to Figure 54. 
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Chart VB. $$RASTOO - Initial MCAR/CCH Analysis (Part 2 of 4) 
Refer to Figure 54. 
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Chart VC. $$RASTOO - Initial MCAR/CCH Analysis (Part 3 of 4) 
Refer to Figure 54. 
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Chart VD. $$RASTOO - Initial MCAR/CCH Analysis (Part 4 of 4) 
Refer to Figure 54. 
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Chart VE. $$RASTO0 - Subroutines 
Refer to Figure 54. 
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Chart VF. $$RAST01 - MCAR/CCH Record Builder (Part 1 of 5) 
Refer to Figure 54. 
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* FILE FULL 

* MESSAGE IN 

* RASMSG2 
**************** 



* TURN OFF 

* RECORDER FILE 

* FULL BIT IN 

* RASMSG2 
**************** 



*****H1 ********** 
♦MOVE CHARACTER * 
*'A' TO LOCATION* 

* 2 TO INDICATE * 

* RECORDING * 
♦ATTEMPTED *H3* 
***************** 



***** j i ********** 

* * 

* RELOCATE * 

* CCW * 

* ADDRESSES * 

* * 
***************** 



.♦ CHANNEL *. YES 
♦CHECK RECORD TO*.... 
*. BE. RECORD.* 



*N0 

X 

***C 2 ********** 

SET UP RECORD ♦ 

NUMBER FOR ♦ 

MACHINE CHECK * 

RECORD ♦ 


***** 
*VH ♦ 
* Bl* 

* * 
* 

WRITEREC 







****** 2 ********** 

* * 

* GET ADDR 75 ♦ 

* FROM MCIC ♦ 

* AND SAVE IT * 

* * 
***************** 



* CALCULATE ♦ 

♦ TOTAL LOGOUT ♦ 

♦ LENGTH ♦ 

* * 
***************** 



*****G 2 ********** 
♦CALCULATE TOTAL* 

♦ NUMBER OF ♦ 

♦ MACHINE CHECK * 

♦ RECORDS TO BE ♦ 

♦ BUILT * 
***************** 



*****H2********** 

* * 

* STORE TOTAL ♦ 

* NUMBER IN ♦ 

* MACHINE CHECK * 

* RECORD ♦ 
***************** 



*****£ 3** ******** 

* PICK UP * 

* EXTENDED * 
.X* LOGOUT LENGTH ♦ 

* FROM LOCATION * 

* 236 * 
***************** 



*H3 
SEE FIGURE 3 FOR 
LOW CORE ERROR 
BYTE USAGE. 



*****J3********** 



**** 

* * 

* 2 * 



♦CLEAR 75 BYTES 

* OF RECORD 

* BUILD AREA 



*****C4 ********** 

* * 

* MOVE SYSTEM * 

* STATUS BYTE * 

* INTO RECORD * 

* * 
***************** 



FINDTOD X 

*****D4 ********** 

♦GETIME VK* 
*_*_#_*-*_*-*_*-* 

♦ GET CURRENT ♦ 

♦ TIME OF DAY * 

♦ * 
***************** 



*****E4********** 

* * 

* STORE THE ♦ 

* TIME OF DAY ♦ 

* IN RECORD ♦ 

* * 
***************** 



*****F4** ******** 

♦ * 

♦ PUT DATE AND ♦ 

♦ MODEL NUMBER ♦ 

♦ IN RECORD ♦ 

♦ * 
***************** 



*****C4 ********** 

* * 

* PUT SERIAL ♦ 

* NUMBER AND * 

* MC OLD PSW * 

* IN RECORD * 
***************** 



*****H4********** 

* * 

* GET PIK OF * 

* INTERRUPTED * 

* TASK * 

* * 
***************** 



***** 
*VG * 
* B2^ 



.X* 



POST TIMER * 
DAMAGE MSG * 

* BIT IN * 

* RASMSG1 * 
***************** 



**** 

* * 

* 1 * 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart VG. $$RAST01 - MCAR/CCH Record Builder (Part 2 of 5) 
Refer to Figure 54. 



MOVE ASSUMED 

TASK ID 

INTO RECORD 



GET ADDRESS 

OF PIB 

EXTENSION 



PROBLEM 

PROGRAM 

PIB 



GET THE 

SAVE AREA 

ADDRESS 



MOVE TASK 
ID INTO 
RECORD 



* POINT TO 

» COMM REGION 
•OF INTERRUPTED 

• TASK 



MOVE DOS/370 

(ASSUMED JOB 

NAME) INTO 

RECORD 



.* IS «. YES 

•REGISTER5 EQUAL*.... 
♦. TO ZERO .« 



GET ADDRESS 

OF BACKGROUND 

COMM REGION 

IN REG 5 



MOVE JOB 

NAME INTO 

RECORD 
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Chart VH. $$RAST01 - MCAR/CCH Record Builder (Part 3 of 5) 
Refer to Figure 54. 



*A2 
VF-B2 
VG-J2.F4 
VK-F2.C3 



GET CURRENT 

FILE ADDRESS 

FROM OBRCUR 



SET THE GUARD 

BYTE IN THE 

RECORD 



•SAVE REGISTERS 
» 0-7 IN 
» SAVEREGS 



PUT I/O 

REQUEST ID 

IN RTAID 



NO .* LAST 
...». RECORD ON 
*. TRACK . 



LAST 

TRACK ON 

.CYLINDER 



GET ADDRESS 

OF CCW CHAIN 

IN REG 8 



UPDATE 
RECDRD 
NUMBER 



UPDATE TRACK 

AND RECORD 

NUMBERS 



UPDATE 

CYLINDER 

NUMBER 



POST ACCEPT 

UNRECOVERABLE 

I/O ERROR BIT 

IN CCB 



RESTORE ALL 

SAVED 

REGISTERS 



SAVE UPDATED 

FILE ADDRESS 

IN OBRCUR 



UPDATE TRACK 

AND RECORD 

NUMBERS 



» SYSTEM * 

TERMINATION 
♦.SITUATION.* 



STORE CCW 

ADDRESS IN 

RTAIOB 



POST UNRECOV- 
ERABLE I/O 
ERROR BIT IN 
RASMSG 2 



POST RECORDER 

FILE FULL MSG 

BIT IN 

RASMSG 2 



SAVE ADDRESS 
OF RTAIOB 
IN REG 8 



GET ADDRESS 
OF RESIDENT 
I/O ROUTINE 
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Chart VJ. $$RAST01 - MCAR/CCH Record Builder (Part 4 of 5) 
Refer to Figure 54. 



TURN OFF 

WRTCCREC BIT 

IN LD01SL0T 

IN RASTAB 



TURN OFF 
MCHDONE 
BIT IN 
MCFLAGS 



* SYSTEM •. NO 
TERMINATION .»... 
«. SITUATION.* 



NO .• ANY ». 
...». MESSAGE BITS -• 
». POSTED .« 



» ACTIVATE * 
•MESSAGE WRITER * 
* SSRASTll * 



•Jl 

LOADLIST IS 
FIRST 48 BYTES 
OF RASTAB. SEE 
FIGURE 60. 



VF-D1.F1.G1 

VH-G3.G4 

VK-B3.G4 



POINT TO 

NEXT ENTRY 

IN LOADLIST 

• Jl 



UPDATE INDEX 

INTO LOADLIST 

IN REG 3 



• SCAN ♦ 

OF LOADLIST 
•.COMPLETE .* 



PREPARE TO 

LOAD FIRST 

PHASE IN 

LOADLIST 



•DEACTIVATE THE 

• CHOSEN PHASE 

• IN LOADLIST 



YES .• CHANNEL • 
...•.CHECK RECORD 
•JUST RECOR-» 
». DED .• 



GET LOGOUT 

ADDRESS OF 

LAST BYTE 

RECORDED 



PREPARE TO 

FETCH 

$$RAST02 



POST SYSTERM 

BIT IN 

LDOOSLOT 



PREPARE 
TO FETCH 
$$RAST00 



• POST LAST 

• TRACK MESSAGE 
•BIT IN RASMSG2 

• IN RASTAB 

*D5 



♦ D5 
RASMSG2 IS 
IN RASTAB. SEE 
FIGURE 60. 



FETCH THE 

SELECTED 

ROUTINE 
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Chart VK. $$RAST01 - MCAR/CCH Record Builder (Part 5 of 5) 
Refer to Figure 54. 



UPDATE 
RECORD 
BUILDER 



.» LAST *. 
.* CHANNEL » 
.CHECK RECORD 
♦.RECORDED .» 



• SAVE REG 2 
•AND GET DEVICE 

* ADDRESS FOR 
» SYSREC 



GET LENGTH OF 

LOGOUT TO BE 

MOVED FOR 

NEXT RECORD 



***D1»«»»»»«» 

GET ADDRESS 

FROM WHICH 

NEXT RECORD 

IS TO BE 

BUILT 



SAVE THIS 

ADDRESS IN 

LOGOUT 



PUT NUMBER 

AT LENGTH 

INTO EXECUTE 

INSTRUCTION 



POST ALL 
RECORDS 

BUILT IN 
MCFLAGS 



BUILD ANOTHER 

CHANNEL CHECK 

RECORD 



• Bl» 

« * 

WRITEREC 



»«***C4********* 

• STORE CCW 
•ADDRESS IN CAW 
•FOR ERROR SIO. 

• SET MAX RETRY 

• COUNT TO 255 



GET ADDRESS 

OF ERROR SIO 

ROUTINE 



GET TIMER 

AND TIME 

OF DAY 



• CALCULATE 

• CURRENT TIME 
•OF DAY IN REG 



•**D5*»»»»»« 

RETURN VIA 

LINK REG 



GET LENGTH OF 

LOGOUT AREA 

STILL TO BE 

RECORDED 



EXECUTE MOVE 
INSTRUCTION TO 
BUILD MACHINE 
CHECK RECORD 



RESTORE REG 2 
(RAS LINKAGE 
AREA ADDRESS) 



»»***G1*********« 

» DECREASE • 
• THIS LENGTH • 
» BY 76 » 



• RETRY «. YES 

COUNT .*.... 
•.EXHAUSTED.* 



****»H4*«*»*»»«»» 
•MOVE CHARACTER • 
*•!' TO LOCATION* 

♦ 2 TO INDICATE • 

♦ RECORDING • 

♦ INCOMPLETE • 



*»»**J3** *•••••** 
•MOVE CHARACTER • 
••A' TO LOCATION* 

• 2 TO INDICATE «X. 

• RECORDING • 

• SUCCESSFUL • 



J4 



IF 
ONE 

ON .» MCHDONE ♦. 
...•OR CCHDONE BITS* 
*. ON .♦ 



•IF 

.NEITHER 
.X.ON 
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Chart WA. $$RAST02 - Nonresident Channel Check Handler (Part 1 of 3) 
Refer to Figure 54* 



**A1********* 
$$RAST02 



*#**A5**X'****** 

* * 

* SUPREO * 



INITIALIZE 

REGISTERS AND 

SET OWNER OF 

LTA IN 

INSTRUCTION 

*************** 



YES .* EMERGENCY 

*. SITUATION 

*. EXISTS . 



*****E1********** 



************ 



YES .* PAST * 
X...*. THE DAMAGED 
*. CHANNEL .* 



* * 

* 

BLDREC 



.* IS *. 
.* A CCB *. 

.QUEUED TO THE.* 
*. PUB .* 



****C3********** 



***************** 



03 *. 

.* IS *. 

* THIS A * 

DISK DEVICE 



*****£ 3 ********** 

* * 

* SAVE PUB * 

* ADDRESS FOR * 

* RESTARTING * 

* THE CHANNEL * 
***************** 



RESET THE 

BUSY BIT IN 

THE PUB 



*****B5********** 

* SAVE RTA * 

* REGS AND * 
*BASE REG, LOAD * 

* SYSTEM BASE * 

* REGISTERS * 
***************** 



****C5********* 

* RETURN VIA * 

* LINK REG 5 * 

* * 
*************** 



*****F5********** 

* * 

* POST $$RAST10 * 
♦ACTIVE AND SET * 
*UP SOFT MESSAGE* 

* CODE * 
***************** 



.*. 

Gl *. 

.* IS *. 

.* THIS PUB *. 

*. ON DAMAGED . 

*. CHANNEL .* 



* UPDATE * 

* POINTER TO * 

* NEXT PUB * 

* * 
***************** 



**** 
* 
* 2 



*****H5 ********** 

* * 

* SET UP HARD * 

* ERROR * 

* MESSAGE CODE * 

* * 
***************** 



***************** 
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Chart WB. $$RAST02 - Nonresident Channel Check Handler (Part 2 of 3) 
Refer to Figure 54. 



MOVE 
REQUESTER ID 
TO SAVREQIO. 
GET PUB ADDR 



FINOTASK X 
•FINDCCB 



.• A REQUEST •. 
.QUEUED TO THE. 
». PUB .• 



*»#*F2»»» • 

LOAD CANCEL 

CODE INTO 

REG 7 AND 

LOAD REG 5 

WITH XCANRASA 



RESTORE RTA 
BASE AND 
REGISTERS 



FIND THE CCB 



POST CCB 

COMPLETE WITH 

ERROR 



NOCANCEL .*. 

J2 ». 
.» ANY *. 
.« MORE *. NO 
*. REQUESTS FOR .»... 
». PUB .« 



••»»E3*»**»*»« 

RESTORE REGS 

AND RESET 

BUSY IN THE 

PUB 



» IS «. 

THIS AN 
•ERP REQUEST* 



ATTENTION 

ROUTINE 

. REQUEST . 



NO .» WILL USER 

,..«. ACCEPT I/O 

*. ERRORS . 



POSTPIB 


X 
















POST PIB 




• NOT 


-SVC7-B0UND 


* 








* 




• 




X 












D4 *. 












IS » 


NO 




CHANNEL 




*. 


DAMAGED .* 


X 



* H2» 
UPDPUB 
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Chart WC. $$RAST02 - Nonresident Channel Check Handler (Part 3 of 3) 
Refer to Figure 54. 



»A2 
WA-CliDl,Fl 
WB-D4 



RESET 

DAMAGED 

CHANNEL BYTE 



»»»*B3»******»* 

STORE CHANNEL 

ID AND 

CHANNEL 

NUMBER 



SET NULL IN 

DEVICE TABLE 

TO FORCE 

NO SUPPORT 



LOOK FOR 

AN ACTIVE 

ERPIB 



*«*»D1******** 

SAVE LOGOUT 

ADDRESS, PUT 

DEFAULT NAME, 

POST RECORD 

BUILT FLAG 



.*. 




BLDREC1 X 


C2 *. 




»*»»»C3***»**»*»* 


VALID *. 




•PUT CPUID.DATE,* 


COMMAND ». 


NO 


« TIME,ESCW, * 


ADDR IN 




•CHANNEL ID, AND» 


CSW .« 




• ACTIVE I/O * 






•UNITS IN RECORD* 


*. . » 


X 





CHANNEL 
DAMAGED 
ERPIB 



• STORE CHANNEL 

• ID AND 
•DEVICE ADDRESS 



Gl *. 

• IS 

CCB 

QUEUED 

TO THE 

*. PUB . 



GET COMMAND 

ADDRESS 

FROM 

CSW 



E2 *. 
.• DOES • 
NO .» COMMAND 
...». ADDRESS 

*. EXIST 



SUBTRACT 8 
TO POINT TO 
FAILING CCW 



♦YES 



•FINDCCB W 
• FIND THE CCB 



GET ADDRESS 
OF FIRST 

CCW 



.* IS *. 

CCW 

ADDRESS 

•AVAILABLE. 



•MODIFY MACHINE 

• CHECK PSW TO 

• RETURN TO 

• MCRETURN 



•••*»J2********** 

• PUT CCW INTO • 

• RECORD AND • 
•RESTORE MACHINE* 
« CHECK PSW • 



LOAD ADDRESS 
OF SCHREC1 
INTO REG 7 



E3 •. 
.» IS ». 

.* THIS A ♦. YES 
•DAMAGED CHANNEL*... 
•- ERPIB .» 



**«D4****» 
CLEAR 



***E4******* 

CLEAR ERPIB 

AND POST 

IT 

WITH X'FE" 



ISOLATE 

THE DEVICE 

TYPE 



G3 *. 
* IS 
DEVICE 



•PUT REQUESTER'S* 

• ID IN THE • 

• ERPIB • 



GET ADDRESS 

OF DEVICE 

TABLE 

MINUS 1 



• DOES *. 

DEVICE TYPE .* 
*. MATCH .* 
*. PUB .* 



POST PROPER 
ERP ACTIVE 
MESSAGE BIT 



UPDSCAN X 

»»**»G5******** 

* UPDATE TO 

* NEXT ENTRY 

* IN THE TABLE 



END 
OF 
TABLE 



POST CANCEL 

CODE IN THE 

ERPIB 
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Chart WD. $$RAST02 - Subroutines 
Refer to Figure 54. 



*A2 
WC-J4.J5 
WA-J5 



* GET THE ADDR 
•OF FIRST ERPIB 

* AND LOGOUT 

* AREA 



SET UP 
RECORD 
HEADER 



*A5»»»»* 
GETCOM 



GETCOM X 

•GET ADDRESS OF 

• PIB AND COMM 

• REGION, PUT 

• DEFAULT NAME 
» IN RECORD 



CI ». 
.♦ IS ». 

• THIS A 
FREE ERPIB 



El •. 
.* HAS «. 

YES .» THE ERPIB *. 
...♦.BEEN CANCELED. 



* HAS ♦ . 

A RECORD 
♦BEEN BUILT.* 



» UPDATE TO 

.X* NEXT ERPIB 

• AND LOGOUT 

• AREA 



MODEL 
CPU 



»«*«C4*«»**»*» 

RESTORE REGS 

AND GET 

LENGTH OF 

LUBID QUEUE 



CHANGE TOTAL 

RECORDS 

FROM 1 TO 3 



♦SET UP TO CALL 

♦ SSRASTOl AND 

♦ POST $$RAST02 



♦GET ADDRESS OF 

• FETCH ROUTINE 

♦ IN REG 5 



♦UPDATE TO TASK 

♦ ID. LOAD 

♦ REG 7 WITH 

♦ LTD VALUE 



PUT REQUESTER 

ID AT 

SAVREQID 



.* PROBLEM 

PROGRAM 

♦. REQUEST 



RETURN VIA 
LINK REG 8 



A RECORD 

TO BE 

WRITTEN 



SET UP TO 

CALL 
SSRASTOO 



PUT ♦ 

SUPERVISOR ID » 

AT SAVREQID * 



SET SYSTEM 

TERMINATION 

FLAG 



PUT ID OF 

LTA OWNER 

AT SAVREQID 
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Chart WE. $$RAST03 - Machine Check Repair / 
Refer to Figure 54. 



EFL Functions (Part 1 of 4) 



****A1********* 

* * 

* $$RAST03 * 

* * 
*************** 



*B1********** 



***************** 



HANOLEMC 

*****£ 1********** 

* TURN OFF * 

* MACHINE CHECK * 

* ACTIVE IN * 

* LDOOSLOT IN * 

* RASTAB * 
***************** 



*****B 3** ******** 

* * 

* GET MAIN * 

* STORAGE * 

* ECC/EFL INFO * 

* ADDRESS * 
***************** 



*****C 3 ********** 
*EFLRTN WJ* 
*_*_*_*_*_*_*_#_* 

* CHECK IF * 

* EFL REACHED * 

* * 
***************** 



H1RRTN X 

*****C4******** 
♦EFLRTN W 
*_*_*_*_*_*-*_* 

* CHECK IF 

* EFL REACHED 
* 
*************** 



YES 


* HARD 


*. 


. ..* 


MACHINE 


.* 




*. CHECK . 


* 




*. .* 




X 


*. .* 




***** 
*WG * 
* B2* 


*NO 








* * 






* 






STGERR 


X 




*****£! ********** 


* 


INDICATE 


* 


* 


SOFT CHECK 


* 


* 


IN RASMSG2 


* 


* 


IN RASTAB 


* 



***************** 



*****F1 ********** 

* * 
*GET ADDRESS OF * 

* HIR/EFL * 

* INFORMATION * 

* * 
***************** 



.* CORRECTED *. NO 
STORAGE .*... 
*. ERROR .* 



* 2 * 

* * 

**** 



. . .*. 


MODEL 


* 


155 




*. . 


X 


*. .* 


***** 


*YES 


*WF * 




* B2* 




* * 


X 


* 


**** 


T145RTN 


* * 




* 1 * 




* * 




**** 



***** 

*WH * 
* Bl* 



*****£ 3** ******** 

* * 

* POST ECC * 

* MESSAGE IN * 

* RASMSG2 * 

* * 
***************** 



*****F 3** ******** 

* POST QUIET * 

* MODE STATUS * 

* IN MCMODE * 

* * 
***************** 



«****G3** ******** 

* TURN OFF * 

* RECORDING * 

* MODE STATUS * 

* IN MCMODE * 

* * 
***************** 



*****H3** ******** 

* * 

* DIAGNOSE * 

* INSTRUCTION * 

* FOR QUIET * 

* MODE * 
***************** 



*****E4** ******** 

* * 

* POST HIR * 

* MESSAGE IN * 

* RASMSG2 * 

* * 
***************** 



*****F4** ******** 

* * 

* POST QUIET * 

* MODE STATUS * 

* IN MCMODE * 

* * 
***************** 



*****G4«* ******** 

* TURN OFF * 

* RECORDING * 

* MODE STATUS * 

* IN MCMODE * 

* * 
***************** 



*****H4** ******** 

* * 

* MASK ALL * 

* SOFT MACHINE * 

* CHECKS * 

* * 
***************** 



X 

***** 
*WH * 
* Bl* 
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Chart WF. $$RASTQ3 - Machine Check Repair / 
Refer to Figure 54. 



EFL Functions (Part 2 of 4) 



T145RTN .». 








B2 ». 








» ARE ». 




NO 


REGION CODES 


». 






VALID 




• 


*. 


». .»" 


* 


X 












• YES 




*WH » 








• Fl« 
























EXITRTN 




X 
C2***». 
















ERROR IN 








CONTROL 






*. 


STORAGE . 


» 



» THRESHOLD *. NO X 

MODE SET IN .* 

». REGION .» 
• ..CODE .* 



* POST ECC * 

• MESSAGE FOR • 
•CONTROL STORAGE* 



•GET ADDRESS OF 

• ECC/EFL 

• INFORMATION 



TURN OFF MS 
RECORDING AND 
CS RECORDING 
AND THRESHOLD 
IN MCMODE »D5 



•POST QUIET MODE* 

• FOR MS AND CS • 

• IN MCMODE • 



PUT MS AND CS 

INTO QUIET 

MODE 



♦»»»»F2» 

• TURN OFF 

• RECORDING AND 
•THRESHOLD MODE 

• BITS IN 

• MCMDDE 



POST CONTROL 
STORAGE QUIET 

MBDE IN 

MCMODE 



• 


»»«»F3»««**» 


• ••* 


• 


EFLRTN 


WJ« 








« 


CHECK IF 


* 




EFL 




* 


EXCEEDED 


* 




) 














G3 ». 










NO 


.• EI : L 




. .• 


. EXCEE 


IDED 


• • 



• Fl* 
EXITRTN 



POST ECC 

MESSAGE 

IN RASMSG2 
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Chart WG. $$RAST03 - Machine Check Repair / EFL Functions (Part 3 of 4) 
Refer to Figure 54. 



STORAGE 

PROTECT 

ERROR 



MODEL ». NO 
155 .»..X 
CPU •• 



NO -» REGION 

X..*. CODES 

». VALID 



YES .* ERROR 
X..*. IN CONTROL 
*. STORAGE . 



GET FAILING 
STORAGE 
ADDRESS 



NO . 


» 


MULTIPLE • 




...» 




ECC 


. • 




* 


'*. .»"* 




X 












• YES 




»WH » 








* B3» 






























SPFKREP 














X 






»«D4*****»*»** 














FORCE FSA 






TO DOUBLEWDRD 








ALIGNMENT 




*« 






t * 



• VALIDATE 

• STORAGE BY 
« MOVING ONES 
» AND ZEROS 

• INTO FSA 



F3* 



RESTORE 

»»*»»F4»**»«»**« 

* RESTORE 

• ADDRESS IN 

» MACHINE CHECK 
» NEW PSW 



SAVE RETURN 

ADDRESS IN 

MACHINE CHECK 

NEW PSW 
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Chart WH. $$RAST03 - Machine Check Repair / EFL Functions (Part 4 of 4) 
Refer to Figure 54. 



*A4 
WG-C2.E2.F2 
WG-G2tF<t 
WE-D3.D4 
WE-H3,H4 
WJ-FltH3 



• POST C40 * 
•BUFFER DELETION* 

• MESSAGE IN * 

• RASMSG2 * 



####D1********* 

ACCUMULATE 

NUMBER OF 

PAGES DELETED 

IN BUFDEL 



• K2* 
EXITRTN 



ANY 
MESSAGES 
.REQUIRED 



••♦#G1******** 

ACTIVE 

SiRASTll FOR 

MESSAGE 

WRITING 



•»«H1»«****** 
GET RASTAB 
ADDRESS AND 
INITIALIZE 
LOOP COUNT 
TO 12 



IS 

PHASE 

.ACTIVATED. 



»»*«»C2 # »»******* 

» POINT TO NEXT * 
•LOAD LIST ENTRY* 
• »K5 » 



INCREMENT 

INDEX REG 3 

BY ONE 



LOOP 

COUNT 

.EXHAUSTED. 



PREPARE TO 

FETCH 

$$RAST00 



X.. 



LOADMOD 

♦DEACTIVATE THIS* 
•CHOSEN PHASE'S • 
* ENTRY IN * 
♦LOADLIST «C5» 



###»«H2* *» 

•GET ADDRESS OF 
•RESIDENT FETCH 
« ROUTINE IN 
* REG 7 



RETURN X 

##»«*B5********* 

* RESTORE 

* ■ ADDRESS IN 

* MACHINE CHECK 

* NEW PSW 



GET SYSTEM 

KEY FOR 
BACKGROUND 



SET THE KEY 

FOR THE 

PARTITION 



SET UP LOOP 

COUNT IN 
REG TO 3 



* FSA = LOW * 

BOUNDARY OF 
♦.PARTITION.* 



•»«*05********* 
LOAD MACHINE 
CHECK NEW PSW 



•ENTER RESIDENT 
SEVERITY DETECT 
ROUTINE, CHART HA. 



• F<t» 
RESTORE 



REDUCE 

PARTITION KEY 

BY 16 



PREPARE 
TO FETCH 
$$RAST09 



*HB » 
* Fl» 

CALLRTA 





#«J1«»»»»«* 




• 








SET INDEX 






REG 3 TO 






ZERO 




* 




* 



* Fi* 
CALLRTA 



LOADLIST IS FIRST 
48 BYTES OF RASTAB. 
REFER TO FIGURE 60. 
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Chart WJ. $$RAST03 - Subroutines 
Refer to Figure 54. 



*Al********* 
EFLRTN 



**A3***** 
GET I ME 



FIRST 
CHECK FOR 
. GROUP . 



*****D1 ********** 

* * 

* SAVE TIME OF * 

* DAY FOR * 

* THIS GROUP * 






NOTFIRST X 

*****£!********** 

* UPDATE SOFT * 

* MACHINE CHECK * 

* COUNT FOR * 

* THIS GROUP * 

***************** 



*****C3** ******** 

* POST CLOCK * 

* DAMAGED * 

* MESSAGE BIT * 

* IN RASMSG2 * 

* * 
***************** 



CLEAR 

MCMODE 

BYTE 



******** 



YES .* CPU 

*. MODEL 

*. 155 



NO 


* COUNT *. 


. . .* 


THRESHOLD . 




*. REACHED .* 




*. .* 


X 


*. .* 


***** 


*YES 


*WH * 




* Bl* 






* * 






* 






STGEXIT 






X 


*****G1 ********* 


*GETIME WJ 




-# — # — #«.$— # — # — # — 


*" 


GET CURRENT 


* 


TIME C 


DF DAY 



*****F2********** 

* DIAGNOSE * 

* INSTRUCTION * 

* TO PUT MAIN * 

* STORAGE INTO * 

* QUIET MODE * 
***************** 



QUIET145 

*****F 3** ******** 

* PUT MAIN AND * 
^CONTROL STORAGE* 
*INTO QUIET MODE* 

* AND POST THAT * 

* IN MCMODE * 
***************** 



*****C4********** 

* STORE CLOCK * 

* TO GET * 

* CURRENT TIME * 

* OF DAY * 

***************** 



ERROR 
ON STORE 
. CLOCK 



*****E4********** 

* * 

* GET CURRENT * 
*TIME OF DAY IN * 

* REGISTER 6 * 

* * 
***************** 



***F4******** 

RETURN VIA 

LINK REG 



*****H1 ********** 

* CLEAR SOFT * 

* MACHINE CHECK * 

* COUNT FIELD * 
*FOR THIS GROUP * 



*****jl*** ******* 

* CALCULATE * 

* ELAPSED TIME * 

* SINCE FIRST * 

* CHECK * 

* * 
***************** 



****«1** ******* 

* RETURN VIA * 

* LINK REG * 

* * 
*************** 



MODESTAT X 

*****G 3 ********** 

* MASK ALL SOFT * 
^MACHINE CHECKS * 

* VIA CONTROL * 

* REG 14 *' 

* * 
***************** 



*****H3** ******** 

* POST QUIET * 
*STATUS FOR ECC * 

* MAIN AND * 

* HIR IN * 

* MCMODE * 
***************** 
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Chart XA. $$RAST04 - Unit Record Channel Check ERP (Part 1 of 4) 
Refer to Figure 54. 



*«A1«»««»» 
$$RAST04 



DEVICE 

A 3210 OR 

3215 



DO COMMON 
INITIALIZE 

AND SCAN 



* DEVICE • 

A 1442N1 OR 
♦. 1442N2 .* 



CI *. 

••RETURN •. 
YES .• FROM •. 
MESSAGE .• 

•• WRITER •• 

X "•• .•* 

••••• •HO 

• XB • 
» A4» 


YES .•' 

X 

• XB • 

♦ B2* 

R2501 
CUPDATI 


C2 •. 

DEVICE 

A 

2501 

'•NO 


ARETURN '. 
X 
••Dl******* 

• INITIALIZE • 

• FOR ERPIB • 

» SCAN • 

» * 


X 

►*D2«*«»»»» 

UPDATE 

TO NEXT 

ERPIB 








X 
CSCAN .•. 

El *. 

.»** END **». YES 


XEXIT 


E2* *•. 

• ANY •• 

MESSAGES < 


*. ERPIBS .• 




WRITTEN . 



NO OP 
OR ALARM 
. COMMAND 



SEQUENCE 
CODE 
. 100 



SEQUENCE •. NO 
CODE Ollt .•.., 
. 101,111 •• 



•INITIALIZE 

• REGISTERS 
.X» FOR ACTIVE 

* MODULE 
♦ SCAN 



Fl ». 

♦ IS • 

THIS AN 
ERPIB 

ENTRY 



• HAS THIS 

ENTRY BEEN 
•.RECORDED . 



X 

*«H1«««»«*« 

GET PUB 

ENTRY FOR 

DEVICE IN 

ERROR 



DEVICE • 

1403.1403U 

. OR 1443 .» 



DEVICE 
A 2540R 
.OR 2540P 



•F2****»» 

RESET 

MESSAGE 

REQUEST 

SWITCH 



ACTIVATE 
CHANNEL 

CHECK 
HANDLER 



**«H2*«««»»« 

SET MODULE 

FETCH ID 

TO ERP 

MESSAGE 

WRITER 



• THIS 

MODULE 
•.ACTIVATED. 



*G3«*»»** 

UPDATE 

TO NEXT 

MODULE 

ENTRY 



•*»J2******** 

GET ADDRESS 

OF RMS 

FETCH 

ROUTINE 



• HB » 

• Fl« 

CALLRTA 



SET MODULE 
FETCH ID 

TO MCAR/CCH 
ANALYZER 



•DEACTIVATE 
MODULE 
TO BE 
FETCHED 



♦ 1 * 
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Chart XB. $$RAST04 - Unit Record Channel Check ERP (Part 2 of 4) 
Refer to Figure 54. 



RESET 
MESSAGE 
WRITER 
RETURN 
SWITCH 



DO COMMON 
INITIALIZE 
AND SCAN 



YES .• 


READ * 




(NO FEED) 


. * 


. COMMAND .» 






X 






• NO 


»xc » 




• C5» 












ACTIONS 


X 




Dl *. 






YES .» 


SEQUENCE * 




CODE 010, 


* 


OR 111 .» 



DO COMMON 
INITIALIZE 
AND SCAN 



SEQUENCE 

CODE 

001 



RESTORE 

MODULE 

REGISTERS 



»B5 
XA-B4.C4.D4 
XC-C1.D1.E2, 

E3,F1 
XD-J2 



* 


R2501B .». 


D2 *. 


D3 ». 






• SEQUENCE •. NO 


.» SENSE 


CODE ...... 


....X*. COMMAND 


». 100 .» 





ACTI0N5 

* PLACE*FAILING 
» CCW AND 

* LUBID IN 
» RAS I/O 

* BLOCK 



SET POINTER 
TO RAS 
I/O BLOCK 



•05 
XA-D4 

XC-D3,E1,E3,F1 
XD-G3 



SEQUENCE 

CODE 

001 



SEQUENCE 

CODE 

100 



R2501A 

NO 



.♦TERMINATION*. y ES 
CODE •* • • • 
*. 01 •* 



SEQUENCE 

CODE 

Oil 



**** 

* * 

* 1 * 



* * 

* 3 * 



» FEED • 
SELECT 
STACKER 
COMMAND 



SAVE DEVICE 
I/O STATUS 
FROM PUB 



» GO TO RAS 
• I/O ROUTINE 
•FOR CHAN RETRY 



Gl • • 




G2 *. 


FEED ». 






SELECT •. YES YES 


.» SEQUENCE 


STACKER 


.«....x....« 


CODE 


COMMAND .» 


•• Oil 










X 




• NO 




• NO 


X 


*xc • 

* C5* 








X 








* » 


ACTIONS 


• » 




CHANNEL 
ERROR ON 
. RETRY 



.X. 



0N3 X 
»»»»F5«»«»*»« 
PLACE CODE 
FOR 0T12I 

MESSAGE 
IN ERPIB 



«*G5* 

SET 
MESSAGE 

TO BE 

ISSUED 

SWITCH ON 



PLACE 
CANCEL 
CODE IN 

ERPIB 



• PLACE CODE 

• FOR 0T10I 

• MESSAGE IN 

• ERPIB, 

• REQUEST CLEAR 



•»J5**«»*» 

ACTIVATE 
CHANNEL 

CHECK 
HANDLER 



«*K4» 

• SET 
MESSAGE TO 

BE ISSUED 
SWITCH 

• ON 



• D2* 
CUPDATE 
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Chart XC. $$RAST04 - Unit Record Channel Check ERP (Part 3 of 4) 
Refer to Figure 54, 



RPRNTR X 
•RCOMMON 



DO COMMON 
INITIALIZE 
AND SCAN 



R1442 X 
«»*»«B2*»» 
•RCOMMON 



DO COMMON 
INITIALIZE 
AND SCAN 



»A5 
XB-C1,E3,F3, 
61. G2 



SEQUENCE 
CODE 001 
. OR 100 



»XB * 
* C4» 

ACTI0N5 
NO .« 



SEQUENCE 

CODE 

010 



YES .* SEQUENCE 
...«. CODE 
». 001 



SEQUENCE 

CODE 

100 



•TERMINATION* 

CODE 00 
*. OR 01 •• 



• YES 


• *••# 


• NO * 




• XB • 






• H5» 






















X 


ACTION2 














Fl •. 
















WRITE ». 








(ONLY) .« 








COMMAND .• 
























• YES 








* 




...X 


.X 



ACTION* X 

•»«**C5******** 

• PLACE CODE 
» FOR 0T13A 

• MESSAGE IN 

• ERPIB 

• FORCE ACTION 



PLACE THIS 
MODULE'S ID 

IN THE 
ERPID BYTE 



SAVE 

MODULE 

REGISTERS 

FOR RECALL BY 

MSG WRITER 



#F5**»»«* 

SET 

MESSAGE 

WRITER 

RETURN 

SW ON 



• C4« 
ACTI0N5 
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Chart XD. $$RAST04 - Unit Record Channel Check ERP (Part 4 of 4) 
Refer to Figure 54. 



THIS ROUTINE PERFORMS 
COMMON INITIALIZATION 
AND SEQUENCE CHECKING. 



***#*B2 ********** 

* * 

* GET ERROR * 

* RECOVERY * 

* BLOCK * 

* * 
***************** 



IS 
DEVICE 
QUEUED 



*****02********** 

* # 

* GET * 

* FAILING * 

* CCW * 

* * 
***************** 



*****{= 2 ********** 

* DETERMINE * 

* ABSOLUTE * 

* LUB ID * 

* ADDRESS * 

* * 
***************** 



*****F2********** 

* ISOLATE * 

* SEQUENCE * 

* AND * 

* TERMINATION * 

* CODE * 
***************** 



**C3******* 

* RESET * 
DEVICE 
BUSY IN 

PUB 

* * 
*********** 



CLEAR AND 
FREE 
ERPIB 



.* INITIAL *. NO 


.* VALID *. NO 


*. SELECTION .* 


...X*. CCW .*..-. 


*. ERROR .* 


*. ADDRESS .* 


*. .* 


*. .* 


*. .* 


*. .* X 


*YES 


*YES ***** 




*XB * 




* F5* 




* * 
* 




X ACTION3 


RCOMMONB X 


.*. 


*****H2** ******** 


H3 *. 


* * 


.* *. 


* GET * 


.* TIC *. YES 


* CCB * 


*. COMMAND .*.... 



***************** 



*****J2********** 

* * 

* GET * 

* CCW * 

* CHAIN * 

* * 
***************** 



SEQUENCE 
CODE 000 
. OR 110 



***** 
*XB * 
* C4* 



****«3********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 
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Chart XE. $$RAST05 - 2520 Channel Check ERP (Part 1 of 3) 
Refer to Figure 54. 



»A1******* 
$$RAST05 



RETURN 

FROM 
MESSAGE 
•WRITER.* 



INITIALIZE 

FOR ERPIB 

SCAN 



• 2 •...X. 
CUPDATE X 



UPDATE 

TO NEXT 

ERPIB 



R2520 


X 








»«B4»««*»» ► **• 


•RC0MM0N 


XG» 










• 


DO COMMON 




• 




INITIALIZE 








AND SCAN 

X 
C4***». 






YES .* 


SEQUENCE 


* 






CODE 






* 


001 


* 





» Dl» 
ACTI0N5 



El •. 

END 

OF 

ERPIBS 

'•NO 



Fl *. 

« IS » 

THIS AN 

ERPIB 

ENTRY 



Gl ». 
.« HAS «. 

•THIS ENTRY 

BEEN 
►.RECORDED . 



GET PUB 
ENTRY FOR 

DEVICE 
IN ERROR 



IS 
DEVICE 
. 3211 



.♦DEVICE *. 
• 2520B1, 

2520B2, OR 
•. 2520B3 . 



*YES 

X 

* * 

• 1 * 



E2 *. 

.* ANY • 

MESSAGES 
TO BE 
. WRITTEN 



»F2*»«*** 

RESET 

MESSAGE 

REQUEST 

SWITCH 



».G2*»»««» 

ACTIVATE 

CHANNEL 

CHECK 
HANDLER 









»»* 














• . .* 


XF 

• F5 


G 


X 






*»#H2****«* 






SET MODULE 






FETCH ID 






TO ERP 






MESSAGE 




• » 


WRITER 


• «»* 



•INITIALIZE 

REGISTERS 

FOR ACTIVE 

MODULE 
• SCAN 



F3 •. 

.• THIS ». 

MODULE 

ACTIVATED 



•G3»****» 

UPDATE 

TO NEXT 

MODULE 

ENTRY 



GET ADDRESS 

OF RAS 

FETCH 

ROUTINE 



• Fl* 
CALLRTA 



SET MODULE 

FETCH ID TO 

MCAR/CCH 

ANALYZER 



#«K3*«***** 

•DEACTIVATE 

MODULE 

TO BE 

FETCHED 



R2520C .•. 

F5 ». 
•• READ ». 
YES .• WITH • 
...♦. CONTROL 

•. COMMAND .• 



.•TERMINATION*. YES 


CODE 10 




». OR 11 










X 


•NO 






• XF • 




• Dl» 










X 


ACTI0N5 






H5 •. 




.• WRITE • 




.5 WITH NO 


--. YES 


CONTROL 




*. COMMAND 










X 


• NO 






• XF ♦ 


X. 


* B3* 


X 








♦ XF * 


ACTI0N3 


♦ C5* 












ACTION* 
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Chart XF. $$RAST05 - 2520 Channel Check ERP (Part 2 of 3) 
Refer to Figure 54. 



RESET 
MESSAGE 
WRITER 
RETURN 
SWITCH 



RESTORE 

MODULES 

REGISTERS 



PLACE FAILING 

CCW AND LUBID 

IN RAS 

I/O BLOCK 



CHANNEL 
ERROR ON 
. RETRY 



»*#»C2**»*»»»*» 

PLACE CODE 

FOR 0T10I 

MESSAGE 

IN ERPIB 

REQUEST CLEAR 



*»D2*»»**»» 

* SET 

MESSAGE TO 

BE ISSUED 

SWITCH 

» ON 



ACTI0N3 X 

»»*»»B3»»**»»* 
» PLACE CODE 

• FOR 0T12I 
» MESSAGE 

• IN ERPIB 



**C3*»»»«*« 

« SET 

MESSAGE TO 

BE ISSUED 

SWITCH 



ON 



»»*D3» 

PLACE 

CANCEL CODE 

IN 

ERPIB 



PLACE CODE 

FOR OT13A 

MESSAGE IN 

ERPIB, 

FORCE ACTION 



»»«D5«»*«»**« 
PLACE THIS 
MODULE'S ID 

IN THE 
ERPIB BYTE 



SET POINTER 
TO RAS 
I/O BLOCK 



SAVE 

DEVICE I/O 

STATUS 

FROM PUB 



» D2» 
CUPDATE 



ACTIVATE 
CHANNEL 

CHECK 
HANDLER 



SAVE MODULE 

REGISTERS 

FOR RECALL BY 

MESSAGE 

WRITER 



•F5»»»**« 

SET 

MESSAGE 

WRITER 

RETURN 

SW ON 



GO TO I/O 

ROUTINE FOR 

CHANNEL RETRY 



« H2» 
XMSG 



XE-D5,E4,G5 
XG-J2,C4,F4 
XG-G4,H4,E5 
XG-G5.H5 
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Chart XG. $$RAST05 - 2520 Channel Check ERP (Part 3 of 3) 
Refer to Figure 54. 



RCOMM0N 



X 

##B2»»»»*» 

GET 

ERROR 

RECOVERY 

BLOCK 



DO COMMON 
INITIALIZE 
AND SCAN 



IS 
DEVICE 
QUEUED 



RESET 

DEVICE 

BUSY IN 

PUB 



SEQUENCE 
CODE 001 
. OR 100 



GET 

FAILING 

CCW 



•♦E2*****»» 

DETERMINE 

ABSOLUTE 

LUB ID 

ADDRESS 



•***F2********* 

ISOLATE 

SEQUENCE AND 

TERMINATION 

CODES 



INITIAL 

SELECTION 

. ERROR . 



CLEAR AND 
FREE 
ERPIB 







X 












G3 ». 








NO . 


* 


VALID 


• • . •*. 




CCW 


* 


* 


ADDRESS 

• • 


X 






• •**• 




• YES 


• XF « 






• B3» 


















ACTI0N3 




X 
H3* "». 






TIC 


*. 




COMMAND 



SPACE 


* 


YES 


COMMAND 


# 


*• • • . 


. .* 






#. .* 






• NO 






X 












F4 *. 












SKIP 






COMMAND 


* 


* . 














• YES 






!x... 







R3211A 
YES .•* 



GET 

CCW 

CHAIN 



SEQUENCE 
CODE 000 
. OR 110 



• Dl« 
ACTIONS 



• READ OR 

DIAGNOSTIC 
». COMMAND . 



WRITE ♦. YES. 
(ONLY) .«..X. 
COMMAND .• 



SEQUENCE 
CODE Oil 
. OR 101 



♦ 03* 
ACTI0N2 



RETURN TO 

CALLING 
SEQUENCE 
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Chart XH. $$RAST07 - Channel Check Handler, Tape ERP (Part 1 of 2) 
Refer to Figure 54, 



*»*A1 

$$RAST07 



; 




INITIALIZE » 
REGISTERS • 




I 




STEP INDEX ♦ 

TO NEXT ♦ 

ERPIB * 








LO 


Ix 






"; 




ERRO 


X 

ALL *"«. 

ERPIBS .» 
. TESTED .» 


rES 


ERR2C 


)0 


C2****. 

ANY *♦. YES 


» SET UP 
» TO CALL 
* $$RAST10 








.TO PRINT .* 





NO .» RECORDED 
...». ON 

». SYSREC 



D .» PJB • 
X...». DEVICE TYPE 
•EQUAL TAPE.* 



.». 


ERR210 X 


Dl *. 


»»»»»D2**»»*»»**» 


.» IS ». 




NO .» THIS AN *. 


» SET LOAD » 


..». ERPIB .» 


* MODULE INDEX » 


». ENTRY .* 


* TO $$RASTOO » 


». . » 


» • 







LOAD 

THIS 

MODULE 



STEP INDEX 
TO NEXT 
MODULE 



SET UP 
TO LOAD 
$$RASTOO 



.X 



* FL» 
CALLRTA 



E3 ». 
.» IS » 

CCW READ 
OR WRITE 



PUT ERROR 

CCW ADDR 

IN GR9 



SAVE GR9 

AS RETRY 

CCW 

ADDRESS 



SET 

REPOSITION 

CCW TO 

BSB 



IS 

CCW 
RDB 



SET 

REPOSITION 

CCW TO 

FSB 



IS 

CCW 

TIC 



CCW CTL 

OR MODE 

SET 



♦ XJ » 

» Bl» 

ERR070 



»«»*H4»*»*»«*»» 

SET UP MSG 

0T12I 

UNRECOVERABLE 

CHANNEL ERROR 

ON X'CUU' 



SET UP 

TO 
CANCEL 



••*A5**«»«**» 

GET ERBLOC 

ADDRESS AND 

CLEAR 

RTAIOB 



YES .» SIO 
...«. STORED 
». CCW 



WAS 

SENSE 

STOREO 



F5 ». 

» CCW » 
ADDR IN 
CSW = 



NO 
X... 



PUT AODRESS 

OF ERROR CCW 

IN GR7 



FIND AND 

SAVE 
LUB INDEX 



FIND ERROR 

CCB STARTING 

CCW ADDR 

IN GR9 



HJ-F1,G5,H5 



SIO 

STORED 

CCW 



ERR150 *XJ 
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Chart XJ. $$RAST07 - Channel Check Handler, Tape ERP (Part 2 of 2) 
Refer to Figure 54. 



CLEAR ALL 

CODES 

EXCEPT TERMS 

AND RETRY 



.* T=00 


• 


. NO 




.* T=00 


* 


NO . 


«. R=001 


# 






...X«. R=010 


.» 




































1 » *. .* 






»YES 






» 


« »YES 
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* K5« .X... 






















X 






ERR150 X 








.ERR080 .*. 
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D2 ». 




















* SET UP TO 
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* SIO TO 








...... WRITE 
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* 




* 




». .* 














*»N0 


































* 2 «... 




































X 






ERR153 X 




















E2***». 




















» DO 












YES 


RETRY SIO 








». READ 






* 








*. 


.« 


X 










**NO 






























• 4 » 










* 3 #... 




















X 






















ERR090 .«. 




ERR093 


Fl* **. 








F2 *. 




##*#*F3»»»**»»»*« 














» DEQUEUE • 


NO .* SIO 








.« WAS 




NO * CCB AND * 


...». OK 








». COMMAND 




X* FREE • 


. *. 


# 






*. CHANGED 


. * 


* ERPIB » 
















X *. .* 








». .* 







•♦»*G1»»**»»*»* 

SET UP 

MSG OT10I 

CHANNEL ERROR 

RECOVERY 

ON X'CUU* 



GET NEXT CCW 

ADDRESS AND 

SAVE FOR 

RESTART 



* B2» 
ERR015 



NO ,* IS 

..«. NEXT 

*. COMMAND 
». TIC .* 



GET 

RESTART 

FROM 

TIC 



145 




ERR140 


.*. 


«»*»«J3»***»»*« 








J4 *. 












* SET UP FOR 


• 


YES . 




*. 


« WRITE ENTRY 


*X... 


*••••* 




WRITE .» 


* BSB-ERG-TIC 


* 




* 


. RETRY .* 


•«»•••*•»••••*• 


#« 






*** *** 


. 








• NO 


.X 










X 






• •*• 










* • 










• 2 » 








X 
















* 




SET UP FOR « 

READ » 

RETRY * 

SPACE-TIC « 








»»**•*»*••»••• 



H5 ». 

WRITE 



X 
1 « 



« H4* 
ERR160 
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Chart XJA. $$RAST09 - Dynamic Reallocation of Partition (Part 1 of 2) 
Refer to Figure 54. 



$$RAST09 



DEFINE 

REGISTER 

USAGE 



RELOCATE 
ADDRESSES 



DYNREALQ 

» GET NUMBER 

• OF PARTITION 
..X» BLOCKS FROM 

• PIBCORNO 



GET START 

ADDRESS OF 

PARTITION 



DETERMINE PIK 
OF PARTITION 
WITH FAILING 
STORAGE ADDR 



*POST PARTITION 

* REALLOCATED 

* IN LD09SL0T 



•COMPUTE NUMBER 
» OF 2K BLOCKS 

• IN BG AND 

• SAVE IT 



COMPUTE 

END ADDRESS 

OF BG 



SAVE END 
ADDRESS FOR 
MESSAGE AND 
STORE IT IN 

BG COMREG 



•MOVE PARTITION 
» ID INTO 
• MESSAGES 



NO .• BG • 




...». LESS THAN 




». 10K .» 








X ». .• 




»•**• *YES 




»XJB» 




• G2« 












WRITEMSG 




BGBAD X 




*»»»»G2*»*««**« 








• SET UP 


» 


• MESSAGE AND 




« CCWS 




* 


* 


«*»• 








•XJB *... 




» H3» 








DRAPIO X 




*##»»H2»»*«*«*« 








• GET ADDRESS 




• OF ERPIB 




• QUEUE 




**•••*•*»*••**» 


* 



• •••C3*"»«"*« 

CALCULATE END 

ADDRESS OF 

PARTITION AND 

MAP TO PROPER 

COM REGION 



END 

ADDR GT 

FSA 



SAVE NUMBER 

OF 2K BLOCKS 

IN PI3 AT 

PIBCORNO 



SAVE NEW END 

ADDR IN A 

SAVE AREA AND 

IN THE COM 

REGION 



• G2* 
WRITEMSG 



•»B5*»***«« 
SAVE THE 
RAS TABLE 

ADDR AT 

SAVER1 



•SET REQUESTOR'S* 

• ID (X«05'J • 

* IN RTAID * 



GET PUB 

ADDRESS FROM 

ERPIB 



EQUAL OR •**•• 

LOWER «XJB» 

• B2» 



INCREASE 

START ADDR 

BY 2K 



RESTORE RAS 
TABLE ADDR 
FROM SAVER1 



EXITRTN 

*»»#»F5»«*»*«»« 

• TURN 
•OFF $$RAST09 - 

• IT HAS I/O 

• OUTSTANDING 

• BIT 



DECREASE 

END ADDR 

BY 2K 



PREPARE 
TO FETCH 
$$RASTOO 



DECREMENT 
COUNTER IN 
REGISTER 8 



INDICATE 

$$RAST09 

HAS I/O 

OUTSTANDING 



• MOVE ADDR 

• OF FIRST CCW 

• INTO RTAIOB 



• Fl* 
CALLRTA 
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Chart XJB. $$RAST09 - Dynamic Reallocation of Partition (Part 2 of 2) 
Refer to Figure 54. 



MOVE 
C'LOWER' 
INTO MSG1 



PUT NEW START 

ADDR IN PIB 

AND IN A 

SAVE AREA 



**»«»D2********* 
» MOVE CONTENTS 

* OF CURRENT 
♦PARTITION SAVE 

♦ AREA TO NEW 

• SAVE AREA ADDR 



*#**«E2********* 

* PUT NEW 
•PARTITION SAVE 
» AREA ADDRESS 

• IN PIB 



***»F2********* 

PUT NUMBER 

OF 2K BLOCKS 

FOR PARTITION 

IN PIB 



MOVE BOUNDARY 

ADDRESS INTO 

MSG1 



•MOVE PARTITION 

• SIZE INTO 

• MSG1 



MOVE WRITE 

COMMAND INTO 

MSG2CCW 



NO-OP MSG1- 

CCW AND SET 

CCW TO ISSUE 

MSG2 



♦ MAP TO PIB 
•OF INTERRUPTED 

• TASK 



•MOVE PARTITION 

• ID INTO 

• MSG1 AND MSG2 



DEACTIVATE 

BATCH 
ENVIRONMENT 



• XJA» 
« H2* 

DRAPIO 
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Chart XK. $$RAST10 - ERP Message Writer (Part 1 of 
Refer to Figure 54- 



3) 



****A1********* 

* * 

* $$RAST10 * 

* * 
*************** 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 2 * 



SET UP * 

BASE REGS * 

USAGE * 

* 

************** 



*****ci********** 



* GET ADDRESS 

* OF ERPIB 

* QUEUE 
* 
************ 



UPDATE TO * 

NEXT ERPIB * 

ENTRY * 

* 

*************** 



***************** 



***** 

♦ XL * 

* B2* 



* SYSLOG *. NO 

ASSIGNED TO .*... 
*. 1052 .* 



.* ACTION *. 

♦MESSAGE POSTED. 

*.IN ERPIB .* 



**** 

* * 

* 3 * 



**** 

* * 

* 1 * 

* * 
**** 



.* IS *. 
. ERPIB SCAN . 
♦.COMPLETE .* 



* GET ADDRESS * 

* OF ERROR * 

* BLOCK * 

* * 
***************** 



*****G1********** 

* * 

* GET ADDRESS * 

* OF LAST ERROR * 

* QUEUE ENTRY * 

* * 
***************** 



SYSLOG 

PUB IN 

ERRQ 



*****32********** 

* * 

* UPDATE TO * 

* NEXT ERPIB * 

* ENTRY * 

* * 
***************** 



***************** 



*****p 3** ******** 

* * 

* POST CANCEL * 

* CODE IN FIRST * 

* BYTE OF ERPIB * 

* * 
***************** 



*****Q3*« ******** 

* * 

* ACTIVATE ERP * 

* IN LOADLIST * 

* BY MOVING IN * 

* X«80' * 
***************** 



NO .*INF0RMATI0N*. 

,..*MESSAGE POSTED. 

*.IN ERPIB .* 



*****F4** ******** 

* * 

* CLEAR ERPIB * 

* TO BINARY * 

* ZEROS * 

* * 
***************** 



*****G4********** 

* * 

* MOVE X"FE« * 

* INTO FIRST * 

* BYTE OF * 

* ERPIB * 
***************** 



* 2 * 

* * 
**** 



**** 

* * 

* 1 * 



***** j i ********** 

* * 

* UPDATE TO * 

* NEXT ERROR * 

* QUEUE ENTRY * 

* * 
***************** 



.* SCAN OF * 
. ERROR QUEUE 
♦.COMPLETE .* 



***** 
♦XL * 
* Bl* RELOCATE 
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Chart XL. $$RAST10 - ERP Message Writer (Part 2 of 3) 
Refer to Figure 54. 



RELOCATE 
ADDRESSES 



GET ADDRESS 

OF ERPIB 

QUEUE 



.♦ ERPIB ♦ 
♦.MESSAGE SCAN 
♦.COMPLETE .» 



SET UP TO 

FETCH. 
$$RAST02 



PUT REQUESTER 

ID FROM ERPID 

INTO REG 3 



♦ GET ADDRESS 

♦ OF RESIDENT 

♦ FETCH ROUTINE 



ACTNRTN 

♦ CALCULATE 

♦ DISPLACEMENT 

♦ INTO MESSAGE 

♦ TABLE FOR 

♦ REQUESTER MSG 



♦ REG 5 ♦ 

POINTING TO 
♦.ERPIB MSG.^ 



♦ POINT TO INFO ♦ 
♦ABOUT REQUESTOR^ 

♦ MESSAGE IN ♦ 

♦ REG 6 ♦ 



♦UPDATE ADDR IN 
♦REG 5 TO POINT 

♦ TO NEXT ERPIB 

♦ IN QUEUE 



STORE MESSAGE 

LENGTH IN 

CCW 



RELOCATE 
MESSAGE 
ADDRESS 
IN CCW 
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Chart XM- $$RAST10 - ERP Message Writer (Part 3 of 3) 
Refer to Figure 54. 



* i * 

* * 
**** 



♦♦♦♦♦82 ********** 

* * 

* SAVE ERPIB * 

* MESSAGE BYTE * 

* IN MESSAGE * 

* TABLE * 
***************** 



*****C2********** 

* * 

* CLEAR THE * 

* MESSAGE BYTE * 

* IN THE ERPIB * 



.* CHANNEL *. NO 
.AND UNIT- NUM-.*... 
*- BERS IN .* 
*. MSG .* 



*****£ 2********** 

* * 

* GET DISPLACE- * 
*MENT OF CUU IN * 

* MESSAGE FROM * 

* TABLE * 
***************** 



*****P2********** 



* G 
*0F 
*TA 



ET PUB ADDR * 

INTERRUPTED * 

SK FROM ERPIB* 



***************** 



*****G2********** 

* * 

* MAKE CHANNEL * 

* AND UNIT * 

* NUMBERS * 

* PRINTABLE * 
***************** 



*****H 2 ********** 

* * 

* MOVE NUMBERS * 

* INTO THE * 

* MESSAGE * 

* * 
***************** 



**** 

* * 

* l * 

* * 
**** 



*****C 3** ******** 



************** 



*****q 3** ******** 

* * 

* PUT PARTITION * 

* ID IN * 

* MESSAGE * 

* * 
***************** 



*****B4********** 

* * 

* RESTORE * 

* SAVED REGS * 

* 0-7 * 

* * 
***************** 



.* ACTION 
TYPE 
*. MESSAGE 



***** 
*XL * 
* Fl* 



RASIO 
NO .** 



ERPIB 
TO BE 
FREED 



*****p 3** ******** 

* CLEAR ERPIB * 

* TO BINARY * 

* ZEROS AND * 

* MOVE X'FE" TO * 

* FIRST BYTE * 
***************** 



*****P4** ******** 

* * 

* MAKE OPERATOR * 

* RESPONSE * 

* UPPER CASE * 

* CHARACTERS * 
***************** 



*PUT ADDRESS OF * 

* CCW CHAIN * 

* IN I/O BLOCK * 

* * 
***************** 



*****H 3 ********** 
*GET ADDRESS OF * 

* RESIDENT I/O * 

* ROUTINE AND * 

* SET UP * 

* REQUESTER ID * 
***************** 



* MOVE CANCEL 

* CODE (X«FD« ) 

* INTO ERPIB 
* 
*************** 



*****P5********** 

* * 

* POINT TO * 

* LOAOLIST * 

* ENTRY IN * 

* RASTAB * 
***************** 



*****G5********** 

* * 

* ACTIVATE ERP * 

* AND TURN OFF * 

* OTHER BITS IN * 

* LOADSLOT * 



H4 *. 


*****H5********** 


.* *. 


* 




.* RESPONSE *. YES 


* 


ACTIVATE * 


EQUALS .* 


* 


SSRAS02 TO * 


*. 'EOB' .* 


* 


CANCEL TASK * 


*. .* 


* 


* 


*. .* X 


***************** 


*N0 ***** 






**** . *XL * 






* . * B3* 






4 *. . . * * 




X 


* . * 




***** 


**** . EXIT1 




*XL * 


LID X 




* B2* 


****j4********** 




* * 


* 




* 


SET UP CCW * 




EXITRTN 


FOR INVALID * 






RESPONSE MSG * 







***************** 



************** 



**** 

* * 

* 2 * 

* * 
**** 
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Chart XN. $$RAST11 - RTA Message Writer 
Refer to Figure 54. 



****Al********* 

* * 

* SSRASTll * 

* * 
*************** 



* SET UP REGS * 

* FOR USAGE * 

* *B2 * 

* * 
***************** 



*****d ********** 

* * 

* GET ADDRESS * 

* OF FIRST CCW * 

* IN REG 5 * 

* * 
***************** 



.* ALL 
CCWS 
*. RELOCATED. ; 



*B2 
REGISTER USAGE 
REG1 - RASTAP 
REG2 - RASLINK AREA 
REG3 - COMM REGION 
REG4 - SDR TABLE 
REG5 - CCW RELOCATE 



*****£!********** 

* RELOCATE * 

* CCW NOW * 

* POINTED TO * 

* BY REG 5 * 

* * 
***************** 



*****G1********** 

*GET PIB ADDRESS* 

* OF INTERRUPTED * 

* TASK * 

* * 
***************** 



*****H1 ********** 

* PUT PARTITION * 

* TO IN FIRST * 

* TWO BYTES * 

* OF MESSAGE * 

* * 
***************** 



UNPACK 

*****E2********** 

* MAKE CURRENT * 

* DISK ADDRESS * 

* PRINTABLE IN * 

* MESSAGE AREA * 

* * 
***************** 



*****F2********** 

* * 
♦GET ADDRESS OF * 

* FIRST CCW * 

* IN REG 9 * 

* * 
***************** 



* GET HALFWORD * 

* OF MESSAGE * 
♦CODES IN REG 8 * 

* * 
***************** 



LOWBITON 

*****H2********** 

* SAVE MESSAGE * 

* CODES IN * 

* WORK AREA * 

* MSG BITS * 

* * 
***************** 



..X 



NOTMPS 

*****jl********** 

* POINT TO * 

* NEXT CCW * 

* BY ADDING 8 * 

* TO REG 5 * 

* * 
***************** 



**** 

* * 

* 1 * 



.* more *. NO 
.MESSAGE CODES.*... 
*.IN REG 8 .* 



*****C 3** ******** 

* CLEAR OUT * 

* HALFWORD OF * 

* MESSAGE CODES * 

* IN RASTAB * 

* * 
***************** 



GET ERPIB * 

QUEUE * 

ADDRESS * 

* 

************** 



* 3 



**** 
UPDATE X 

*****C4********** 

* POINT TO NEXT * 

* CCW BY * 

* ADDING 8 * 

* TO REG 9 * 

* * 
***************** 



*****Q4** ******** 

* * 
*SHIFT LOW ORDER* 

* BIT OUT OF * 

* REG 8 * 

* * 
***************** 



* 5 * 

* * 
**** 



*****p 3** ******** 

* * 

* UPDATE TO * 

* NEXT ERPIB * 

* ENTRY * 

* * 
***************** 



NO .* END 
,..*. OF 

*. ERPIBS 



*****H3** ******** 

* * 

* SAVE RASiAB * 

* ADDRESS IN * 

* SAVER1 * 

* * 
***************** 



*****j 3** ******** 



EXITRTN 

*****F4********** 

* CLEAR REG3 * 

* TO INITIALIZE * 

* FOR A FETCH * 

* OF $$RAST01 * 

* * 
***************** 



*****Q4********** 

* GET FETCH * 

* ROUTINE ADDR * 

* FROM RASTAB * 

* INTO REG 7 * 

* *\ 
***************** 



* 2 * 

* * 
**** 



*****B5 ********** 
♦GET ADDRESS OF * 

* RESIDENT I/O ♦ 

* ROUTINE * 

* IN REG 10 * 

* * 
***************** 



*****C5********** 

* * 
♦PUT ADDRESS IN * 

* RTAJOB IN * 

* REG 8 * 

* * 
***************** 



*****05********** 

♦ PUT RAS I/O ♦ 

♦ REQUEST ID ♦ 

♦ IN RTAID ♦ 

♦ * 
***************** 



*****E5********** 

♦RASIOR HB* 
*,.*_*_*_*_*_*_*_* 

* REQUEST * 

* I/O ♦ 

* * 
***************** 



* RESTORE 
.* SAVED REG AT 

* SAVER1 
* 
************ 



***** 
*HB * 
* Fl* 



LOW *. NO 


* PUT ADDRESS 


ORDER BIT .*.... 


* OF CCW CHAIN 


ON .* 


* IN RTAIOB 


*. .* 


* 


*. .* X 


************** 


*YES **** 


. 



*****K2********** 

♦ MOVE WRITE * 
♦COMMAND (X ( 09')* 

♦ INTO CCW ♦ 

♦ POINTED TO ♦ 

♦ BY REG 9 ♦ 
***************** 



**** 

* * 

* 3 ♦ 

* * 
**** 
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APPENDIX A; LABEL LIST 





Phase or 




Label 


Macro 


Chart 


AACT 


$$ANERRU 


SC 


AACTION 


$$ANERRP 


RF 


ABTRANS 


SGDFCH 


EC 


ACTIONA 


$$ANERRP 


RE 


ACTION1 


$$ANERSA 


UL 


ACTION1C 


$$RAST04 


XB 


ACTION1C 


$$RAST05 


XF 


ACTION2 


$$ANERSA 


UK 


ACTION3 


$$ANERSA 


UM 


ACTION3 


$$RAST04 


XB 


ACTION3 


$$RAST05 


XF 


ACTION4 


$$ANERSA 


UN 


ACTION4 


$$RAST04 


XC 


ACTION4 


$$RAST05 


XF 


ACTION4A 


$$ANERSA 


UM 


ACTION 4B 


$$ANERSA 


UN 


ACTION5 


$$ANERSA 


UL 


ACTION5 


$$RAST04 


XB 


ACTION5 


$$RAST05 


XF 


ACTION6 


$$ANERSA 


UL 


ACTION 6 


$$ANERR6 


UC 


ACTION7 


$$ANERSA 


UM 


ACTION7 


$$ANERR7 


UE 


ACTION7A 


$$ANERSA 


UM 


ACTION7B 


$$ANERSA 


UL 


ACTION8 


$$ANERSA 


UM 


ACTION8A 


$$ANERSA 


UM 


ACTNRTN 


$$RAST10 


XL 


ADDTOCT 


$$ANERR6 


UD 


AFTTIO 


SGUNCK 


DF 


ALLBND 


FOPT 


BCA 


ALLBND1 


FOPT 


BCA 


ANNUL 


$$ANERR9 


UB 


APTEST 


$$ANERAE 


RC 


ARETURN 


$$RAST04 


XB 


ARETURN 


$$RAST0 5 


XF 


ARND1 


$$ANERRU 


SC 


ASCEND 


$$RAST09 


XJB 


ATNCNL 


SGSVC 


FG 


ATNRTN 


SGTCON 


GD 


ATYPE 


$$ANERRV 


SE 


ATYPE 


$$ANERRX 


SK 


ATYPE 


$$ANERRN 


RB 


A01 


$$ANERRG 


QA 


A02 


$$ANERRG 


QA 


A03 


$$ANERRJ 


QF 


A05 


$$ANERRJ 


QF 


A06 


$$ANERRJ 


QF 


A2321 


SGTCHS 


CH 


BALMSG 


$$ANERRJ 


QF 


BALSTCHK 


$$ANERRJ 


QF 


BEGIN 


$$ANERSA 


UK 


BEGIN 


$$ANERSA 


UP 


BEGIN 


$$ANERSA 


UQ 


BEGIN 


$$RAST04 


XA 


BEGIN 


$$RAST05 


XE 


BGBAD 


$$RAST09 


XJA 



BJFTST 


$$ANERR1 


TG 


BKNTAP 


$$ANERAI 


UG 


BLDERPIB 


$$RAST00 


VD 


BLDLAST 


$$RAST01 


VK 


BLDREC 


$$RAST01 


VF 


BLDREC 


$$RAST02 


WC 


BLDREC 1 


$$RAST02 


WC 


BSOUT 


$$ANERRW 


SG 


BSOUTMSG 


$$ANERAI 


UG 


BSTTST 


SGUNCK 


DA 


BTAM 


$$ANERRC 


NM 


BUFPAR 


$$ANERSA 


UL 


BUS 


$$ANERRX 


SK 


BUSOUT 


$$ANERRA 


NLA 


BUSOUT 


$$ANERRV 


SE 


BUSOUT 


$$ANERRW 


SF 


BUSOUT 


$$ANERR9 


UA 


BUSOUT 


$$ANERAI 


UG 


BUSOUT 


$$ANERSA 


UM 


BUSRETRY 


$$ANERAI 


UG 


BUS1 


$$ANERRV 


SE 


BUS 2 


$$ANERRV 


SE 


BYCNL 


$$ANERRZ 


TD 


BY1 


$$ANERRM 


NB 


BZYTEST 


$$RAST00 


VE 


B01 


$$ANERRG 


QA 


B02 


$$ANERRG 


QA 


CALFET 


SGSVC 


FF 


CALLMW 


$$ANERRX 


SJ 


CALLRTA 


MCRAS 


HB 


CALLSEC2 


$$ANERRZ 


TC 


CALLSEC3 


$$ANERRY 


TB 


CALLO 


MCRAS 


HB 


CALPH4 


$$ANERRO 


RD 


CALPH5 


$$ANERRP 


RF 


CANALL 


SGTHAP 


MM 


CANCEL 


$$ANERR1 


TG 


CANCEL 


$$RAST02 


WB 


CANCOD 


$$ANERRS 


RL 


CANCON 


$$ANERRX 


SK 


CANJOB 


$$RAST10 


XM 


CANRTN 


$$ANERRS 


RL 


CANT ASK 


$$RAST10 


XK 


CANTLP 


$$ANERRY 


TA 


CANXIT 


FOPT 


BE 


CBGOA 


SGSVC 


FQ 


CBMOV 


SGSVC 


FP 


CBNON1 


SGTCHS 


CCA 


CBNON2 


SGTCHS 


CCA 


CBOK 


SGSVC 


FP 


CBRET 


SGTCHS 


CC 


CCBQED 


SGUNCK 


DB 


CCBSTR 


$$ANERAB 


RA 


CCBUNAV 


$$ANERAE 


RC 


CCDADI 


MCRAS 


HH 


CCDAMAGE 


MCRAS 


HD 


CCDASDCK 


MCRAS 


HH 


CCDASDI 


MCRAS 


HH 


CCDASDLT 


MCRAS 


HH 


CCDASDTC 


MCRAS 


HH 
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CCDEVTST 


MCRAS 


HE 


CCDEXIT 


MCRAS 


HD 


CCENTRYl 


MCRAS 


HD 


CCENTRY2 


MCRAS 


HE 


CCENTRY3 


MCRAS 


HE 


CCEREXIT 


MCRAS 


HD 


CCEXIT1 


MCRAS 


HD 


CCEXIT1 


$$RAST00 


VD 


CCEXIT2 


MCRAS 


HE 


CCEXIT3 


MCRAS 


HF 


CCEXIT4 


MCRAS 


HF 


CCNOT10 


MCRAS 


HF 


CCRECRTN 


$$RAST01 


VK 


CCRTYTST 


MCRAS 


HE 


CCSETDMC 


MCRAS 


HD 


CCT155 


MCRAS 


HF 


CCWTEST 


$$RAST11 


XN 


CDATACK 


$$ANERR9 


UA 


CDC 


$$ANERRW 


SG 


CEDETST 


SGTCHS 


CL 


CHAINCH 


$$ANERRB 


NN 


CHDTCK 


$$ANERRX 


SJ 


CHECK 


$$ANERRA 


NL 


CHECKLST 


$$RAST00 


VB 


CHECKMC 


$$RAST00 


VB 


CHEND 


SGTCHS 


CL 


CHEND1 


SGTCHS 


CL 


CHFAIL 


SGUNCK 


DF 


CHFAIL1 


SGUNCK 


DF 


CHKACTN 


$$RAST10 


XM 


CHKADR 


$$ANERRT 


SA 


CHKADR 


$$ANERRW 


SF 


CHKADR 


$$ANERRS 


RK 


CHKAM 


$$ANERRB 


NN 


CHKCNT 


$$ANERRV 


SE 


CHKDEV 


$$ANERRP 


RF 


CHKDISK 


$$ANERRA 


NL 


CHKERQ 


$$RAST10 


XK 


CHKERR 


$$ANERSA 


UK 


CHKLTA 


$$ANERRS 


RL 


CHKMPS 


$$RAST10 


XM 


CHKMSG 


$$RAST01 


VJ 


CHKMSG 


$$RAST10 


XK 


CHKOCREC 


$$RAST01 


VJ 


CHKSNS 


$$ANERSC 


UQ 


CHKSN1 


$$ANERSC 


UQ 


CHKTABLE 


$$RAST01 


VJ 


CHNDAT 


$$ANERSA 


UL 


CHNDRT 


SGTCHS 


CP 


CHNDTEX 


$$ANERAJ 


UH 


CHNERROR 


SMCRR 


KA 


CHNOK1 


SGTCHS 


CK 


CHNTST 


SGTCHS 


CP 


CKCHST 


SGTCHS 


CE 


CLBPRG 


SGTCHS 


CA 


CLBPTR 


SGTCHS 


CAA 


CLBSUP 


SGTCHS 


CAA 


CLCEX 


SGDFCH 


EC 


CLCINS 


SGTCHS 


CH 


CLEAR 


$$RAST02 


WC 


CLKDMG 


$$RAST03 


WJ 


CMDCHN 


SGUNCK 


DA 


CMDREJ 


$$ANERRV 


SE 


CMDSEQ 


$$ANERRV 


SD 


CMNDREJ 


$$ANERR9 


UB 


CMR 


$$ANERRV 


SE 



CNCEL 


SGTHAP 


MK 


CNCELL 


SGTHAP 


MK 


CNCELO 


SGTHAP 


MK 


CNCEL1 


SGTHAP 


ML 


CNCEL1A 


SGTHAP 


ML 


CNCEL1B 


SGTHAP 


ML 


CNCEL2 


SGTHAP 


MK 


CNCEL2AA 


SGTHAP 


MK 


CNCEL3 


§GTHAP 


ML 


CNCELU 


SGTHAP 


ML 


CNCEL5 


SGTHAP 


ML 


CNCL 


FOPT 


BE 


CNCL 


$$ANERRU 


SC 


CNCLLOOP 


$$ANERRZ 


TD 


CNCLSW 


$$ANERRY 


TB 


CNERPIB 


$$RAST02 


WB 


CNLSVE 


FOPT 


BA 


CNO 


$$ANERRU 


SB 


CNTEXT 


$$ANERRP 


RE 


CNTRTN 


$$ANERR7 


UE 


CNTST 


$$ANERRV 


SD 


CNTST 


$$ANERRN 


RB 


COMB IN 


$$ANERRA 


NL 


COMMENCE 


$$ANERAD 


NK 


COMPCLC 


SGTCHS 


CA 


COMR 


$$ANERRX 


SJ 


COMREJ 


$$ANERRB 


NN 


COMRJ 


$$ANERRW 


SH 


COMRJT 


$$ANERAI 


UG 


CONBUF 


SGSVC 


FP 


CONBUF2 


SGSVC 


FP 


CONT 


$$ANERRV 


SE 


CONT 


$$ANERRW 


SG 


CONTINU 


SEND 


LA 


CONTINU 


$$ANERAF 


NG 


CONTINUE 


$$ANERR9 


UB 


CONTINUE 


$$ANERRM 


NB 


CONTROL 


$$RAST03 


WF 


CORCIN 


SGTCHS 


CK 


CORPUB 


SGTCHS 


CK 


CORPUB 


SGTCHS 


CK 


CORREC 


SGTCHS 


CJ 


COUNT 


SGTCHS 


CG 


COUNTRG 


$$ANERRP 


RE 


COUNTRG 


$$ANERRQ 


RG 


CQDSP 


SGTCHS 


CR 


CSBY2 


FOPT 


BE 


CSCAN 


$$RAST04 


XA 


CSCAN 


$$RAST05 


XE 


CSRST 


FOPT 


BE 


CSWCHK 


SGUNCK 


DF 


CSWLOST 


$$RASTOO 


VD 


CUPDATE 


$$RAST04 


XA 


CUPDATE 


$$RAST05 


XE 


CUU 


$$ANERRO 


RD 


CYLEND 


SGDSK 


GB 


C01 


$$ANERRG 


QB 


C01 


$$ANERRH 


QD 


C01 


$$ANERRJ 


QF 


C0100 


$$ANERRV 


SE 


C02 


$$ANERRV 


SD 


DASD 


$$RAST02 


WA 


DASD2311 


SGTCHS 


CH 


DAT 


$$ANERRX 


SJ 


DATAADDR 


SGDFCH 


EE 
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DATACHK 


$$ANERRB 


NN 


DATACHK 


$$ANERAJ 


UH 


DATACHK 


$$ANERSA 


UM 


DATACHK1 


$$ANERSA 


UM 


DATCHK 


$$ANERRV 


SE 


DCERP 


$$ANERRA 


NL 


DEALSO 


SGTCHS 


CQ 


DECCTR 


$$ANERRQ 


RH 


DELKOTCK 


SGTCHS 


CN 


DEQUE 


SGSVC 


FF 


DEQUER 


SGUNCK 


DE 


DEQUERl 


SGUNCK 


DE 


DEQUER1A 


SGUNCK 


DE 


DESCEND 


$$RAST09 


XJA 


DETFRE 


SGTHAP 


MB 


DEV2311 


$$RAST01 


VH 


DISWHY 


SGTCHS 


CK 


DMCTEST 


$$RAST02 


WA 


DOSVC 


$$ANERR6 


UD 


DOSVC 


$$ANERR8 


UF 


DOTCH 


SGTCHS 


CF 


DRAPIO 


$$RAST09 


XJA 


DSKTST 


SGDSK 


GA 


DTCH 


$$ANERRB 


NN 


DTCRTN 


$$ANERR7 


UE 


DTEXIT 


$$ AN ERA J 


UH 


DV1017 


$$ANERAI 


UG 


DV1018 


$$ANERAJ 


UH 


DYNAMIC 


$$RAST09 


XJA 


DYNREALO 


$$RAST09 
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MH 


SVC41A2 


SGTHAP 


MH 


SVC41B 


SGTHAP 


MH 
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SVC41C 


SGTHAP 


MH 


SVCU2 


SGTHAP 


MG 


SVC42A 


SGTHAP 


MG 


SVC42B 


SGTHAP 


MG 


SVC 4 3 


SGSVC 


FR 


SVC45 


SGSVC 


FR 


SVC51 


SGSVC 


FS 


SVEREG 


FOPT 


BAA 


SVEREG 


SGTCON 


GC 


SVNWAD 


SGTCHS 


CD 


SWITCH 


$$ANERRO 


RD 


SXPC1 


SGSVC 


FN 


SXPC2 


SGSVC 


FN 


SXTRT1 


SGSVC 


FJ 


SXTRTl 


SGSVC 


FN 


SYCLAS 


$$ANERRO 


RD 


SYSFILE 


SGTCHS 


CJ 


SYSFILE1 


SGTCHS 


CJ 


SYSFILE2 


SGTCHS 


CJ 


SYSFILE3 


SGTCHS 


CQ 


SYSFILE4 


SGTCHS 


CJ 


SYSFILE5 


SGTCHS 


CE 


SYSINOUT 


SGTCHS 


CE 


SYSSIN 


SGTCHS 


CJ 


SOI 


$$ANERRJ 


QF 


TAPMODE2 


$$ANERR9 


UB 


TCAN2 


$$ANERRY 


TB 


TCAN2A 


$$ANERRY 


TB 


TEST 


$$ANERRH 


QD 


TESTBUSY 


$$ANERRP 


RE 


TESTDMC 


$$RAST02 


WA 


TESTEOJ 


SGTCHS 


CF 


TESTER 


$$ANERAD 


NK 


TESTFE 


$$RAST02 


WD 


TESTIGN 


$$ANERRQ 


RG 


TESTLTA 


FOPT 


BE 


TESTSUB 


$$ANERR1 


TG 


TESTSVC 


SGDFCH 


EDA 


THCHK 


SGTHAP 


MC 


THDLT1 


SGTHAP 


MB 


THDLT2 


SGTHAP 


MB 


THDLT2 


SGTHAP 


MB 


THFREE 


SGTHAP 


MB 


THFREE1 


SGTHAP 


MB 


THRETRY 


SGTHAP 


MC 


THSETUP 


SGTHAP 


MA 


THWAIT1 


SGTHAP 


MA 


THWAIT2 


SGTHAP 


MA 


TKDLET 


SGTHAP 


MB 


TKHDADD 


SGTHAP 


MA 


TKHDQUE 


SGTHAP 


MA 


TKHDRTN 


SGTHAP 


MA 


TKHD1 


SGTHAP 


MA 


TKHELD 


SGTHAP 


MA 


TKPRTY 


SGTHAP 


MJ 


TKPRT1 


SGTHAP 


MJ 


TMEKEY 


SGSVC 


FG 


TMERT1 


SGSVC 


FL 


TMRBPS 


SGSVC 


FL 


TMRSW 


SGSVC 


FL 


TPBUSY 


SGTCHS 


CD 


TPBUSY1 


SGTCHS 


CD 


TPBUSY2 


SGTCHS 


CCA 


TPBUSY3 


SGTCHS 


CC 


TPBUSY4 


SGTCHS 


CC 



TPIGNOR 


$$ANERRC 


NM 


TPRETRN 


SEND 


LA 


TPSDR1 


SEND 


LA 


TRKCHK 


SGDSK 


GB 


TRKEOC 


SGDSK 


GB 


TRNOFF 


SGTCHS 


CL 


TRYNXT 


SGTCHS 


CH 


TSTATD 


$$ANERRR 


R J 


TSTATTN 


SGTCHS 


CL 


TSTBMX 


SGTCHS 


CQ 


TSTCAN 


$$ANERRR 


RJ 


TSTCCB 


$$ANERRN 


RB 


TSTCCC 


$$ANERRU 


SB 


TSTCDC 


$$ANERRU 


SB 


TSTDEV 


SGTCHS 


CCA 


TSTEOJ 


SGTCHS 


CE 


TSTEQCK 


$$ANERR6 


UC 


TSTERF 


SGTCHS 


CL 


TSTNXT 


SGTCHS 


CJ 


TSTPSN 


$$ANERR7 


UE 


TSTQEF 


SGTCHS 


CP 


TSTRESIO 


SGTCHS 


CN 


TSTRTY 


$$ANERRN 


RB 


TSTSNS 


$$ANERAI 


UG 


TSTSSL 


$$ANERRB 


NN 


TSTSVC 


SGDFCH 


EDA 


TSTTRG 


$$ANERRS 


RK 


TSTUCK 


SGTCHS 


CKA 


TST03U 


$$ANERRU 


SB 


TST2311 


$$ANERAA 


NC 


T01 


$$ANERRG 


QB 


T03 


$$ANERRH 


QD 


T06 


$$ANERRH 


QD 


T145RTN 


$$RAST03 


WF 


T155RTN 


$$RAST03 


WE 


UCBPAR 


$$ANERRV 


SD 


UCSTST 


$$ANERRV 


SE 


UNBUSY 


$$RAST02 


WA 


UNCOMMON 


SGTCHS 


CE 


UNDETERR 


$$ANERAI 


UG 


UNDETR 


$$ANERR6 


UC 


UNDETR 


$$ANERR7 


UE 


UNDTR 


$$ANERRT 


SA 


UNDTR 


$$ANERRW 


SF 


UNKN 


$$ANERRB 


NN 


UNPACK 


$$RAST11 


XN 


UNPCH 


$$ANERRO 


RD 


UNPKSEN 


$$ANERRO 


RD 


UNRCERP 


$$ANERRA 


NL 


UNSUPTD 


$$ANERR9 


UB 


UNTCK1 


SGUNCK 


DA 


UNTCK2 


SGUNCK 


DA 


UNUSENS 


$$ANERRU 


SC 


UNWAIT 


SGTHAP 


MJ 


UNW001 


SGTHAP 


MJ 


UNW002 


SGTHAP 


MJ 


UNW003 


SGTHAP 


MJ 


UNW004 


SGTHAP 


MJ 


UNW005 


SGTHAP 


MJ 


UPDATCCW 


$$ANERAI 


UG 


UPDATE 


$$RAST03 


WF 


UPDATE 


$$RAST11 


XN 


UPDPUB 


$$RAST00 


VE 


UPDPUB 


$$RAST02 


WA 


UPDSCAN 


$$RAST02 


WC 


USRAPPEN 


SGTCHS 


CKA 
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USREXT 
USRSEN 
USRUCK 


SGUNCK 
SGUNCK 
SGUNCK 


DA 
DB 
DA 


VERIF 
VLDADRl 
VLDADR2 
VLDADR3 


$$ANERRB 
SGTCON 
SGTCON 
SGTCON 


NN 
GC 
GC 
GC 


WAIT 

WAITLOOP 
WAITSVC 
WRITEREC 


$$ANERRY 
SGDFCH 
$$ANERRP 
$$RAST01 


TA 
EH 
RF 
VH 


XEXIT 
XEXIT 


$$RAST04 
$$RAST05 


XA 
XE 



XFETCH 


$$RAST04 


XA 


XFETCH 


$$RAST05 


XE 


XIOERR 


$$ANERSB 


UP 


XLDMOD 


$$RAST05 


XE 


XLDTST 


$$RAST04 


XA 


XLDTST 


$$RAST05 


XE 


XMSG 


$$RAST04 


XA 


XMSG 


$$RAST05 


XE 


XNOMSG 


$$RAST04 


XA 


XNOMSG 


$$RAST05 


XE 


XNORMAL 


$$ANERSC 


UR 


XQFULL 


$$ANERSB 


UP 


XTOERR 


$$ANERSC 


UR 


ZEROCT 


$$ANERR6 


UD 


ZERTEB 


$$ANERRS 


RK 


ZERTEBV 


$$ANERRS 


RK 


ZROREG 


SGTCHS 


CR 
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APPENDIX B: 



ERROR MESSAGE CROSS REFERENCE 



Message 
0P08 



Phase 



Chart 



OP 09 



0P10 



OP 11 



$$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERRA 


(Disk) 


NM 


$$ANERRF 


(Tape) 


PF 


$$ANERRG 


(Data Cell) 


QB 


$$ANERRT 


(MICR Type) 


SA 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SD 


$$ANERRW 


(MICR Type) 


SF r SG 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERR9 


(Optical Reader) 


UA 


$$ANERSA 


(3211 Printer) 


UK 


$$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERAM 


(Tape) 


PJ 


$$ANERRA 


(Disk) 


NM 


$$ANERRF 


(Tape) 


PF 


$$ANERRG 


(Data Cell) 


QB 


$$ANERRT 


(MICR Type) 


SA 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SE 


$$ANERRW 


(MICR Type) 


SF,SG 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR6 


(Tape Cartridge 
Reader) 


UC,UD 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERR9 


(Optical Reader) 


UA 


$$ANERSA 


(3211 Printer) 


UK 


$$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERAM 


(Tape) 


PJ 


$$ANERRA 


(Disk) 


NL 


$$ANERRF 


(Tape) 


PE 


$$ANERRG 


(Data Cell) 


QA 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SD 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR6 


(Tape Cartridge 
Reader) 


UC 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERSA 


(3211 Printer) 


UK 


$$A$SUP1 


(Disk) 


GA 


$$ANERAJ 


(Paper Tape) 


UH 


$$ANERAP 


(Tape) 


PN 


$$ANERAS 


(Tape) 


PX 


$$ANERRB 


(Disk) 


NN 


$$ANERRD 


(Tape) 


PA 



0P12 



OP 13 



0P1U 



0P15 



0P16 



0P17 



0P18 



$$ANERRK (Data Cell) QH 

$$ANERRV (Unit Record) SE 

$$ANERRX (Paper Tape) SJ 

$$ANERR7 (Tape Cartridge UE 

Reader) 

$$ANERSA (3211 Printer) UK 



$$ANERRB (Disk) NN 

$$ANERRK (Data Cell) QH 



$$ANERRB 


(Disk) 


NN 


$$ANERRK 


(Data Cell) 


QH 


$$RAST10 




XL 


$$A$SUP1 


(Disk) 


GA 


$$ANERRB 


(Disk) 


NN 


$$ANERRF 


(Tape) 


PE,PF 


$$ANERRG 


(Data Cell) 


QB 


$$ANERRV 


(Unit Record) 


SE 


$$ANERR9 


(Optical Reader) 


UB 


$$A$SUP1 


(Disk) 


GA 


$$ANERRA 


(Disk) 


NL 


$$ANERRJ 


(Data Cell) 


QF 


$$ANERRB 


(Disk) 


NN 


$$ANERRK 


(Data Cell) 


QH 


$$ANERAM 


(Tape) 


PK 


$$ANERRB 


(Disk) 


NN 


$$ANERRG 


(Data Cell) 


QC 


$$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERAM 


(Tape) 


PK 


$$ANERRB 


(Disk) 


NN 


$$ANERRG 


(Data Cell) 


QC 


$$ANERRT 


(MICR Type) 


SA 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SE 


$$ANERRW 


(MICR Type) 


SF,SH 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERR9 


(Optical Reader) 


UB 


$$ANERSA 


(3211 Printer) 


UK 
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0P19 


$$ANERAI 


(Paper Tape) 


UG 




$$ANERAM 


(Tape) 


PJ 




$$ANERRB 


(Disk) 


NN 




$$ANERRG 


(Data Cell) 


QC 




$$ANERRT 


(MICR Type) 


SA 




$$ANERRU 


(Unit Record) 


SB f SC 




$$ANERRV 


(Unit Record) 


SE 




$$ANERRW 


(MICR Type) 


SF f SG 




$$ANERRX 


(Paper Tape) 


SJ 




$$ANERR6 


(Tape Cartridge 
Reader) 


UC 




$$ANERR7 


(Tape Cartridge 
Reader) 


UE 




$$ANERR9 


(Optical Reader) 


UB 




$$ANERSA 


(3211 Printer) 


UK 


0P20 


$$A$SUP1 


(Disk) 


DB,DF,GA, 
GB 




$$ANERAJ 


(Paper Tape) 


UJ 




$$ANERAK 


(Tape) 


PS,PT 




$$ANERAL 


(Tape) 


PV 




$$ANERAM 


(Tape) 


PK 




$$ANERAN 


(Tape) 


PL,PM 




$$ANERAQ 


(Tape) 


PQ 




$$ANERAR 


(Tape) 


PW 




$$ANERRE 


(Tape) 


PD 




$$ANERRF 


(Tape) 


PE 




$$ANERRL 


(Tape) 


PG 




$$ANERRH 


(Data Cell) 


QD 




$$ANERRI 


(Data Cell) 


QE 




$$ANERRJ 


(Data Cell) 


QF 




$$ANERR6 


(Tape Cartridge 
Reader) 


UD 




$$ANERR8 


(Tape Cartridge 
Reader) 


UF 




$$ANERSB 


(3211 Printer) 


UP 


0P21 


$$A$SUP1 


(Disk) 


GA 




$$ANERRA 


(Disk) 


NL 




$$ANERRJ 


(Data Cell) 


QF 


OP 22 


$$ANERRG 


(Data Cell) 


QA 


0P23 


$$ANERRJ 


(Data Cell) 


QF 


0P2«* 


$$ANERRA 


(Disk) 


NL 




$$ANERR6 


(Tape Cartridge 
Reader) 


UC 


OP 25 


$$ANERRA 


(Disk) 


NL 




$$ANERR6 


(Tape Cartridge 
Reader) 


UC 


OP 26 


$$ANERRA 


(Disk) 


NL 




$$ANERRG 


(Data Cell) 


QA 


0P27 


$$ANERRA 


(Disk) 


NL 




$$ANERRC 





NM 




$$ANERRU 


(Unit Record) 


SB 



0P28 $$A$SUP1 (Disk) 

$$ANERAJ (Paper Tape) 

$$ANERRA (Disk) 

$$ANERRF (Tape) 

$$ANERRG (Data Cell) 



$$ANERRT (MICR type) 

$$ANERRU (Unit Record) 

$$ANERRW (MICR type) 

$$ANERRX (Paper Tape) 

$$ANERR6 (Tape Cartridge 

Reader) 

$$ANERR9 (Optical Reader) 

$$ANERSA (3211 Printer) 



0P29 $$ANERAM (Tape) 



0P30 $$ANERAM (Tape) 



0P32 $$ANERAM (Tape) 



0P3U $$ANERRW (MICR type) 



0P36 $$A$SUP1 (Disk) 
$$ANERRA (Disk) 
$$ANERRJ (Data Cell) 



0P37 $$ANERRT (MICR type) 
$$ANERRW (MICR type) 



OPUO $$ANERAI (Paper Tape) 



GA 
UH 
NL 
PE 
QA 



SA 

SB 

SF,SG 

SJ 

UC 



UA 
UK 



PJ 



PJ 



OP 31 $$ANERRA (Disk) NL 

$$ANERRD (Tape) PA 

$$ANERRF (Tape) PF 

$$ANERR6 (Tape Cartridge UC 

Reader) 



PJ 



0P33 $$ANERRV (Unit Record) SD 
$$ANERSA (3211 Printer) UK 



SH 



0P35 $$ANERR9 (Optical Reader) UA 



GA 
NL 
QF 



SA 
SF 



0P38 $$ANERR9 (Optical Reader) UB 



0P39 $$ANERR7 (Tape Cartridge UE 
Reader) 



UG 



0P41 $$ANERSA (3211 Printer) UK 
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0P60D $$ANERRY 



TB 



0T11I $$RASTOO 



VA 



OTOOI $$ANERAG 
$$RAST11 
$$RAST01 



0T01I $$ANERAF 



0T02I $$ANERAF 



0T03I $$ANERAF 
$$RAST11 
$$RAST01 



0T04I $$ANERAG 



0T05I $$RAST11 
$$RAST01 



0T06I $$RAST11 
$$RAST03 



0T07I $$RAST11 
$$RAST03 



0T08I $$RAST11 
$$RAST03 



0T09I $$RAST11 
$$RAST03 



0T10I $$RAST04 
$$RAST05 
$$RAST07 
$$RAST10 



NJ 
XN 
VF 


0T12I 


$$RAST04 
$$RAST05 
$$RAST07 
$$RAST10 


NG 
NG 


0T13A 


$$RAST04 
$$RAST05 
$$RAST10 


NG 
XN 
VF 


0T14I 
0T15I 


$$RAST11 
$$RAST03 

$$RAST09 


NH 

XN 
VF 


0T16I 
0T17I 


$$RAST03 
$$RAST11 

$$RAST11 


XN 
WE 


0T18I 


$$RAST11 
$$RAST01 


XN 

WE 


0T19I 


$$RAST09 


XN 
WE 


0T20I 


$$RAST09 


XN 
WE 


11 3 2D 
1I40D 


$$ANERR0 
$$ANERR0 


XB 
XF 
XJ 
XL 


ISO 2D 


$$ANERRO 



1S10D $$ANERR0 



XB 
XF 
XH 
XL 



XC 
XF 
XL 



XN 
WE 



XJA 



WE 
XN 



XN 



XN 
VF 



XJB 



XJB 



TF 



TE 



TF 



TE 
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TABLES/CONTROL BLOCKS 



APPENDIX C: I/O REQUEST-I/O INTERRUPT SEQUENCE 



ROUTINES 



Problem Program 
CCB 



Command 

Control 

Block 



CCW's 



Channel 
Command 
Word -Channel 
Program 



Supervisor 

Logical Unit Block 



Symbolic 

Device 

Addresses 



Physical 

Device 

Addresses 



PIB 



Program 

Information 

Block 



If" 



ir 



Physical Unit Block 






PROBLEM PROGRAM 

Issue EXCP macro. 
A. Points register 1 to the CCB (CCB points to CCW chain). 
B . Issues an SVCO. 



SUPERVISOR ROUTINES FOR I/O REQUEST 

— 1. SVC interrupt analysis. 

A. Determine that it is an I/O (SVC) request. 

B . Set up register 9 and LPSW to return to problem program via EXT01 . 

2. Channel Scheduler. 

£ A. Clears the CCB transmission bytes. 
B . Points to correct PUB entry. 

3. : ; Start I/O. 

A. Pick up device address - start I/O. 

. 4vv.^eneral Exit Routine. 

•• A.EXJ01 - return to problem program. 



PROBLEM PROGRA/vftfr ^, 

1 . Issues WAIT macro „ 

Ao Points register 1 to the CCB. 
B . Issues an SVC7„ 



Program in this partition enters WAIT state, 



CHANNEL HARDWARE 

*1 o Uses CAW to locate CCW program . 
2. Starts I/O device „ 
3 Causes I/O interrupt at channel end 
and device end „ 



SUPERVISOR ROUTINES, I/O INTERRUPT 

— 1. General entry routine. 

A. Give control to I/O interrupt routine. 

2. I/O interrupt routine. 

A. Determine which device caused the interrupt. 

For unit check, go to appropriate error recovery procedure. 

— — — B . Turn on traffic bit in correct CCB transmission bytes. 

C. Return control to the interrupted partition or go to general exit routine. 

:::: >* 3» General exit routine (task selection). 

A. Give control to the highest priority partition that is ready to run. 



PROBLEM PROGRAM 1 
(Return is to the WAIT macro expansion.) 

1 . Tests the CCB transmission byte to see that the traffic bit is on. 

2. Continues on to next instruction following the WAIT macro. 



Continue on until next I/O request. 



— — — —►Indicates putting information into a control block/ table. 
-•":..:;::.: Indicates testing for information in a control block/table. 

Figure 63. I/O Request-I/O Interrupt Sequence 
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APPENDIX D; LABEL INFORMATION FORMAT ON SYSRES 



Job Control Statements or Operator Initiation Commands 




// TPLAB 



> or 




Label 

Information 

Cylinder 




// TLBL 



.// VOL 








// TPLAB 




















Me 


Filename 


:;fexi:l:i;Gr)|; 
Byte;: 1 -.!:;; 


File 
ID 


File 

Serial 

Number 1 


Volume 

Sequence 

Number 


File 

Sequence 

Number 


Generation 
Number 


Version 
Number 


Creation 
Date 


Expiration 
Date 


Security 
Number 


Block 
Count 


System': 
Hill! 


Flag 
Bytes 


l 


7 


1 


17 


6 


4 


4 


4 


2 


6 


6 


1 


6 


13 


2 


? t 


1 


8 


9 


26 


32 


36 


40 


44 


46 


52 


58 


59 


65 


78 



T ' Byte Count 

• Displacement in Main Storage Shaded areas are not processed by DOS Logical IOCS. 

Figure 64. Format of SYSRES Tape Label Information 
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Filename 



File ID 



File 

Serial 

Number 



10 



12 



System 
Code 



13 



Volume 

Serial 

Number 



14 15 



16 



Extent 
Lower 
Limit 



17 



Extent 
Upper 
Limit 




44 



13 



10. 



Field 


Name 




Description 


1 . 


DLBL-EXTENT 


SD 








Bit 


1 = Next extent on a new pack. 






Bit 1 


1 = Last extent. 






Bit 2 


1 = Bypass extent. 






Bit 3 


1 = New volume on same unit. 






Bit 4 


1 = Extent limits omitted. 






Bit 5 


1 = Extent converted to DASD 
address. 






Bit 6 


1 = No EXTENT/XTENT card. 






Bit 7 


1 = Unused. 






DA or ISFMS 






Numl 


Der of extents. 


2. 


Filename 






3. 


DA/IS Switch 


BitsC 


-3: Unused. 



File ID 



5. 


Format ID 


6. 


File Serial No. 


7. 


Volume Seq. No. 


8. 


Creation Date 


9. 


Expiration Date 



Reserved 



Open Code 



Bit 4: 1 = Extent limits omitted. 

Bit 5: 1 = Extent converted to DASD 

address. 
Bit 6 & 7: Unused. 

File identifier including generation 
and version numbers. If field is 
missing on DLBL card, Filename 
padded with blanks is inserted. 

Numeric 1 is inserted. 

Volume serial number from first extent. 

Always initialized to X'0001 ' . 

Initialized with 3 bytes of X'00' . 

If date is in the form YYDDD, it is 
converted to YDD. If date is in re- 
tention period form, 1 to 4 characters, 
the field is padded with binary zeros. 

The retention period, if specified is 
converted to a 2-byte number and 
inserted in this field. 

DLBL type: 

S = Sequential 

D= Direct Access 

C or E = Indexed sequential 

File Management System where: 

C = Load create function 

E = Load extend function 



Field 



Name 



12. System Code 

13. Volume Serial No. 

14. Extent Type 



15. Extent Seq. No. 



16. Extent Lower 
& and Upper 

17. Limits 



18. Logical (Symbolic) 
Unit Address 



19. 



2321 Lower Cell 
2321 Upper Cell 



Note: For Sequential Disk files, a complete 104-byte block is repeated for each new EXTENT. 

For Direct Access and ISFMS files, only fields 13 through 18 are repeated for each EXTENT. 

Figure 65. Format of SYSRES DASD Label Information 



Description 

Initialized to contain DOS/360 VER 3. 
This field is not processed by DOS. 

Volume serial number for extent. 



Same 
X'00' 



x'or 



X'02' 
X'04' 

X'40 1 
X'8n' 



codes as in Format - 1 label: 

= Next three fields do not indicate 

any extent. 
= Prime data area (ISFMS) or 

consecutive area, etc., (that is the 

extent containing the user's data 

records). 
= Overflow area of an ISFMS file. 
= Cylinder index or master index of an 

ISFMS file. 
= User label track area. 
= Shared cylinder indicator, where 

n = 1 , 2, or 4. 



Number of extent as determined by the extent 
card sequence. 

Before the OPEN, DLBL/EXTENT 

information is in the relative track form of 

HHNNT followed by three bytes of binary 

zeros. 

HH = Relative (to 0) start address in tracks. 

NN = Number of tracks. 

T = or upper track number for split 
cylinder in SD files. 
Following an OPEN on DLBl/EXTENT cards, 
or whenever DLAB/XTENT cards are used, 
the extent lower and upper limits are each 
in the CCHH format. 

This 2-byte field identifies the logical unit 

with the same code as that used in a CCB. 

The first byte identifies the unit class: 

X'00' = System Logical Unit 

X'01 ' = Programmer Logical Unit 

The second byte identifies the logical unit 

within its class. 

Thus X'0003' denotes SYSLST and X'0103' 
denotes SYS003. 

2321 extent lower and upper cell 
limit. This 2-byte field contains 
zeros for 2311/2314/2319 disk. 
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APPENDIX E: 



PROGRAM KEY DEFINITIONS 



PID (Partition Identifier) 



The PID is a half word long, consisting of a 
zero value in the high- order byte and the 
key value in the low- order byte. The key 
value is the key of the partition that was 
last enabled for interrupts. Key values 
are X f 00', X^O', X f 20" , . . .X" 60' for All 
Bound, BG, F2, Fl, Attention, Quiesce I/O 
and Supervisor, respectively. 



PID is defined in an AP (asynchronous 
processing) supervisor only and is found at 
byte-displacement 46 in the communications 
region. (This half word is named PIK in a 
non-AP supervisor. See PIK below.) 



PIK (Program Interrupt Key) 



The PIK is a half word long, consisting of a 
zero value in the high-order byte and the 
key value in the low- order byte. The key 
value is the key of the program that was 
last enabled for interrupts. 



When an interrupt occurs, the value of 
the PIK indicates to the supervisor which 
program (task) was interrupted. It can 
also be used by transient programs and 
problem programs to determine if they are 
running as BG, Fl, or F2, or, in the AP 
supervisor, if the last interrupted task 
was a maintask or a subtask. 



The value of the PIK equals the 
displacement from the beginning of the PIB 
table to the PIB entry for the program 
(task). For BG, F2, and Fl tasks, this 
value equals the storage protect key 
multiplied by sixteen. 



In a non-AP supervisor, PIK is found at 
displacement 46 in the communications 
region. In an AP supervisor PIK is found 
at displacement 18 in the communication 
region extension. (Also see PID.) 



Task 


PIK Value 


All Bound* 


X"00» 


BG 


X f 10 f 


F2* 


X'20' 


Fl* 


X f 30 f 


AR 


X'HO* 


Quiesce I/O 


X«50' 


Supervisor 


X^O" 


Subtask** 


X f 70' - 



- X'FO" 



♦Multiprogramming generation option only. 

♦♦Asynchronous processing generation option 
only. A total of nine subtask PIBs is 
generated, thus the displacement hex 
70-FO indicates the maximum range. 

The PIK is set by task selection within 
the general exit routine. The fetch 
routine sets the PIK to X^O*, because it 
enables itself for interrupts and because 
it gets control directly from the SVC 
interrupt routines. Like other completely 
disabled supervisor routines, the SVC 
interrupt routines do not change the PIK 
from the value it had when the interrupt 
occurred that transferred control. 



LID (Logical Transient Identification) 



The LID contains the same value as the PIK 
when the logical transient area is in use 
(i.e., the LID identifies ownership of the 
logical transient area) . When this 
transient area is free, the half word LID 
contains zeros. The SVC 2 routine sets the 
LID, and the SVC 11 routine resets it to 
zero. LID is defined only in an AP 
supervisor. See also LTK, PIK, and PID. 



LTK (Logical Transient Key) 



The LTK has the same value as the PIK when 
the logical transient area is in use. When 
the transient area is free, the LTK equals 
zero. The SVC 2 routine sets the LTK, and 
the SVC 11 routine resets it to zero. 



RID (Requestor Identification) 



See Figure 17, REQID (Item FK 
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RIK (Requestor I/O Key) 



When a supervisor routine (fetch or 
physical transient) issues an SVC or SVC 
15 , the routine puts the value to be used 
in the CAW storage protect key into the 
high-order digit of the second byte of the 
RIK half word. When this value is zero, the 
low order digit has these special meanings: 



Physical transients put a X'Ol' into the 
RIK when they are doing a SYSLOG I/O. The 
PIK for physical transients has a value of 
X , 06 , f therefore the channel scheduler 
would type "SP W (supervisor ID) as the 
SYSLOG ID. The physical transients put the 
ID of the program referred to by the 
message into the message. 



RIK Meaning 

X - 01" This is a SYSLOG I/O request. 

The channel scheduler is not to 
type a SYSLOG ID prefix. 

X'02 f This has been a fetch I/O 

request. This special code is 
required by ERP to recognize 
fetch requests. 

Fetch always sets a X'02' in the RIK. 
ERP transients put the key of the program 
requiring ERP into the RIK, when the ERP is 
a retry of a user EXCP and the ERP 
transient requires control to return to 
itself. 



FIK (Fetch I/O Key) 



Used by the fetch to validate the phase 
name address and load address. FIK has the 
following values: 



SVC 



2 
3 
4 



Contents 

Key of the problem program 

requestor. 





if the transient issued the SVC 4. 

Key of the problem program if not a 

transient. 
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APPENDIX F: EXPLANATION OF FLOWCHART SYMBOLS 



PROCESS 
• B2 



DESCRIPTION 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



BB-D4, INITL1 
BC-B2, 0PENX4 
BL-Jlt ENDPRN 



SUBROUTINE 



IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED. ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



* READ A * 
RECORD 




X 

C4* **. 
.* *. 
.» *. YES 
». ERROR .» 


»««»»C5******»»»* 
♦ERRTN BG« 

. .X*~ERROR~ROUTINE~» 



«»D1**«*«*« AN INSTRUCTION, OR GROUP OF 

» * INSTRUCTIONS, THAT CHANGES 

* PORTIONS OF A ROUTINE OR 
PREPARATION * INITIALIZES A ROUTINE FOR 

* GIVEN CONDITIONS. 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL, SUCH AS 
USER'S ROUTINES. 



.X* USER ROUTINE* 



»#«*F1»»»#*«*»**« ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
INPUT/OUTPUT « BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
* THE BLOCK. 



Gl *. 

DECISION 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



»«H1*»»«*» 
TERMINAL 



END OF JOB 



ON-PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



*BD * 
» D4* 

FILINP 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR AN EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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APPENDIX G: MICROFICHE CROSS-REFERENCE INDEX 



The index gives the relationship of 
core- image phase names, relocatable module 
names, microfiche labels, and microfiche 
identification numbers. 

An asterisk indicates the microfiche 
label. If the microfiche label differs 
from both the phase and the module name, it 
is so indicated in parentheses. 

When a phase or module takes up more 
than one microfiche card, the 
identification number of only the first 
card is shown. 

The index includes all the macro names 
and identification numbers. The position 
of each macro on the microfiche card is 
further identified by rows A to E. The 
rows are not indicated for macros that use 
more than one microfiche card. 

For the complete microfiche 
cross-reference index, see Introduction to 
DOS Logic , listed in the Preface . 



Core Image 
Phase Name 



Relocatable 
Module Name 



Card ID 



$$A$SUP1 (see individual macro phase names) 



$$ANERAA* 


None 


$$ANERAB* 


None 


$$ANERAC* 


None 


$$ANERAD* 


None 


$$ANERAE* 


None 


$$ANERAF* 


None 


$$ANERAG* 


None 


$$ANERAI* 


None 


$$ANERAJ* 


None 


$$ANERAK* 


None 


$$ANERAL* 


None 


$$ANERAM* 


None 


$$ANERAN* 


None 


$$ANERAP* 


None 


$$ANERAQ* 


None 


$$ANERAR* 


None 


$$ANERAS* 


None 


$$ANERRA* 


None 



CTL. 
CTL. 
CTL. 
CTL. 
CTL. 
CTL. 
CTL. 
CTL. 



CTL. 
CTL- 
CTL. 
CTL, 
CTL. 
CTL. 
CTL. 
CTL. 
CTL. 
CTL. 



002.00 
003.00 
004.00 
005.00 
006.00 
007.00 
008.00 
009.00 



010.00 
011.00 
012.00 
013.00 
014.00 
015.00 
016.00 
017.00 
018.00 
019.00 



$$ANERRB 


None 


CTL. 019. 00 


($$ANERRA) 






$$ANERRC 


None 


CTL. 019. 00 


($$ANERRA) 






$$ANERRD* 


None 


CTL. 020.00 


$$ANERRE* 


None 


CTL. 021.00 


$$ANERRF* 


None 


CTL. 022.00 


$$ANERRG* 


None 


CTL. 023.00 


$$ANERRH* 


None 


CTL. 024. 00 


$$ANERRI* 


None 


CTL. 025.00 


$$ANERRJ* 


None 


CTL. 026. 00 


$$ANERRK* 


None 


CTL. 027. 00 


$$ANERRL* 


None 


CTL. 028. 00 


$$ANERRM* 


None 


CTL. 029.00 


$$ANERRN* 


None 


CTL. 030. 00 


$$ANERRO* 


None 


CTL. 031.00 


$$ANERRP* 


None 


CTL. 032. 00 


$$ANERRQ* 


None 


CTL. 033. 00 


$$ANERRR* 


None 


CTL. 034. 00 


$$ANERRS* 


None 


CTL. 035.00 


$$ANERRT* 


None 


IOM. 001.00 


$$ANERRU* 


None 


CTL. 036.00 


$$ANERRV* 


None 


CTL. 037.00 


$$ANERRW* 


None 


IOM. 002. 00 


$$ANERRX* 


None 


CTL. 038.00 


$$ANERRY* 


None 


CTL. 039. 00 


$$ANERRZ 


None 


CTL. 039.00 


($$ANERRY) 






$$ANERR0 


None 


CTL. 039. 00 


($$ANERRY) 






$$ANERR1* 


None 


CTL. 040. 00 


$$ANERR6* 


None 


CTL. 041.00 


$$ANERR7* 


None 


CTL. 042.00 


$$ANERR8* 


None 


CTL. 043.00 


$$ANERR9* 


None 


IOR. 001.00 


$$ANERSA* 


None 


CTL. 043.50 


$$ANERSB* 


None 


CTL. 043. 60 


$$ANERSC* 


None 


CTL. 043. 70 


$$RAST0O* 


ILVRAS00 


CTL. 257. 00 


$$RAST01* 


ILVRAS01 


CTL. 258. 00 


$$RAST02* 


ILVRAS02 


CTL. 259.00 


$$RAST03* 


ILVRAS03 


CTL. 260. 00 


$$RAST04* 


ILVRAS04 


CTL. 261.00 


$$RAST05* 


ILVRAS05 


CTL. 262. 00 


$$RAST07* 


ILVRAS07 


CTL. 264. 00 


$$RAST09* 


ILVRAS09 


CTL. 266. 00 


$$RAST10* 


ILVRAS10 


CTL. 267.00 


$$RAST11* 


ILVRAS11 


CTL. 268. 00 
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Macro Name 


Card ID 


Row 


ALLOC 


453.001.00 


A 


ASSGN 


453.001.00 


B 


COMMN 


453.003.00 


D 


COMMNEX 


453.003.50 


A 


CONFG 


453.004.00 


A 


DVCGEN 


453.006.00 


B 


FOPT 


453.007.00 


C,D 


IOTAB 


453.008.50 


A,B 


LUBGEN 


453.008.00 


E 


MAPLOWC 


453.008.50 


D 


MCRAS 


453.008.50 


E 


PIOCS 


453.010.00 


A 



SEND 


453.012.50 


A-D 


SGDPCH 


453.013.00 


A 


SGDSK 


453.013.00 


B 


SGSVC 


453.013.00 


C-E 


SGTCHS 


453.014.00 


A-D 


SGTCON 


453.014.01 


A 


SGTHAP 


453.014.01 


C-E 


SGUNCK 


453.014.50 


A,B 


SMCRR 


453.012.00 


B,C 


SMICR 


477.002.00 


A,B 


STDJC 


453.015.00 


B 


SUPVR 


453.015.00 


D 


TRTAB 


453.014.01 


B 
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GLOSSARY 



For a more complete list of data processing 
terms, refer to IBM Data Processing 
Techniques , A Data Processing Glossary , 
GC20-1699. 



ASCII (American National Standard Code for 
Information Interchange) ; A 128-character, 
7-bit code. The high-order bit in the 
System/360 8-bit environment is zero, 

buffer ; 

1. A storage device in which data is 
assembled temporarily during data 
transfer. An example is the IBM 2821 
Control Unit, a control and buffer 
storage unit for card readers, card 
punches, and printers. 

2. During I/O operations, a portion of 
main storage into which data is read 
or from which data is written. 

CCH (channel check handler) ; A feature 
that assesses System/370 channel errors to 
determine if the system can continue 
operations. 

channel inboard error : An error that 
occurs between one I/O device and the 
central processing unit. 

chronological area of the recorder file : 
The area of the recorder file (IJSYSRC) 
where error records are printed as they 
occur. The record types included are: 
OBR, MCRR, MCAR, CCH, BTAM, QTAM, and 2715 
error records. This area is present on 
both the System/360 and System/370 recorder 
files and differs from the SDR area where 
cumulative errors are recorded by device 
type. 

core image library : A SYSRES area (or a 
device of the same type as SYSRES) that 
stores programs processed by the linkage 
editor. Each program is in a form that can 
be executed in main storage. 

core wrap mode : The method of operation 
that records the events of a trace in main 
storage. It is the default process when no 
output device for the trace has been 
specified. The contents can be displayed 
by either a dump program or manually from 
the console. 

data set security : A feature that provides 
protection for disk files. A data secured 
file cannot be accidentally accessed by a 
problem program. 



Disk Operating System : A disk resident 
system that provides operating system 
capabilities for 16K and larger IBM 
System/360 and System/370 systems. 

DOS Volume Statistics : A facility that 
monitors and records the number of 
temporary read and write errors on 
currently accessed tape volumes. This 
facility has two options. Error Statistics 
by Tape Volume (ESTV) and Error Volume 
Analysis (EVA). 

EREP (environmental recording, editing and 
printing) : A program that processes the 
data contained on the system recorder file. 

ESTV (Error Statistics by Tape Volume) : 
One of the two options of the DOS Volume 
Statistics. With ESTV support, the system 
collects data on tape errors by volume for 
any tape volumes used by the system. 

EVA (Error Volume Analysis) : One of the 
two options of the DOS Volume Statistics. 
With this option, the system issues a 
message to the operator when a number of 
temporary read or write errors (specified 
by the user at system generation time) has 
been exceeded on a currently accessed tape 
volume. 

F/L Trace (Fetch/Load Trace) : A program 
that records information about phases and 
transients as they are called from a core 
image library. 

fetch 

1. To bring a program phase into main 
storage from a core image library for 

r immediate execution. 

2. The routine that retrieves requested 
phases and loads them into main 
storage. 

3. The name of a macro instruction 
(FETCH) used to transfer control to 
the system loader. 

4 . To transfer control to the system 
loader. 

GSVC Trace (Generalized Supervisor Calls 
Trace) : A program that records SVC 
interrupts as they occur. All or a 
selected group of SVCs can be traced. 

I/O (input/output) error logging : The 
process of recording OBR and SDR records on 
the system recorder file. 

IDRA (independent directory rea*d-in area) : 
A resident area, created by a supervisor 
option into which the system reads core 
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image library directories for fetch and 
load operations • Using IDRA frees the 
physical transient area to perform error 
recovery procedures, 

IOCS (input/output control system) : A 
group of macro instruction routines 
provided by IBM for handling the transfer 
of data between main storage and external 
storage devices. 

I/O Trace (Input/Output) Trace) : A program 
that records I/O device activity for all or 
a selected group of I/O devices. 

job accounting interface ; A function that 
accumulates accounting information for each 
job step to: charge usage of the system, 
help plan new applications, and help 
supervise system operation more 
efficiently. 

MCAR (machine check analysis and 
recording) : A feature that records 
System/370 machine check interrupt error 
information on the system recorder file and 
then attempts to recover from the 
interrupt. 

MCRR (machine check recording and 
recovery) : The recording of pertinent data 
on the system recorder file after either a 
machine check interrupt or a channel 
inboard error occurred on System/360 Model 
30 , Model 40 , or Model 50. 

MCI (machine check interrupt) : The 
interrupt that occurs if the central 
processing unit fails to operate. 

object module ; One or more control 
sections in relocatable, nonexecutable 
form. An object module must be processed 
by the linkage editor before it can be 
executed in the system. 



OBR (outboard recorder) 



A feature that 

records pertinent data on the system 
recorder file when an unrecoverable I/O 
error occurs. 



compiling, linkage editing, and executing 
in the foreground partition, when a private 
core image library is assigned to that 
foreground partition. 



PDAID (Problem Determination Aids) ; 
Programs that trace a specified event when 
it occurs during the operation of a 
program. The traces provided are QTAM 
Trace, I/O Trace, F/L Trace, and GSVC 
Trace. 

private library : A relocatable, core 
image, or source statement library that is 
separate and distinct from the system 
library. 

problem determination : A procedure or 
process (provided by IBM) that the user can 
follow after an error message to determine 
the cause of that error. (See PDAID) 

QTAM Trace : A routine that records certain 
supervisor and I/O activities on tape or in 
main storage. 

RDE (Reliability Data Extractor) : A 
function that provides hardware reliability 
data that is analyzed by IBM. 

RMS (recovery management support) : A 
feature for System/370 that consists of the 
MCAR (machine check analysis and recording) 
and CCH (channel check handler) functions. 
RMS gathers information about System/370 
hardward reliability and attempts certain 
error recovery operations. RMS is a part 
of the entire reliability, availability, 
and serviceability support for System/370. 

SDR (statistical data recorder) : A feature 
that records the cumulative error status of 
an I/O device on the system recorder file. 

stand- alone dump : A program that displays 
the contents of main storage from a minimum 
of 8K bytes to a maximum of 163 84K bytes. 
It helps to determine the cause of an 
error. 



overlay : A program segment (phase) that is 
loaded into main storage. It replaces all 
or part of a previously retrieved section. 

PCIL (private core image library) : A file 
referenced in the same manner and for the 
same purposes as the system core image 
library, but distinct from the system core 
image library. PCIL increases available 
core image library space to enable 



system recorder file : The file that is 
used to record hardware reliability data. 

track hold : A function for protecting DASD 
tracks that are currently being processed. 
When track hold is specified in the DTF, a 
track that is being modified by a task on 
one partition cannot be concurrently 
accessed by a task or subtask in another 
partition. 
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INDEX 



Indexes to systems reference library 
manuals are consolidated in the 
publication, DOS Master Index , GC24-5063. 
For v additional information about any 
subject listed below, refer to other 
publications listed for the same subject 
in the Master Index. 



A (physical) transients 22,91 
AB (abnormal termination) table 21,45 
abnormal termination (AB) table 21,45 
Am. Nat. Std. Code for Info. Interchange 

(see ASCII) 
ASCII 

address pointer 41 

CCB indicators 83 

COMREG indicator 36 

definition 415 

global setting 33 

storage location 17 

SYSGEN option 23 

text 22 

translation tables 61 
asynchronous processing 15 
attention interrupts 

physical 91 



B (logical) transients 22 
background save area 22 
background vs foreground programs 
batch job support 68 
buffer 415 



14 



cancel codes and messages 79 
CAW (channel address word) 87 
CBF (console buffering) table 21 
CCB (command control block) 81,83 
CCH 

CCH/ERP 125 

channel check record format (Model 
155) 124 

definition 415 

function of RMS 121 

general charts (08,09) 140,141 

severity routine results 122 
CCW (channel command word) 84 
CE 

accessing serviceability routines 65 

area 22 

table 21 
channel address word (CAW) 87 
channel check handler, see CCH 
channel command word (CCW) 84 
channel inboard error 415 
channel queue (CHANQ) table 20,35,49 



channel queue table operation 75 

channel status word (CSW) 88 

CHANQ (channel queue) table 20 , 35, 49 

CHANQ table operation 75 

charts 

detail (see phases) 

general (see phases) 
chronological area of the recorder file 

415 
command control block (CCB) 81,83 
communications region 36 

additional 41,45 

extensions 41,45 

low core pointer 17 

SDR 21,59 
console buffering (CBF) table 21 
core image library 415 
core wrap mode 415 
CSW (channel status word) 88 



data cell error recovery 113 

data set secuirty 415 

density data 67 

detail charts (see phases) 

device error recovery sense information 

94 
device type codes 66 
diagnostic scan-out area 24 
DIB (disk information block) table 21,44 
disk error recovery 91,111 
disk information block (DIB) table 20,44 
DOS (Disk Operating System) 415 
DOS Volume Statistics 415 
DTF addresses and pointers, (MICR) 22,42 



ECB (event control block) 78 
emulator 

chart BH (SVC interrupt handler) 159 

chart DB (tape error) 185 

chart FR (SVC 45) 218 

charts BC-BE (general exit) 153 

EU parameter (SUPVR macro) 23 

globals (BG50, BG51) 32 

SYSGEN option 23 

use of SVC45 83 
ERBLOC (error recovery block) 90 
EREP 415 
ERP 

(1017,1018) 117 

(1052) 108 

(1285,1287,1288) 115 

(1403,1443) 109 

(1412,1419) 115 

(1442) 110 

(2311,2314) 111 

(2321) 113 

(2400) 106 

(2495) 117 

(2501,2520,2540) 110 

(2671) 110 

System/370 CCH 121,125 
ERRLOG 

also see RDE 
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ERRLOG (CONT.) 

definition 415 

effect of RMS 98 

function 98 

SYSGEN option 23 
error bytes 19 

error message cross reference 404 
error queue entry 90 
error recovery block (ERBLOC) 90 
error recovery message codes 95 
error recovery procedures (see ERP) 91 
error volume analysis, see EVA 
EU, see emulator 
EVA 

definition 415 

global settings (AG31,AG32) 34 

supervisor macro options 24 
event control block (ECB) 78 
external interrupt 68,69 



F/L trace (Fetch /Load Trace) 415 

FAVP (first available pointer) 35 

fetch 415 

fetch I/O key (FIK) 411 

FICL (first-in-class-list) table 35,56 

FIK (fetch I/O key) 411 

first available pointer (FAVP) 35 

first-in-class-list (FICL) table 31,56 

first-on-channel list (FOCL) 35 

flowcharts 

detail 149 

general 133 

symbol explanation 412 
FLPTR (free list pointer) 35 
FOCL (first-on-channel list) 35 
FOPT macro 

detail chart 150 

general chart 134 
free list pointer (FLPTR) 35 



general charts (see phases) 

global settings 30 

glossary 415 

GSVC (Generalized SVC Trace) 415 



hard wait error codes 18,19 



I/O error logging (see ERRLOG) 

I/O error recovery procedures and sense 

data 96 
I/O interrupt 68 

I/O request-I/O interrupt sequence 407 
I/O table interrelationship 35 
I/O tables and information blocks 21 
I/O trace (Input/Output Trace) 416 
IDRA 

definition 415 

description 22 

SYSGEN options 25 



Independent Directory Read-in Area, see 

IDRA 
information blocks 21 
interphase communication area (for $$ANERRZ 

Y,0) 96 
interrupts 

external 68,69 

I/O 68,68 

machine check 68,68 

physical attention 91 

program check 6 8,68 

supervisor call (SVC) 68 
interval timer (IT) table 21,45 
introduction 1 3 

IOCS (Input/Output Control System) 416 
IT (interval timer) table 21,45 



JA 

common table (ACCTCOMN) 43 
COMREG support 39 
definition 416 
partition table (ACCTXX) 58 
SYSGEN options 25 
table address pointers 41 
user's table (job accounting table) 
58 
JIB (job information block) table 21,35, 

51 
job information block (JIB) table 21,35, 
51 



label information format on SYSRES 

DASD 409 

tape 408 
label list 391 
LID (logical transient identification) 

410 
load list of R-transients 127,128 
logical ($$B) transients area 22 
logical transient identification (LID) 

410 
logical transient key (LTK) 410 
logical unit block (LUB) table 20,35,50 
low core 

diagnostic scan-out area 20 

error bytes 19 

permanently allocated low core 20 

text 1 8 
LTK (logical transient key) 410 
LUB (logical unit block) table 20,35,56 
LUBDSP table 49 
LUBID table 35,49 



machine check analysis and recovery, see 
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6 DOS Supervisor and Related Transients 



Name 



Macro Description 



Parameter Option 



Option Description 



SUPVR 



Describes system environment 



SYSTEM DISK 



MPS = 



TP = 



NO ) 
YES> 
BJF ) 



) BTAM ( 

Sqtam / 

(QTAMnl 



ERRLOG = 



Lyes, rde)| 

!(n, RDE) 



MCRR = 



MICR: 



AP = 



(NO) 
I YES/ 

i NO ) 
M412 ( 
J 1419 I 

I 1419D) 



I yes/ 



{NO | 

EU = < Y ES \ 

( RELOC) 



ASCII 



|NO| 

I yes/ 



System residence (SYSRES) must be on a disk device. 

Indicates multiprogramming support. If YES or BJF is specified, the system 
generated is capable of supporting two foreground programs. YES or BJF must 
be specified if TP = QTAM. If BJF is specified, the system generated will 
support batched mode for both foreground partitions. Multiple communications 
regions are generated only if MPS = BJF. MPS = YES is implied if MPS = BJF. 

Specify if Basic or Queued Teleprocessing Access Method (BTAM or QTAM) is 
desired. When QTAM is specified, SVC support for BTAM is also included. 
To process QTAM in a system with asynchronous processing support, QTAMn 
must be specified where n is the maximum number of active QTAM message 
processing programs in the system. From 2 to 12 programs may be specified 
with a default value of 2. 

Specify if the Outboard Recorder (OBR) is to record data pertinent to an error 
that cannot be retried or corrected after a standard number or retries. Also, 
specify if the Statistical Data Recorder (SDR) is to record the cumulative error 
status of an I/O device, n defines the number of records required on the SDR 
partition of the Recorder File, where n is any number equal to, or greater than, 
the number of PUBs. YES indicates a number of SDR records equal to the 
number of PUBs. ERRLOG = RDE supports the Reliability Data Extractor for 
System/370 only. If RDE is specified without YES or n, YES is assumed. 
ERRLOG is assumed YES for all System/370 MODEL options if it is not specified. 

Specify if MCRR is to record pertinent data after a machine check, channel 
control check, interface control check, or channel data check. MCRR 
analyzes collected data and cancels the damaged partition(s). No attempt at 
error retry is made. This parameter is valid only for Models 30, 40, and 50. 

Indicates whether the supervisor is to support magnetic ink character readers or 
optical reader/sorters. If both 1412s and 1419s are present, indicate 1419. 
1419D/1275 indicates Dual Address Adapter 1419s. If 1412/1419/1255/1259/ 
1270/1 275s are attached to the multiplexor channel, the PIOCS parameter 
BMPX = YES is not supported. 

Indicates asynchronous processing support. This provides the user with the 
facility to write dependent programs to run concurrently within a partition and 
still maintain the partition independency of MPS. If YES is specified, global 
BG20 (MPS = YES or BJF) is forced on whether or not it was specified. 

EU = YES specifies: IBM 1401/1440/1460 Emulator for Models 25, 30, or 40; 
IBM 1401/1440/1460 or 1410/7010 Emulator and mixed parity tape processing 
for System/370 CPUs. If foreground emulation is desired on any model, 
MPS = BJF is required. Foreground emulation on Model 40 requires EU = RELOC. 

Indicates whether the supervisor is to support the American National Standard 
Code for Information Interchange (ASCII). YES adds 512 bytes to supervisor size. 



CONFG 



Describes hardware features 



MODEL 



v nnn / 



»- iWs) 



( NOl 
DEC \YES/ 



FP; 



I yes/ 



TIMER - 



m 



/NO) 
PORT--, fe} 



nn defines the System/360 model number (Model 30, 40, or 50 must be entered 
if MCRR option is specified), nnn defines the System/370 model number. 
(A System/370 model causes generation of MCAR/CCH support. MCRR is not 
compatible with System/370.) 

Indicates the storage protection feature is desired. YES is assumed if MPS = YES 
or BJF in the SUPVR macro. 

Decimal feature. 



Floating-point feature. 

Timer feature. If TIMER —YES the supervisor macro GETIME is supported. 

Causes Model 155 MCAR/CCH functions if MODEL = 145. 
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Name 



Macro Description 



Parameter = Option 



Option Description 



STDJC 



Sets standard values for job control 
variables. 



DECK = j YES 



LIST = I YE| I 



/YES) 

I NO/ 

YES ) 
NO/ 



XREF = |YES| 

(NO/ 

ERRS = \ YES \ 
iNO/ 

LOG = /YES| 
INO / 

DUMP = / YES 
\NO 



LINES 



_ | 56 



{-} 

1 nn ) 



DATE = /MDY| 

Idmy/ 

CHARSET= /1§£1 
\60CJ 

L,STX={NO} 

SYM=/NPI 
I YES/ 

SPARM= /NQl 
1YESJ 



Output modules on SYSPCH. 

Source modules listings from language translators on SYSLST. 

Language translators output symbolic cross-reference lists on 
SYSLST. 

Compilers summarize all trr.Ts in source programs on SYSLST. 

Listing of all control statements on SYSLST. 

Dump of registers and main storage on SYSLST. 

Number of lines per page on SYSLST. 

Format of date . 

Specifies the 48 or 60 character set for language translator 
input on SYSIPT. 

Hexadecimal object module listings from compilers on SYSLST. 
Assembler output symbol tables on SYSPCH. 
Support of assembler variable symbol &SYSPARM 



FOPT 



Describes functional supervisory 
options 



OC =/NO\ 

I yes/ 



PC = /NO) 
I YES/ 



IT = 



NO 
BG 
Fl 
F2 



AB 



IYES/ 



TEB : 



{*?} 



t NO 

TEBV= '// DASD ) ,n\ 
IVlSYSLOG.I / 



\(rth, wth, n) / 



Operator initiated communications to problem programs. If 
OC=YES,the facility is available to all programs in MPS. Must 
be YES if Emulator on System/370 is used. OLTEP=YES forces 
OC=YES. 

Problem program routine for program check. If PC = YES, 
the facility is available to all programs in MPS. 

Problem program ability to set timer intervals and specify a 
timer interrupt routine. BG, Fl , or F2 indicates which pro- 
gram has the facility. When IT is specified for a partition, 
TIMER = YES is assumed in the CONFG macro. Timer sup- 
port is available to only one program in MPS. 

Provides for valid use of the STXIT (AB) macro. If AB = YES, the 
facility is available to all programs in MPS. 

Tape error statistics are to be accumulated and logged, where n 
is the number of 2400-series tape units and tape cartridge readers 
(maximum of 225) attached to the system. ** 

Tape Error Statistics by Volume are to be accumulated and logged 
on SYSLOG or a DASD device, where n is the number of 2400 
series tape drives attached to the system . ** 



Error Volume Analysis is supported where rth is the read error 
threshold, wth is the write error threshold, and n is the number 
of 2400 series tape drives attached to the system. ** 



The n specified in TEB, TEBV, and EVA must be identical if two or more of these options 
are specified, and then TAPE =9 is assumed. 
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Name 



Macro Description 



Parameter Option 



Option Description 



FOPT 
(cont'd) 



SKSEP= ^ YES > 



CE 



.{«} 



CCHAIN= fHQ\ 
lYES/ 



CB F = {n NO } 



|DRA= ib!OV 
lYES/ 



TRKHLD = /NO| 



WAITM = /N2\ 
I YES I 



** RETAIN = (NO) 
lYESj 



DASDFP= 



NO \ 

(n,n,2311)( 
<n,n,2314)( 
(n,n,2321)) 



*SYSFIL = 

NO 
J (2311 [,nl,n2]) 
((2314 [,nl,n2]) 



Specifies if SEEKs are to be separated from the remainder of 
channel programs. Seek separation allows other devices on 
the channel to be accessed (including other seeks) during 
the seek. YES indicated support for all DASD types specified 
by the DVCGEN macro at system generation time, n is the 
number of DASD to be supported and cannot be less than the 
number of DASD specified at system generation. The maxi- 
mum number is 254. 

Specify the number of bytes to be aalocated to the problem 
determination programs. 800 is the minimum number of bytes 
that can be specified. For the actual number of bytes allocated, 
see Figure 1-6. 



Command chaining support for retry on I/O operations. When 
an error occurs and CCHAIN = YES, the user is allowed to retry 
at the last CCW executed instead of at the first CCW in the 
channel program as is the case in a normal retry. This option 
requires that the appropriate bit be set in the CCB. 

Physical Transient Overlap allows tasks to be selected during 

the time of FETCH, LOAD, MVCOM, and ERP I/O. PTO 

is valid only when MPS = YES or MPS = BJF in the SUPVR macro. 

Console Buffering provides immediate return to the caller when 
write I/O to SYSLOG is issued where SYSLOG is a 1052. n 
indicates the number of buffers to be generated ; 1 to 50 
buffers may be specified. 1 is assumed if the operand is invalid. 

Independent Directory Read-in Area feature. YES option 
causes generation of the IDRA area in supervisor. IDRA re- 
duces contention for the PTA in fetch operations when ERP 
is active. Use of IDRA requires MPS = YES or BJF and PTO = YES. 

If n is specified, coding to support the HOLD and FREE track 
macros. TRKHLD = n specifies the number of tracks to be held at 
any one time, and a Track Hold Table (See Figure 24) is gener- 
ated for that number. If n is not in the range of 1 to 225, 10 is 
assumed. 

Provides for valid use of the WAITM macro/ waiting for one of a 
number of events to occur before continuing with task execution. 
Waits are performed on Event Control Blocks, which may be of 
the special form as in Figure 34. Other blocks that may be used 
as ECBs are CCBs, TECBs, and MICR CCBs since posting is done 
in bit Obyte 2 of the block. 

Specifies if the data link to the Remote Analysis Center is to be 
supported. RETAIN = YES is valid only if a S/370 CPU was 
specified in the MODEL option. 

Supervisory DASD file protection, where (n,n) indicates the 
range of channels to which DASDs may be attached. Specifying 
2311 or 2314 indicates support for both. 2321 option indicates 
support for 2321 device as well as for 2311 and 2314. DASDFP 
prevents the user from writing outside the extents of his file in 
case of program error. Extents are protected to the nearest 
cylinder. 

System input and system output (SYSRDR, SYSIPT, SYSLST, 
SYSPCH) files may be assigned to a 2311, 2314, or both. 
Specifying either indicates support for both. If MPS=BJF in 
the SUPVR macro, support is given for foreground logical 
units when running in batched mode. 

nl = residual capacity (in records) for beginning of operator 
notification when SYSLST is assigned to a 2311 or 2314. 

lOOi nl < 65536 

If nl is omitted, 1000 is assumed. 



Valid when at least 24K bytes of main storage are available. 

YES is valid only on a S/370 CPU; YES is the default for a S/370 MODEL. NO is the default 

for a S/360 MODEL. 
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Name 


Macro Description 


Parameter = Option 


Option Description 


FOPT 

(cont'd) 




*SYSFIL (cont'd) 

™- m 

(NO | 

M= Y f S 2 3 

I nl ,n/,n3 * 

JALIOCS = / NO-. 1 
t(nl,n2)/ 

OLTEP= /NO I 
I YES / 


n2=residual capacity (in records) for beginning of operator 
notification when SYSPCH is assigned-to a 231 1 or 2314. 

100<n2< 65536 

If n2 is omitted, 1000 is assumed. 

Provides supervisor support for private core image library. 

NO defaults to no Job Accounting Interface support. YES specifies 
basic JA support, (nl ,n2,n3) gives additional support to count 
SlOs issued to I/O devices by partition. nl,n2, and n3 refer to 
the number of devices in BG, F2, and Fl for which SIOs are to be 
counted . Choose values for each n from to 255 to specify the 
number of devices accessed by partition; if any n value is omitted, 
it defaults to zero. 

NO defaults to 16 bytes in the user save area and zero bytes for the 
alternate label area. Set nl from to 1024 bytes for the user save 
area; if omitted, it defaults to 16 bytes. Set n2 from to 224 
bytes for the alternate label area (usually =number specified by 
LBLTYP); if omitted, it defaults to zero bytes. 

Specify if the on-line testing function is desired. If MODEL= a 
System/370 CPU, then OLTEP=YES is assumed. OLTEP=YES 
forces OC=YES. 


PIOCS 


Describes the system I/O 
configuration 


SELCH- /YES) 
I NO/ 

BMPX= /NO I 
I YES/ 

(NO ) 
CHANSW= < TSWTCH> 

( RWTAU ' 

TAPE-jf} 

MRSLCH= /NO \ 
I YES/ 


Selector channels attached to the system. 

Burst Mode devices are supported on multiplexor channel . 
1 f 1 41 2 - 1 41 9s or 1 287 - 1 288s are attached to the multiplexor 
channel, BMPX =YES is not supported. 

Channel switching tape control unit. RWTAU =2404 or 2804, 
TSWTCH=2816. 

Indicates required tape PlOCS support. 9 = nine track only, 
7 = seven or nine track, NO=No tape units attached. NO 
is the assumed value. 

MICR tape device assigned to a selector channel . 


ALLOC 


Partitions storage for MPS 
(optional macro). 


Fl =nK, F2=nK 


Specifies storage partitioning MPS, where n must be a multiple 
of 2. Must beat least 1 OK if MPS =BJF. 


IOTAB 


Describes installation requirements 
for I/O tables . 


IODEV= {12.} 
BGPGR= /lil 
FlPGR-fi-} 
F2PGR= /-LI 
CHANQ= /A. 1 

J1 " (f } 


Number of I/O devices attached to the system. 

Number of symbolic units of the class SYSnnn for the background 
program . 

N.umber of symbolic units of the class SYSnnn for Fl . Valid only in 
MPS (minimum 5). Otherwise zero is assumed when MPS=NO. 

Number of symbolic units of the class SYSnnn for F2. Valid only in 
MPS (minimum 5). Otherwise zero is assumed when MPS -NO. 

Number I/O requests in the channel queue. 6 is the minimum 
value generated. In a supervisor with CBF option specified, the 
minimum value is 6 plus the number of console buffers generated. 

Number of Job Information Blocks (JIBs) for the system. Re- 
quirements are: 
I . One JIB for each temporary logical unit assignment. 

2. One JIB for each alternate logical unit assignment. 

3. One JIB for each open 2311 or 2314 extent with the 
DASD file protect feature. 

4. Two JIBs for each open 2321 extent with the DASD file 
protect feature. 



Figure 4. 
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Name 



Macro Description 



Parameter -Option 



Option Description 



DVCGEN 



Specifies I/O devices. Each 
device type requires a separate 
DVCGEN macro. (See note 1 forr 
DVCGEN rules. This is an 
optional macro.) 



CHUN -{X'cuu'} 



DVCTYP - {xxxxxx} 
CHANSW= {^} 
MODE = {X'ss'} 



Specify the hexadecimal number of the channel and unit for the 
device . 

Specify the device type. See Figure 29. 

Specify if the device is attached to more than one selector 
channel . If it is, the device can be switched. 

1 . 2400T9. MODE specifies the tape mode. X'CO' is the 
default value. 

2. 2400T7. MODE specifies the tape mode. X'90' is the 
default value. See Figure 30 for other values. 

3. 2702. MODE designates the SADxxx command. X'00' is 
the default value. 

X'00' SADO 
X'Ol' SAD1 
X'02' SAD2 
X'03' SAD3 

4. 2260 (Local). MODE is used to specify the 1053 printer when 
CHUN = X'cuu' refers to a 1053 attached to a 2848. The 
operand must be entered as MODE = X'01' 

5. 1412/1419. MODE designates the external interrupt bit 
associated with Magnetic Ink Character Readers. The modes 
X'01' through X'20' correspond to external interrupt PSW bits 
31 through 26 respectively. For the dual address adapter 
1419, this parameter is needed for both the 1419P and the 
1419S device types. 

X'OT Device attached to external line 7. 
X'02' Device attached to external line 6. 
X'04' Device attached to external line 5. 
X'08' Device attached to external line 4. 
X'10' Device attached to external line 3. 
X'20' Device attached to external line 2. 

6. 1018 Paper Tape Punch with 2826 Paper Tape Control Unit 
Model 1. This parameter specifies whether or not the Error 
Correction feature is present: 

X'00' feature not present 
X'01 1 feature present 



ASSGN 



Sets standard I/O assignments. A 
separate macro is required for each 
standard assignment desired. 
(Optional macro) 



SYSxxx, X'cuu', 



»}} 



SYSxxx is any symbolic logical unit (SYSIPT, SYSLOG, etc.) 
or programmer logical unit (SYS000, SYS001 , etc.). X'cuu' is 
the hexadecimal number of the channel and unit to which the 
symbolic device is attached. 

/ BG) indicates the specific partition to which the ASSGN is 
< Fl ? being made . 

t F2 ) 



SEND 



Indicates end of supervisor 
generation . 



["] 



Specifies the beginning address of the problem program area. An 
area should be reserved for supervision expansion and maintenance. 
The parameter is optional . If not specified, no area is reserved 
beyond the assembled last address of the supervisor. 



Note 1: Rules for using DVCGEN 

1. A separate DVCGEN macro instruction is required for each device. 

2. The total number of DVCGEN macros must not exceed the total number of devices specified in the IODEV parameter of the IOTAB macro. 

3. DVCGEN macros must be specified in ascending channel address sequence. 

4. Switchable units (attached to more than one selector channel) must be defined once. They are defined on the lowest channel on which they 
are addressable. 

5. The sequence of the DVCGEN cards determines the priority of the devices on their channel. Switchable units must be the last devices for 
each channel, and must be on consecutive channels. 

6. The specifications of these macros may be altered by I PL ADD and DEL statements. See I PL PLM, GY24-5086. 

7. Rules for SYSxxx: 

a. The ASSGN macro allows SYSRDR, SYSLST, SYSPCH, and SYSIPT to be assigned to a tape or DASD. However, IPL unassignes any such 
assignments. 

b. SYSLOG must also be assigned in BG, if assigned in foreground partition. 

c. SYSLNK cannot be specified in either foreground partition. 
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Macro 


Type 


Code Generated 


Critical 
Globals Set 


SUPVR 


generation 


Defines low main storage 


BGIO BG25 
BGl 3 BG27 
BGl 4 BG35 
BGl 9 BG36 
BG20 &G50 
BG21 BG51 
BG24 BG100 
AGll 


CONFG 


generation 


None 


BGl BG23 

BG2 BG39 

BG22 BG51 

AG12 


STDJC 


generation 


None 


BG34 BG81 


FOPT 


generation 


General cancel 

SVEREG routine 

General exit 

Background communication region and extension 

General entry 

SVC interrupt handler 


BGO BG60 
BG2 BG61 
BG4 BG62 
BG5 BG71 
BG6 BG72 
BG7 BG73 
BG8 AG2A 
BG14 AG7 
BG15 AGIO 
BG16 AG13 
BGl 8 AG21 
BG26 AG22 
BG30 AG23 
BG32 AG28 
BG33 AG31 
BG38 AG32 
BG40 AG39 
BG52 


PIOC5 


generation 


None, directly calls inner macros. 


BG3 BG11 
BG9 BG12 
BGIO BG31 


SGTCHS 


inner 


Channel scheduler 
Start I/O 
SIO accounting 
I/O interrupt 


none 


SGUNCK 


inner 


Unit check 

Error recovery exits 


none 


SGTCON 


inner 


VLDADR1 subroutine, ATNRTN routine, CCW chain, disk information blocks, error 
recovery block, SVC interrupt table, PC option table, and OC option table, physical 
transient save area, IDRA save area, logical transient save area. 


none 


SGQFCH 


inner 


Fetch subroutine 


none 


SGSVC 


inner 


Supervisor interrupts 
Program check interrupts 
External interrupts 
Console buffering routine 


none 


SGDSK 


inner 


Disk error recovery 


none 


SGTHAP 


inner 


Track hold, track free, set abnormal exit routine address, and asynchronous 
processing routines. 


none 


SMICR 


inner 


External interrupts for MICR type devices 
Program checks in stacker select routine 
Error recovery for test I/O and start I/O 


none 


ALLOC 


generation 


None 


none 



Figure 5. Macro Functions (Part 1 of 2) 
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Macro 


Type 


Code Generated 


Critical 
Globals Set 


IOTAB 


generation 


Supervisor table expansions- SYSCLB LUByPIBs, SVC Interrupt table, channel queue table 
(CHANQ), PUB, JIB, TEB, and TEBV. 


AG2D 


LUBGEN 


inner 


Generates NICL, FICL, and unassigned LUB tables, console buffers, and track hold 
table entries. 


none 


DVCGEN 


generation 


Overlays for PUB table entries. 


AG8 


ASSGN 


generation 


Overlays for LUB table entries. 


none 


SEND 


generation 


Generates console buffer and PTO patch areas; JAI partition tables, user save area, and 
label area; OBR/SDR routines. Calls inner macros COMMN for Fl, F2, communications 
regions, COMMNEX for Fl, F2, communications region extensions, TRTAB for ASCII 
translation tables, MCRAS for RMS resident coding and RTA. Defines end of supervisor 
nucleus, beginning of IDRA, A and B transient areas, start of problem program area, 
CE area, and BG save area. 


none 


SMCRR 


inner 


Machine check recording and recovery record builder. 


none 


COMMN 


inner 


Communications regions for all partitions. 


none 


COMMNEX 


inner 


Communications region extensions for all partitions. 


none 


TRTAB 


inner 


Generates ASCII translation tables. 


none 


MCRAS 


inner 


Generates RMS Monitor and RTA. 


none 


MAPLOWC 


inner 


Generates equates to address low core for RMS. 


none 



Figure 5. Macro Functions (Part 2 of 2) 
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Global 



BGO 



BG1 

BG1QT 

BG2 

BG3 
BG4 



On Setting 



CE=YES or n 

AP=YES 

AB=YES 

EU=YES 

TRKHLD=n 

ERRLOG=YES or 

CLEAR 
MCRR=YES 
MICR=1412, 1419 

or 1419D 
JA=YES 

JA=(n 1(l n 2 ,n 3 ) 
ASCII =YES 
MPS=YES or BJF 

SP=YES 

TP=QTAM 

TIMER=YES 
JA=YES 

JA=(n ll n 2f n 3 ) 

CHANSW=TSWTCH 
or RWTAU 

TEB=n 



BG5 


PTO=YES 


BG6 


OC=YES 




OLTEP=YES 


BG7 


IT=Fl f or 




F2, or BG 


BG8 


PC=YES 


BG9 


CHANSW=RWTAU 


BG10 


SELCH=YES 


BG11 


BMPX=YES 


BG12 


TAPE=7 or 9 


BG13 * 


AP=YES 


BG14 


WAITM=YES 




AP=YES 



Purpose 



Determines the length of the supervisor save area. 



Determines whether the storage protect feature is used. 

Determines QTAM support. 

Determines whether the timer feature is used. 
Does not force BGO. 

Determines whether channel switching is supported (2816) 



Determines if tape error statistics are to be accumulated 
and logged. 

Determines if physical transient overlap option is 
supported. 

Determines if the asynchronous user interrupt key routine 
is supported. Does not force BGO. 

Determines whether the internal timer option is 
supported. Does not force BGO . 

Determines if the user program check routine is supported. 

Determines whether channel switching is supported (2404, 
2804). 

Determines whether selector channels are supported. 

Determines whether burst mode devices will be supported on 
the multiplexor channel. 

Determines the type of tape support required. 

Determines if asynchronous processing is supported. If 
yes, force on BG0 ( , BG14, BG2 0. 

Determines if the wait multiple function is supported. 
Force on if AP is specified. Does not force on BGO. 



Figure 6. Global Settings (Part 1 of 5) 
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Global 

BG15 * 

BG16 * 

BG18 
BG19 * 
BG20 

BG21 

BG22 

BG23 

BG24 

BG25 

BG26 
BG27 
BG30 

BG31 
BG32 

BG33 

BG34 
BG35 

BG36 



On Settin g 

AB=YES 

TRKHLD=n 

CBF=n 

MCRR=YES 

MPS=YES or BJF 
AP=YES 

TP=BTAM 
or QTAM 

DEC=YES 

FP=YES 

MPS=BJF 

ERRLOG=any 
invalid setting 

PCIL=YES 

ERRLOG=RDE 

CCHAIN=YES 

TAPE=9 
DASDFP=n, n 



SYSFIL=2311 
or 2314 

DATE=MDY 

MICR=1412, 
I 1419, 1419D,, 
1270, 1275 

MICR=1419D 



Purpose 

Determines if user abnormal termination routine is 
supported. Forces on BGO. 

Determines if the track hold function is supported, BG20 
must be on (if it is not, it defaults to JSIO) . 

Determines if console buffering option is supported. 

Determines whether MCRR option is supported. 

Determines whether multiprogramming support is required. 
Forces BGO. 

Determines whether teleprocessing support is required. 



Determines if the decimal feature is used. 
BGO. 



Does not force 



Determines if the floating point feature is used. Does not 
force BGO. 

Determines if batched jobs will be run in foreground 
partitions. Forces BGO. 

Indicates ERRLOG is set with an invalid option. Causes 
a message and terminates supervisor assembly. 

Determines if PCIL is supported. 

Determines if RDE Support is required. 

Determines if command chaining support for retry on I/O 
operation is used. Does not force BGO. 

Determines if 9 track tape support is required. 

Determines whether the DASD file protect feature is 
supported. Does not force BGO. 

Determines if logical system I/O units are a disk device. 
Does not force BGO. 

Determines the type of date configuration to be supported. 

Determines if any MICR type device is supported. 
Forces BGO. 



Determines if 1419D (MICR type device with dual address 
adapter) only is supported. Forces BGO. 



Figure 6. Global Settings (Part 2 of 5) 
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Global 


On Setting | 


BG38 


OLTEP=YES | 


BG39 


MODEL=a S/370 CPU | 


BG40 


RETAIN=YES | 


BG41 


D£CK=YES | 


BG42 


LIST=YES | 


BG43 


LISTX=YES | 


BG44 


SYM=YES | 


BG45 


XREF=YES | 


BG46 


ERRS=YES | 


BG47 


CHARSET=48C | 


BG48 


DUMP=YES | 


BG4? 


LOG=YES | 


BG50 


EU=YES | 


BG51 


EU=RELOC | 


BG52 


IDRA=YES | 


BG60 * 


TEBV= (device,, n) | 


BG61 


TEBV=(DASD„n) | 


BG62 * 


EVA=(rth,wth,n) | 


BG71 


JA=YES or | 




JA=(n 1/f n 2v n 3 ) | 


BG72 


JA=(n 1!f n 2 „n 3 ) | 


BG73 


JALIOCS=(n ;L# n a ) \ 


Figure ( 


S, Global Settings ( 



Purpose 

Indicates whether OLTEP is supported; forces BG6. 

indicates RMS support for System/370. 

Indicates RETAIN/370 is Supported. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Job control options. 

Determines if emulator interface is generated. Forces on 
BGO. 

Determines if the relocatable version of CS/40 is used. 
Forces on BGO, BG50. 

Indicates whether IDRA is supported. 

Determines if the Tape Error Statistics by Volume is 
supported. Does not force BGO. 

Determines if TEBV Device is DASD. Does not force BGO. 

Determines if Error Volume Analysis is supported. Does not 
force BGO. 

Indicates whether JAI is supported. 

Indicates whether count of SIOs is made. 

Indicates whether JAI label processing is supported. 
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If OLTEP is the issuing program, an HIO 
instruction is issued to the device if 
there is I/O pending for the device- If 
MPS=YES was specified during .system 
generation, OLTEP uses SVC 25. to dequeue an 
unstarted I/O operation to a shared device. 
The channel queue entry is removed from the 
channel queue, and in this case an HIO 
instruction is not executed. 

The supervisor returns to the highest 
priority program ready to* run. The device 
busy flag is reset at this time. Unless 
SVC 25 is issued by OLTEP or a 
teleprocessing device, this SVC is ignored 
and results in cancelation. If OLTEP was a 
supervisor option and teleprocessing was 
not,, issuing as SVC 25 by a program other 
than OLTEP results in cancelation. 



SVC 26: Validate address limits. 



The 



program issuing an SVC 26 is canceled if 
the PSW protection key does not equal 0. 
(Only job control and B- transient programs 
can issue an SVC 26.) 



All interrupts are disabled and the CCBs 
are all checked for the traffic bit. When 
a CCB is found with the traffic bit posted, 
SVC 29 returns to the interrupted program. 

If all CCBs are checked and no traffic 
bits are posted, one of two courses is 
taken: 

• With MPS option - Cause user to become 
I/O-bound,, disable for I/O interrupts 
only, and return to task selection. 

• Without MPS option - Set wait bit in 
SVC old PSW, disable for I/O interrupts 
only, and return to interrupted 
program. 

SVCs 30, 31, and 32: Reserved for QTAM. 
Refer to the QTAM PLM listed in the 
Preface . 

SVCs 33 and 3 4: Reserved for internal 
macros COMRG and GETIME, respectively. 
Their use by other programs results in a 
branch to EXT01 (see Chart BG) . 



The upper address must be specified in 
general register 2, and the lower address 
must be specified in general register 1. 
The upper address must be -within main 
storage,, and the lower address must be 
higher than the end of supervisor address, 
or the program is canceled (ERR25) . Return 
is to the interrupted program. No task 
selection is performed. 

With MPS option, the PIK of the program 
issuing the SVC 26 must equal the storage 
protection key for both addresses or the 
program is canceled (ERR25). 

With batch operation, SVC 26 is ignored 
unless storage protection has been 
specified,. 

SVC 27: Same as SVC 25, except that SVC 27 
cannot be used by OLTEP. It can be used 
only to halt I/O on a teleprocessing 
device. The CCB is not dequeued if the CSW 
has been stored after an HIO command. 

S VC 2 8: Provides return from user's 
stacker select routine to the MICR external 
interrupt routine in the supervisor. This 
SVC is optional and causes a cancel if 
issued at any point other than in a stacker 
select routine with MICR devices. 

SVC 29: Provides supervisory support for 
the WAITM macro (except for MICR type 
devices) . If WAITM=YES has been specified 
in the FOPT macro, WAITM coding is 
generated to load general register 1 with 
the address of the ECB list name and to 
issue the SVC 29. However, when MICR type 
devices are used, SVC 47 is issued to 
identify the wait on the MICR CCB. 



SVC 35 : Protects a track from use by more 
than one task at a time. A X'FF* is moved 
to byte 2 of the SVC old PSW to indicate 
track hold. A- requesting task not owning a 
held track is made inactive and must wait 
until the track is free. If more than 
sixteen holds on a track are attempted, the 
requesting task is canceled. 

Exits are to EXCP3 to execute the I/O, 
or to RESVC if the track is already held. 
At RESVC, the problem program old PSW is 
set to execute the SVC 35 again, and a 
branch to EXT03 is taken for task 
selection. See Figure 24 for the Track 
Hold Table. 

SVC 36 : Frees a track that is held by the 
task issuing the FREE. An attempt to free 
a track not owned by the requestor results 
in cancellation of that task. 

Exits on a successful FREE are to EXT03 
for task selection, or to the DETACH 
routine if the FREE was issued by that 
routine.. 

SVC 37 : Establishes linkage from the 
supervisor to a problem program abnormal 
termination (AB) routine. It stores the 
routine's entry point and save area address 
in the AB table. (The save area is a 
72-byte area in which the old PSW and 
general registers 0-15 are stored.) Return 
is to the STXITing program. 

SVC 38 : Initializes a subtask. The main 
task's PIB and save area are copied to the 
subtask's PIB and save area. The subtask" s 
PIB flag is set to X'83' to indicate 
'ready-to-run.' Bit of the maintask's Rl 
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is set to to indicate a successful 
attach,, and absolute priority is 
established for the subtask. A subtask 
attempting to issue an ATTACH is canceled. 
Exit is to EXT 03 for task selection* 

SVC 3 9: Performs normal termination of a 
subtask, DETACH may be issued by either 
the subtask being terminated or by the main 
task. 

The subtask "s PIB is set inactive (byte 
= X'80'), and its ECB (see Figure 34) is 
posted for termination. This routine calls 
the free routine to free any tracks held by 
this subtask, and a waiting task is removed 
from the wait state. Exit is to EXT03 for 
task selection. 

SVC 40 : Used for intertask communication. 
POST may be issued by either a maintask or 
a subtask. It is issued so that a task is 
aware of the termination of an event. 
Normal completion of the specified event is 
posted in the ECB (byte 2, bit 0=1). If 
the SAVE= parameter is present, only the 
task waiting for this ECB is taken out of 
the wait state; otherwise, all waiting 
tasks are removed from the wait state. 
Exit from this routine is to EXT03 for task 
selection. 

SVC 41 : Informs the system that a resource 
(shared data area) is now available for use 
by another task. A task may issue the DEQ 
macro only to a resource that it currently 
owns. If it attempts to issue the DEQ 
macro to some other resource, the task is 
canceled. 



placed in a queue and put in a waiting 
condition. The old PSW is set to reexecute 
the SVC 42 and task selection is performed. 

A task is canceled if it attempts to 
nest ENQ(s) of a resource or if it attempts 
to ENQ a resource that is still owned by a 
terminated task. 

When a task is finished with a resource, 
it should inform the system by issuing the 
DEQ macro. If it does not, tasks 
subsequently requesting that resource are 
canceled. See Figure 35 for the Resource 
Control Block. 



SVC 43 : Supplies supervisory support for 
the creation and updating of SDR records 
for devices not explicitly supported by the 
system. The address of the compressed SDR 
record area must be supplied in general 
register 1 before the SVC is issued. The 
SDR record area must be 22 bytes long: 2 
bytes reserved for the SDR processor, 1 
byte initialized to zeroes, and a 19 byte 
SDR record with the 16 error counters 
compacted to 8 bytes. The SVC 43 causes a 
branch to the SDRSDR routine in the 
supervisor to complete processing of the 
record. Immediately following the SVC, the 
WAIT macro must be issued on the address in 
register 1. 



Example: 



LA 1,SDRAREA 

SVC 43 

WAIT (1) or SDRAREA 



If any other tasks are waiting for the 
resource, the highest priority task ready 
to run is removed from the wait state and 
gains control. If no other task is waiting 
for the resource, control returns to the 
task that issued the DEQ. 

If a task terminates without DEQuing all 
of its ENQued resources,, either in its 
normal coding or in its abnormal 
termination exit routine, any task 
subsequently attempting to ENQ the resource 
is canceled. See Figure 35 for the 
Resource Control Block (RCB) . 

Normal exits are to EXT 01 or EXT03. 

SVC 42 : ENQ prevents tasks from 
simultaneous manipulation of a shared data 
area (resource). This is accomplished, 
using the TS instruction, by setting to 
ones all bits of byte of the specified 
resource control block (RCB) . Then the 
event control block (ECB) address is placed 
in bytes 4-7 of the RCB. 

A task attempting to ENQ a resource that 
is already engueued by another task is 



This SVC is available only with the I/O 
Error Logging option (ERRLOG). See Chart 
08 for the SDRSDR update routine. 

SVC 44: Supplies supervisory support for 
external creation of OBR records for 
devices not explicitly supported by the 
system. The address of the OBR record area 
must be supplied in general register 1 
before the SVC is issued. The OBR record 
area must be 83 bytes long: 2 bytes 
reserved for the OBR processor, 1 byte 
initialized to zeroes,, and an 80 byte OBR 
record. The SVC 44 causes a branch to the 
SDROBR routine in the supervisor to write 
the OBR record. Immediately following the 
SVC, the WAIT macro must be issued on the 
address in register 1. 

Example: 

LA 1,0BRAREA 

SVC 44 

WAIT (1) or OBRAREA 

This SVC is available only with the I/O 
Error Logging option (ERRLOG). See Chart 
08 for the SDROBR update routine. 



74 DOS Supervisor and Related Transients 



Page of GY24-5151-2, revised October 28 , 1971, by TNL GN33-8 692 



SVC 45: Provides emulator interface for 
CPU Models 30 and 4 0, or System/370 models. 
On System/ 370, this SVC serves two 
purposes: 

'1. When register 1 contains zero, SVC 45 
sets communication region byte 134, 
bit 1 on, indicating that the emulator 
is active. 

2. When register 1 contains a PUB 

address, SVC 45 switches the parity 
bit in the PUB. 

SVC 46; Provides OLTEP with the facility 
to operate in the supervisory state. In 
the initial issuing of the SVC, register 1 
contains an entry point in OLTEP. The next 
time the SVC is issued,, register 1 is 
zeroed out, forcing task selection. 

SVC 47 : Provides identification to the 
supervisor for MICR type device waits,. The 
SVC results in exiting to task selection 
(EXT03) rather than reissuing the SVC 
(RESVC) as is done when SVC 29 is issued. 

Reserved for future use. 

Reserved for future use. 

Reserved for LIOCS error recovery. 

Provides OLTEP with the ability to 
find the length of a core image library 
without loading the phase. Registers and 
1 must be initialized before issuing 
SVC 51. Register must be pointed at a 
twelve-byte save area for the phase header, 
and register 1 must be pointed at the 



SVC 


48: 


SVC 


49: 


SVC 


50: 


SVC 


51: 



eight-byte phase name. The first 12 bytes 
of the phase header are moved to the save 
area. The save area is not altered if the 
phase is not in the core image library. 
If any program except OLTEP issues an 
SVC 51, that program is canceled. 



FLPTR 



(CHANQ 
pointer) 

Figure 32. 



CHANQ 



LUBID 



REQID 




'FF' 


CCB address 


'02' 


CCB address 


'FF' 


CCB address 


'05' 




'FF' 


CCB address 


'06' 




'FF' 




'09' 


CCB address 


■FF' 


CCB address 


'FF' 


CCB address 



(Chain 
field) 



(LUBNo.) (RID) 



Example of the CHANQ Table 
Qperation 



SVC 52 : Provides an interface between the 
supervisor and $$BEOJ4 . SVC 52 allows the 
forced dequeuing of channel queue entries 
that belong to devices assigned to the 
partition or task that is being canceled or 
has reached end-of-job. 
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Macro Supported 


SVC 


Function 


Dec. 


Hex. 


EXCP 








Execute channel programs. 


FETCH 


1 

2 
3 


1 

2 
3 


Fetch any phase . 

Fetch a logical transient (B- transient). 

Fetch or return from a physical transient (A -transient) . 


LOAD 


4 


4 


Load any phase. 


MVCOM 


5 


5 


Modify supervisor communications region. 


CANCEL 


6 


6 


Cancel a problem program or task. 


WAIT 


7 


7 


Wait for a CCBor TECB. 




8 


8 


Transfer control to the problem program from a logical transient (B -transient). 


LBRET 


9 


9 


Return to a logical transient (B- transient) from the problem program after an 
SVC 8. 


SETIME 


10* 


A 


Set timer interval . 




11 
12 

13 


B 
C 

D 


Return from a logical transient (B - transient) . 

Logical AND (Reset) to second job control byte (displacement 57 in communi- 
cations region). 

Logical OR (Set) to second job control byte (displacement 57 in communications 
region) . 


EOJ 


14 


E 


Cancel job and go to job control for end of job step. 




15 


F 


Same as SVC except ignored if CHANQ table is full . (Primarily used by ERP). 


STXIT (PC) 


16* 


10 


Provide supervisor with linkage to user's PC routine for program check interrupts. 


EXIT (PC) 


17* 


11 


Return from user's PC routine. 


STXIT (IT) 


18* 


12 


Provide supervisor with linkage to user's IT routine for interval timer interrupts. 


EXIT (IT) 


19* 


13 


Return from user's IT routine. 


STXIT (OC) 


20* 


14 


Provide supervisor with linkage to user's OC routine for external or attention 
interrupts (operator communications). 


EXIT (OC) 


21* 


15 


Return from user's OC routine. 




22* 
23* 


16 
17 


The first SVC 22 seizes the system for the issuing program by disabling multi- 
program operation. The second SVC 22 releases the system (enables multiprogram 
operation). 
Load phase header. Phase load address is stored at user's address. 


SETIME 


24* 


18 


Provide supervisor with linkage to user's TECB and set timer interval . 




25* 

26* 
27* 


19 

1A 
IB 


Issue HALT I/O on a teleprocessing device, or HALT I/O on any device if issued by 

OLTEP. For a MPS=YES system, dequeue an unstarted OLTEP I/O request to a 

shared device. 

Validate address limits. 

Special HIO on teleprocessing devices. 



*=Optional 
Figure 33. DOS Supervisor 



Calls (Part 1 of 2) 
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Macro Supported 


SVC 


Function 


Dec. 


Hex. 


EXIT (MR) 


28* 


1C 


Return from user's stacker select routine (MICR type devices only). 




29* 


ID 


Provide return from multiple wait macros WAITF and WAITM (except MICR type 
devices). 


QWAIT 


30* 


IE 


Wait for a QTAM element. 


QPOST 


31* 


IF 


Post a QTAM element. 




32 
33 
34 


20 
21 
22 


(Reserved). 

Reserved for internal macro COMRG . 

Reserved for internal macro GETIME. 


HOLD 


35* 


23 


Hold a track for use by the requesting task only. 


FREE 


36* 


24 


Free a track held by the task issuing the FREE. 


STXIT (AB) 


37* 


25 


Provide supervisor with linkage to user's AB routine for abnormal termination of 
a task. 


ATTACH 


38* 


26 


Initialize a subtask and establish its priority. 


DETACH 


39* 


27 


Perform normal termination of a subtask. It includes calling the FREE routine to 
free any tracks held by the subtask . 


POST 


40* 


28 


Inform the system of the termination of an event and ready any waiting tasks. 


DEQ 


41* 


29 


Inform the system that a previously enqueued resource is now available. 


ENQ 


42* 


2A 


Prevent tasks from simultaneous manipulation of a shared data area (resource). 




43* 

44* 

45* 

46* 

47* 

48 

49 

50 

51* 

52* 


2B 
2C 
2D 
2E 
2F 
30 
31 
32 
33 
34 


Provide supervisor support for external creation and updating of SDR records. 

Provide supervisor support for external creation of OBR records. 

Provide emulator interface. 

Provide OLTEP with the facility to operate in supervisory state. 

Provide return from wait multiple WAITF for MICR type device. 

(Reserved) 

(Reserved) 

Reserved for LIOCS error recovery. 

Return phase length at OLTEP request. 

Provide an interface between supervisor and end-of-fob routines. 



* - optional 



Figure 33. DOS Supervisor Calls (Part 2 of 2) 
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r t t t 1 

II II I 

(Reserved | Reserved | * (Reserved | 
II II I 

L A A A -J 

Byte 1 2 3 



♦ Byte 2 



Bit 0: Turned on (X^O*) at normal 
termination of sub task. 

Bits and 1: Turned on CX^cO') if the 
subtask is abnormally 
terminated. 

Bits 2-7: Reserved. 

Note ; Other blocks that may be used as 
ECBs are CCBs f TECBs, and MICR 
CCBs since posting is done in 
bit of byte 2 of the block. 

Figure 34. Event Control Block (ECB) 



r r t r 1 

|| || ECB Address | 

| * J Unused | ♦ ♦ | of Current | 
|| II Resource Owner | 

| X | XXX | X | XXX l 

Byte 123 H 567 

♦Byte 0: Availability byte - All ones when resource is in use. 

- All zeros when not in use. 

♦♦Byte 4: Flag byte: Bit 0=1, another task waiting for the resource. 

= 0, no other task waiting for the resource. 

Note : The address of the RCB is passed 
in register 1. 

Figure 35. Resource Control Block (RCB) 
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DO 
H- 
O 



O 
O 

f+ 

O 



CO 
>< 
CO 



00 



H- 
CD 

U> 



o 

O 



Pi 

o 
o 

(+ 
H 
O 



O 
Q 



o 
o 



Bytes 
Used for 




Transmission 
Information 



CSW Status Bits 



Symbolic Unit 
Address 
6 7 



Reserved for 

Logical IOCS 

8 



Residual Count 



Transmitting 
Information 
Between Physical 
IOCS and 
Problem Program 



(Note 1) 
Byte 4 



BIT DESIGNATION 

32 Attention 

33 Status modifier 

34 Control unit end 

35 Busy 

36 Channel end 

37 Device end 

38 Unit check 

39 Unit exception 



L 



Byte 5 "*" — --^ 



BIT DESIGNATION 

40 Program -controlled 
interruption 

41 Incorrect length 

42 Program check 

43 Protection check 

44 Channel data check 

45 Channel control check 

46 Interface control check 

47 Chaining check 



Hexadecimal 
Representation 
*1 of SYSnnn 

SYSRDR =0000 
SYSIPT = 0001 
SYSPCH =0002 
SYSLST = 0003 
SYSLOG = 0004 
SYSLNK =0005 
SYSRES 



SYSSLB 
SYSRLB 
SYSUSE 
SYSREC 
SYSCLB 
SYS000 
SYS001 
SYS221 



= 0006 
= 0007] 
= 0008 
= 0009 
= 000A 
= 000B 
= 0100 
= 0101 
= 01DD! 



Buffer Offset: 
ASCII Input Tapes! 
X'OO'-X'cT 

ASCII Output 
Tapes Fixed: 
X'00' i 

Variable: X'00'ori 
X'04' , 

Undefined: X'00 1 



CCW Address 
9 11 



Reserved for 
Physical IOCS 
12 



CCW Address 
in CSW 
13 15 



Address of CCWJ 
Associated with 
this CCB 



X'80'-CCB being 
used by ERP 

X'40'-Channel 
Appendage 
Routine Present 
for Teleprocessing 
Device 

X'20'- Sense 

Information 

Desired 

X* 10' -Message 
Writer 

X'08'-EU Tape 
Error 

X'W-Tape ERP 
Read Opposite 
Recovery 

X'Ol'-Seek 
Separation or 
Console Buffering 



Address of CCW 
in the CSW 
Stored at 
Channel End, 
or Address of 
the Channel 
Appendage 
Routine for 
Teleprocessing 
Devices 



Optional 
Sens* CCW 
16 J3J 

8 Bytes 

Appended to the 
CCB when Sense 
Information is 
Desired 



Byte 2 





Traffic Bit 
(Wait) 

(Note 5) 



End -of -File 
(/•or /A) 
3211- 

UCSB Parity 
Check (Line 
Complete) 

(Note 2) 
1 


Unrecoverable 
I/O Error 

2 


Accept 

Unrecoverable 

I/O 

3 


Return DASD 
Data Checks 
2671 errors, or 
1017/1018 
errors to the 
user 

4 


Post at 
Device End 

(Note 5) 
5 


Return Tape Read 
Data Check, 1018 
Data Check, 2540 
or 2520 Equipment 
Check, DASD 
Data Checks on 
Read or Verify 
Command, or 3211 
Passback Requested 
(Notes 3 & 6) 
6 


User Error 
Routine 

7 




On By— ^ 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr . Pr . 


Pr. Pr. 


Pr. Pr. 


Pr. Pr. | 











Byte 


3 










DASD- 


DASD- 


DASD- 


2540, 2520- 


Non -Recovery 


No -Record - 


Carriage 


Command 




Data Check in 


Track Overrun 


End of Cylinder 


Equipment Check 


Questionable 


Found Condition 


Channel 9 


Chaining 




Count Area 


MICR- 


MICR- 


Tape- 


Condition: 


(Retry on 2311, 


Overflow or 


Retry from 




MICR- 


Inter vent ion 


(Note 4) 


Read Data Check 


Card- 


2314, or 2319) 


Verify Error 


the next CCW 




SCU Not 


Required 


1287/1288- 


DASD- 


Unusual 




for DASD 


to be executed 




Operational 


1285/1 287- 


Hopper Empty 


Any Data Check 


Command 










1285/1287/1288 


Key board 


in Document 


1285/1287 


Sequence 




1287 Document 






Data Check 


Correction in 


Mode 


Equipment Check 


DASD- 




Mode - Late 






3211- 


Journal Tape 


3211- 


1017/1018 


No Record Found 




Stacker Select 






Print Check/ 


Mode 


Line Position 


Data Check 


1285/1287/1288- 










Equipment Check 


1017- 


Error 


3211- 


Document Jam 




1288 -End of 








Broken Tape 


(Note 7) 


Print Check/ 


or Torn Tape 




Page 








3211- 




Data Check 


3211- 












Print Quality/ 






UCSB Parity Check 












Equipment Check 






(Command Retry) 













1 


2 


3 


4 


5 


6 


7 




Set On By-*- 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


PIOCS 


Pr. Pr. | 



PIOCS = Physical IOCS 

Pr. Pr. = Problem Program 
Note 1 . Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and device end results as a separate interrupt, device end will be ORed into CCB byte 4. 
Note 2. Indicates /* or /& statement encountered on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is also on. 
Note 3 . DASD data checks on count not returned . 

Note 4. For 1255/1259/1270/1275/1412/1419, disengage. For 1275/1 41 9D, I/O Error in external interrupt routine (channel data check or busout check). 
Note 5. The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in byte 3 will be set on 

at device end. Also see Note 1 . 
Note 6. 1018 ERP does not support the Error Correction Function. 
Note 7. This error occurs as an equipment check, data check, or FCB parity check. 



CD 

O 

r-h 

O 
K{ 

to 

4^ 
I 

cn 



CD 
< 
H- 
W 
CD 

a* 
o 

Q 
rf 
O 

er 

CD 
00 






cr 

§ 

LO 
00 

to 



Byte 
Bit 

Name 
Field 






1 


2 


3 


4 


5 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 11 


12 


13 14 15 


16 17 18 19 20 21 22 23 


24 25 26 27 28 29 30 31 


32 33 34 35 36 


37 38 39 


40 41 42 43 44 45 


46 47 


Command Code 




Data Addres 




Flogs 





( Ignored ) 


* 


i ... ^. 


A 


B 


C 


D 


E 



FIELD 


NAME 


DESCRIPTION 


A 


Command Code 


Bits 0-7: 

Specify the operation to be performed. 
(See Part 2 of this Figure) 


B 


Data Address 


Bits 8-31: 

Specify the location of a byte in main 
storage. It is the first location referred 
to in the area designated by the CCW. 


C 


Flags 


Bits 32-36: 

Specify the flag bits used in conjunction 
with the CCW, 

Bit 32- 

Chain-Data (CD) causes the address 
portion of the next CCW to be used with 
the current CCW. t Note 

Bit 33- 

Chain -Command (CC) causes the 
command code and data address of the 
next CCW to be used . The chain data 
flag (bit 32) takes precedence over this 
flag. 

Bit 34- 

Suppress Length Indication (SLI) causes 
a possible incorrect length indication to 
be suppressed. The chain data flag 
(bit 32) takes precedence over this flag. 

Bit 35- 

Skip (SKIP) suppresses the transfer of 
information to main storage. 

Bit 36- 

Program Control Interruption (PCI) causes 
the channel to generate an interrupt 
when the CCW is fetched. 


D 


Reserved 


Bits 37-39: 

(Must contain zeros)* 


E 


ignored 


Bits 40-47: 
Not checked 


F 


Count 


Bits 48-63: 

Specify the number of bytes in the 
operation 



6 


7 


48 49 50 5152 53 54 55 


56 57 58 59 60 61 62 63 




Count 






* 


F 



*The transfer in channei command (TIC) is the one exception to this statement. 
tNote: Chain data cannot be done on 360/30 if a highspeed device is being used. 
Excmple- 2311,2400 Model 3. 



Figure 38. Channel Command Word (CCW) (Part 1 of 2) 
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r t t ■ 


J MESSAGE CODE 


10- CHARACTER 




| (IN HEX) 

L _ 


| MESSAGE 

L 


| ERROR 

L 


r r ■ r 


| 08 


C INTER V REQ' 


OPERATOR INTERVENTION REQUIRED 


| 09 


| C'BUSOUT CHK' 


BUS OUT CHECK 


| 10 


C 1 EQUIP CHK ' 


EQUIPMENT CHECK 


| 11 


| C'DATA CHECK' 


DATA CHECK 


| 12 


C VERIFY CHK" 


VERIFY CHECK 


1 13 


| C'ADDR MRKER' 


MISSING ADDRESS MARKER 


| 14 


C OVERRUN ' 


OVERRUN 


1 15 


i C'SEEK CHECK' 


SEEK CHECK 


1 16 


C'DTA CHK CT' 


DATA CHECK IN COUNT FIELD 


1 17 


C'FILE PROT ' 


VIOLATED FILE PROTECTION 


| 18 


i C'COMM REJCT - 


COMMAND REJECT 


| 19 


C'UNDETR ERR' 


UNDETERMINED ERROR 


| 20 


| C'ERR ON REC 


ERROR DURING RECOVERY ATTEMPT 


| 21 


C'NRF-MADDMK' 


NO RECORD FOUND S MISSING ADDRESS MARKER 


| 22 


i C'BALST CELL' 


BALLAST CELL ACCESSED ON 2321 


| 23 


C'BLNK STRIP' 


ACCESSED A PREVIOUSLY UNUSED STRIP 


| 24 


C'PROG CHECK' 


I/O PROGRAM CHECK 


1 25 


C'PROT CHECK' 


STORAGE PROTECTION CHECK 


| 26 


C'INVAL SEEK' 


SEEK ADDRESS NOT VALID 


| 27 


C'UNKNWN DEV 


DEVICE IN ERROR NOT RECOGNIZED 


| 28 


C'CHAN DTCHK" 


CHANNEL DATA CHECK 


| 29 


C*BK INTO LP' 


BACKSPACE INTO LOADPOINT 


| 30 


C'CONVRT CHK' 


TAPE CONVERT CHECK 


1 31 


C'DVC NOT OP' 


DEVICE NOT OPERATIONAL 


| 32 


C'NON COMPAT' 


NONCOMPATIBLE TAPE ON DRIVE 


| 33 


C'BUF PARITY* 


PARITY ERROR IN PRINTER BUFFER 


| 34 


C'BCH NM OFF' 


BATCH NUMBERING SWITCH OFF ON MICR 


1 35 


C'NON RECOV ' 


NON-RECOVERY ON 128 5 


| 36 


C'NO REC FND" 


NO RECORD FOUND 


| 37 


C'DISEN FAIL' 


DISENGAGE FAILURE ON MICR 


| 38 


C'INVLD FONT' 


INVALID FONT ON 1287 IN DOCUMENT MODE 


| 39 


C'POSN CHECK' 


POSITION CHECK ON 2495 TCR 


| 40 


C'BROKN TAPE' 


BROKEN TAPE ON 1017 


| 41 


C'LOAD CHECK' 


BUFFER LOAD CHECK ON 3211 



L J. J. J 



Figure 46, Physical Transients Error Messages 
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552- Byte Physical Transient Area 






^Blilll^^^^^B^^^H 




:. >:iVvJi B C D E F G H 


J 



The labels which are associated with these bytes are 
as designated below. Byte A is the first byte of the 
Physical Transient Area, Byte J is the last. Bytes B through 
H constitute the interphase communications area. When phases 
Z, Y and are fetched or refetched, these bytes (B through H) 
are not overlaid and remain with information for the other phases. 



Byte 


Label 


Phase 




A 


IJBPAR1 


Z 






IJBPAR2 


Y 


Note: Bytes C, D and E 




IJBPAR3 





are used to indicate the 
program(s) Fl, F2 or BG, to be 


B 


PARLTK 


Z 


canceled. 




PARCOMM-1 




Bytes F, G and H 
indicate the programs 


C 


IJBPAR1+504 




which use devices which 




PARCOMM 


z 


require operator intervention. 




IJBPAR2+504 




Byte B indicates that a 




PARCOMM2 


Y 


canceled program has 




PARCOMMC 


z 


fetched a logical transient. 




PARCOMMD 


Y 




F 


PARCOMMC+3 
PARCOMMD+3 







D / E, Addressed by incrementing or decrementing one of these labels. 
G,H 



Figure 47. Interphase Comitiuni cation Area 
(For A-Transients $$ANERRZ, Y f 
and 0) 
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1403-1443 ERROR RECOVERY 



• CSW Bit 44 — Channel Data Check 



Action; If initial selection, one 
retry — take equipment error exit 
(initial selection: cancel, retry, 
Channel end: cancel, retry, ignore) 



Message: OP 2 8 CHAN DTCHK. 



• Byte 0, Bit 3 — Equipment Check 

Actio n: Take equipment error exit 
(cancel,, ignore) . 

Message: 0P10 EQUIP CHK. 



• Byte 0, Bit 5 — Code General Storage 
Parity Error (14 03 only) 

Action: Take equipment error exit 
(cancel) . UCS buffer must be reloaded. 

Message: 0P33 UCB PARITY. 



• Byte 0„ Bit 1 — Intervention Required 

Action: Take operator intervention 
exit- 
Message: OP 08 INTERV REQ. 



o Byte 0, Bit 2 — Bus Out Check 

Action: If initial selection, one 
retry; otherwise, take equipment error 
exit (initial selection: cancel, 
retry. Channel end: cancel , retry,, 
ignore) . 

Message: OP 09 BUS OUT CHK. 



« Byte 0, Bit 7 — Channel 9 

Action: Post CCB, take continue exit. 

Note: This test is main storage 
resident. 

• Byte 0, Bit — Command Reject 

Action: If command code is UCS enable 
or inhibit data check, take continue 
exit; otherwise, take program check 
exit. This procedure allows 
UCS-oriented programs to operate on 
non-UCS hardware. 

Message: OP 18 COMM REJCT. 



Byte 0, Bit 4 — Data Check (1403 Only) 

Action : Take equipment error exit 
(cancel, ignore) . 

Message: OP 11 DATA CHECK. 



3211 PRINTER ERROR RECOVERY 



• CSW Bit 44— Channel Data Check 

Action: If initial selection, one 
retry — take equipment error exit 
(initial selection: cancel, retry. 
Channel end: cancel, retry, ignore) 

Message : OP 2 8 CHAN DTCHK. 



• Byte 0, Bit 3 — Equipment Check 

Act ion: Check the following bits of 
sense byte 1 in the order indicated; if 
a bit is on when tested, the system 
takes the action indicated in the 
discussion of these bits. 

Bit 0, Command retry 

Bit 1, Print check 

Bit 2, Print quality 

Bit 3, Line position 

Bit 6, Mechanical motion 

If none of the preceding conditions 
occurred, then a transparent sync check 
or a train overload condition occurred. 

Action: Provide information type 
message and continue processing. 

Message: 0P10 EQUIP CHK. 



• Byte 0, Bit 2 — Bus Out Check 

Act ion: Provide an intervention 
required message. The operator should 
then make the device ready to continue 
processing. 

Message: 0P09 BUSOUT CHK. 



• Byte 0, Bit 4 — Data Check 

Action : Check the following bits of 
sense byte 1 in the order indicated; if 
a bit is on when tested, the system 
takes the action indicated in the 
discussion of these bits. 

Bit 1, Print check 
Bit 3, Line position 



Physical Transient Programs 109 



Page pf GY24-5151-2,, revised October 28, 1971, by TNL GN33-8692 



If neither of the preceding conditions 
has occurred, take the following 
action: 



Action: Provide information f type 
message, and take cancel exit. 
(Permanent error.) 



Message: 0P11 DATA CHK. 



• Byte 0, Bit 5 — Buffer Parity Check 

Action : First,, check the following 
bits of sense byte 1 in the order 
indicated; if a bit is on when tested, 
the system takes the action indicated 
in the discussion of these bits- 
Bit 1, Print check 
Bit 3, Line position 

If neither of the preceding conditions 
has occurred, the system attempts to 
read the contents of the 3211 buffers. 
If the attempt is successful, take the 
following action: 

Action : Provide an information 
message. If a user routine is 
available, then go to it; otherwise, 
continue processing. 

If the attempt to read the contents of 
the 3211 buffers is not successful, 
take the following action: 

Action: Provide a message that allows 
the operator to respond IGNORE or 
CANCEL. 

For equipment checks, the operator must 
examine the sense information for the 
intervention required bit along with 
the equipment check. If intervention 
is required,, the operator must make the 
device ready. 

Message: OP 3 3 BUF PARITY. 



• Byte 0, Bit — Command Reject 

Action: Provide information, type 
message, and take cancel exit. 
(Permanent error.) 

Message: 0P18 COMMREJCT. 



• Byte 0, Bit 6 --Load Check 

Action : An error condition occurred 
when either the UCSB or the FCB was 
loaded. Provide information, type 
message, and take cancel exit, 
(Permanent error.) 

Message: OP 41 LOAD CHECK. 



• Byte 0, Bit 1 — Intervention Required 

Action : First, sense byte 1, bit 4 is 
tested for a forms check; if the bit is 
on, the action indicated in the 
discussion for this bit is taken. 
Otherwise, an interlock condition has 
occurred on the 3211. The probable 
causes are: 

Gate not latched 
Train not positioned 
Stop key active 
Vacuum low 
Train overload 

Action : Provide an intervention 
required message. The operator should 
then make the device ready to continue 
processing. 

Message: OP 08 INTERV REQ. 



• Byte 1, Bit — Command Retry 
Action : 

• For message OP 10, a print line buffer 
parity check occurred. The recovery 
procedure depends upon the user's 
error option for Command Retry (CCB 
byte 2, bit 5) . 

a. If the Command Retry option is 
specified, reissue the failing 
CCW. If the retry is 
unsuccessful, the error is 
considered uncorrectable. 
Provide information, type 
message, and take cancel exit. 
(Permanent error . ) 

b. If the Command Retry option is 
not specified, issue a "Skip to 
channel 0" (X'38') command to 
allow the carriage to perform the 
suppressed command. Provide 
information,, type message, and 
take cancel exit. (Permanent 
error.) 

• For message OP 33, a UCSB parity check 
occurred. 

Action : This action depends upon the 
user's error routine to reload the 
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UCSB. After the UCSB is reloaded, 
reissue the failing CCW. If the 
retry is unsuccessful , the error is 
considered uncorrectable. Provide 
information, type message, and take 
cancel exit, (Permanent error,) 



• Byte 1, Bit 1 — Print Check 

Action; For message 0P10, a print 
check occurred for one or more of the 
following reasons: 

Hammer fire check 
Sync check 
Coil protection 

For message 0P11, a print check 
occurred because of an unprintable 
character. In response to either 
message, do the following: 

Provide a message that allows the 
operator to respond IGNORE or CANCEL. 
If the response is CANCEL, go to the 
user's error routine if available. 



• Byte 1, Bit 6 — Mechanical Motion 

Action : Provide information, type 
message, and take cancel exit. 
(Permanent error.) 

Note : When certain 3211 errors occur, 
additional information is provided to 
the user by turning on bits in the 
user's CCB. These errors and bit 
settings are indicated in Figure 37. 



1442 ERROR RECOVERY 



• CSW Bit 44 —Channel Data Check 

A ction : If initial selection,, one 
retry; then take equipment error exit 
(cancel, retry). If data transfer, 
take operator intervention exit. 

Message : 0P28 CHAN DTCHK. 



For equipment checks, the operator must 
examine the sense information for- the 
intervention required bit along with 
the equipment check. If intervention 
is required,, the operator must make the 
device ready. 

* Byte 1„ Bit 2 — Print Quality 

Actio n: A print quality check occurred 
because the platen failed to advance or 
retract, or excessive ribbon motion 
and/or ribbon skew was detected. 
Provide a message that allows the 
operator to respond IGNORE or CANCEL. 
If the response is CANCEL, go to the 
user's error routine if available. 

For equipment checks, the operator must 
examine the sense information for the 
intervention required bit along with 
the equipment check,. If intervention 
is required,, the operator must make the 
device ready. 

• Byte 1, Bit 4 — Forms Check 

Action: A forms check occurred for one 
of the following reasons: 

The Carriage Detent Switch is off. 

The paper is jammed or the forms are 

torn. 

The 3211 is out of paper. 

The stacker is full. 

Provide an intervention required 
message. The operator should then make 
the device ready to continue 
processing. 



• Byte 0, Bit 3 — Equipment Check 

Action: Take operator intervention 
exit. 

Message: 0P10 EQUIP CHK. 



• Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention 
exit. 



Message: OP 08 INTERV REQ. 



• Byte 0, Bit 2 — Bus Out Check 

Act ion: If initial selection,, do one 
retry; then take equipment error exit 
(cancel, retry) . If data transfer, 
take operator intervention exit. 

Message: OP 09 BUSOUT CHK. 



• Byte 0, Bit 4 — Data Check 

Action: Take operator intervention 
exit,. 

Message: 0P11 DATA CHECK. 



• Byte 0, Bit 5 — Overrun 

Action: Take operator intervention 
exit. 

Message: 0P14 OVERRUN. 
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• Byte 0, Bit — Command Reject 
Action: Take program check exit- 
Message: 0P18 COMM REJCT. 

• CSW Bit 47 — Chaining Check 

Action: Take operator intervention 
exit . 

Message: 0P14 OVERRUN. 
2501, 2520,, 2540 ERROR RECOVERY 



Byte 0, Bit 5 — Overrun (Cannot occur on 
2540 or 2520 punch) 

Action : Take operator intervention 
exit. 

Message : OP 14 OVERRUN. 

Byte 0, Bit — Command Reject 
Action : Take program check exit. 
Message : 0P18 COMM REJCT. 



• CSW Bit 44 — Channel Data Check 

Action: If initial selection, one 
retry; then take eguipment error exit 
(cancel, retry),. If read data 
transfer, take operator intervention 
exit. If punch data transfer,, one 
retry; then take equipment error exit 
(cancel, retry). 

Message: OP 2 8 CHAN DTCHK. 



• Byte 0, Bit 3 — Equipment Check 

Action : Reader — Take operator 
intervention exit. Punch — CCB option. 
Take equipment error exit (cancel, 
ignore). For 2520, Byte 0, Bit 7 
indicates punch check. 

Message: 0P10 EQUIP CHK. 

• Byte 0, Bit 1 — Intervention Required 

Action : Take operator intervention 
exit. 

Message: OP 08 INTERV REQ. 



• Byte 0, Bit 6 — Unusual Command Sequence 
(254 read only) 

Action: Post CCB — take continue exit. 



• CSW Bit 47— Chaining Check (2501, 2520 
read only) 

Action : Take operator intervention 
exit. 



Message: OP 14 OVERRUN. 



2671 ERROR RECOVERY 



• CSW Bit 44 — Channel Data Check 

Action : If initial selection, one 
retry. Take equipment error exit 
(cancel) . 

M essage : OP 28 CHAN DTCHK. 



• Byte 0, Bit 2 — Bus Out Check 



Action: 



One retry; then take equipment 
error exit (cancel, retry) . If the 
device is a 2520, do not retry if this 
is not initial selection (cancel, 
retry) . 

Message: OP 09 BUSOUT CHK. 



• Byte 0,, Bit 4 — Data Check (Cannot occur 
on a 2520 punch) 

Action: Take operator intervention 
exit. 

Message: 0P11 DATA CHECK. 



• Byte r Bit 3 — Equipment Check 

Action: Test CCB for ignore option 
(byte .2, bit 4) and if on, turn on byte 
3„ bit 1 of the CCB and take equipment 
error exit (cancel, ignore, retry). 
Otherwise,, take operator intervention 
exit . 

Message: 0P10 EQUIP CHK. 



Note : When an equipment check occurs, 
reposition the paper tape to the 
beginning of the record in error to 
perform the retry operation. The 
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RECOVERY MANAGEMENT SUPPORT FOR SYSTEM/370 



The RMS (Recovery Mangement Support) is an 
automatic DOS feature for IBM System/370. 
RMS gathers information about hardware 
reliability and attempts certain error 
recovery operations. It is part of the 
entire RAS (reliability,, availability, and 
serviceability) support for System/370. 

RMS is supervisor generated and is 
composed of two functions: 

• MCAR (Machine Check Analysis and 
Recovery) and 

• CCH (Channel Check Handler) . 

However, RMS is not a supervisor option. 
It is generated automatically for 
System/370 at SYSGEN. The CONFG macro sets 
global BG3 9 when MODEL option shows a 
System/370 CPU. Figure 54 gives the 
overview of the RMS function in DOS. 



MCAR FUNCTION 



MCAR responds to machine check interrupts 
and attempts recovery. It logs error data 
on ERDS (Environmental Recording Data Set) 
on the Recorder File. It provides operator 
messages via SYSLOG,. 

When a machine check occurs, MCAR first 
logs the error, then retries the failure by 
CPU retry and ECC (Error Correction Code). 
If successful, a soft MCI (machine check 
interrupt) message occurs, signifying 
recovery from a machine check. 

If hardware retry is unsuccessful, MCAR 
determines machine check severity through 
recovery transient analysis and records 
pertinent data on SYS&EC. RMS controls the 
recording of data through the EFL (Error 



Frequency Limit) feature of operating in 
Quiet or Recording mode. See the MObE 
Command section. 



Hard MCI occurs when: 

• CPU retry is unsuccessful, or 

• Interrupted instruction cannot be 
retried, or 

• Storage failure is permanent. 

In event of a hard MCI r execution of the 
affected task stops. MCAR assesses damage 
and continues system operation when 
possible. It selectively terminates the 
affected partition. RMS records a full 
Damage Report on the Recorder File. 



The system enters the hard wait state 
when a hard MCI: 

• Interrupts supervisor coding 

• Occurs while accessing critical 
information or phases from SYSRES,, or 

• Damages privileged coding through 
permanent storage error 



MCAR attempts to notify the operator 
about: 

1. Machine check type 

2. Wait state, re-IPL 

3. Problem program termination 

4. MODE operation change 

5. Buffer deletion 



RMS 11 9 
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CONFG option 
MODEL 

(System 370 CPU) 
set global BG39 



SEND macro/ 
generate MCRAS 
inner macro for 
RMS code in 
super visor 






SYSGEN 

/operation 






IPL, 

JOBCTLM, 
MAINTEOJ 



Severity Detect 
Routine, MCHEK 
(resident) 



SSBCCHHR 
builds Loadlist 
in RASTAB for 
R- transients 



nl 



System in Operation 
Machine Oiannel 



Check 
Interrupt 



lannel 
Check 
Interrupt 



Resident 

CCH 

Routines 



System 



/ Hard \ 

N. MCI yS 


YES 
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1 A test is made during IPL to determine if RMS support has been included in the 
supervisor. If RMS support has been generated, a test is made to determine if 
the CPU is a S/360 or S/370 model. 

If the system has been IPLed from a S/36 0,, code to simulate the actions of a 
S/360 is moved into the machine check and channel check routines. A message 
is issued to notify the operator that no RMS support exists. 

If the CPU is a S/370 model, $$BCCHHR is called. 

2 The primary function of the transient $$BCCHHR is to scan the core image 
directory for all transients whose names begin with '$$RAST f and build a 
directory in storage for these transients. This directory (Load List) is 
located in the RAS table where a fullword is reserved for the CHR (Channel, 
Head, Record) of each RAS phase. The low-order three bytes of each fullword 
contains the CHR while the high order byte is reserved for switches and flags. 
Currently twelve fullword entries exist and occupy the first 4 8 bytes in the 
RAS table. 

All RAS transients have the following format for their names: 

$$RASTnn, where nr} is a decimal number from 00 to 11. The last two digits in 
each phase name are used as the index to the RAS table load list. Multiplying 
this number by four and adding the product to the RAS table address produces 
the address for the particular entry. 

Another function of $$BCCHHR is to determine whether the recorder file is a 
2311 or 2314 disk and place the number of records per track and tracks per 
cylinder in the RAS table. at EOR and EOT, respectively. This information is 
needed by $$RAST01 for the disk (SYSREC) address updating procedure. The 
channel addresses of the devices to which SYSRES and SYSREC are assigned are 
placed in the RAS table at RASRES and RASLOG, respectively. 

3 When a hardware failure occurs, CPU Retry hardware attempts to re-execute the 
operation. 

If the outcome of the retry is successful,, a recoverable machine check is 
indicated, a logout is made to the CPU logout area, and a machine check 
interrupt is taken. 

If the outcome of the retry is unsuccessful, an unrecoverable machine check is 
indicated, a logout is made to the CPU logout area, and a machine check 
interrupt is taken. 

A channel error is detected when a CSW is stored with either the interface 
control check or channel control check bit on* Thus,, the logging is done both 
at I/O interruption time and CCl time to an I/O instruction under control of 
CR14 bit 2. A channel error does not cause a machine check interrupt on the 
Model 145 but doe s cause a machine check interrupt on the Model 155. 

L . ■ 

Figure 54. RMS Generation and Operation (Part 2 of 7) 
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4 The severity detect routine for machine checks categorizes errors into four 
classes: 

1. System damage bit on in MCIC, AMWP bits in machine check old £>SW invalid; 
processing damage to privileged code. 

Action : Give hard wait message and terminate system. 

2. Processing damage affected nonprivileged coding; machine check old PSW not 
completely valid. 

Action : Cancel damaged task and exit to EXT02. 

3,. Recoverable machine check occurred in privileged code. 

Action: Schedule recovery report and return to interrupted code via old 
PSW. 

4. Recoverable machine check occurred in nonprivileged code. 

Action: Schedule recovery report, and exit to EXT 02. 

Class 1 The C"A ! ' is posted in location LOWCORE, C'S' is posted in location 
LOWCORE+1, and RAS ACTIVE and EMEXIT bits are posted in location 
LD00SLOT. 

Class 2 The task is canceled and the MCACT and RAS ACTIVE bits are posted in 
location LD00SLOT. 

Class 3 The RAS ACTIVE and MCACT bits are posted in LD00SLOT. 

Class 4 The RAS ACTIVE and MCACT bits are posted in location LD00SLOT. 

5 Transient $$RAST00 analyzes the codes stored at locations LD00SLOT and 
LOWCORE. 

If the EMEXIT bit is on,, the system will eventually be terminated. If a C'A" 
is posted at LOWCORE, $$RAST01 is fetched to build and record machine check 
records and post the SYSTERM bit in LD00SLOT. $$RAST00 is then fetched again 
to log an appropriate message regarding the recording status and terminate the 
system. If a C if B" is posted at location LOWCORE, no recording is attempted 
and the system is terminated. 

When neither the EMEXIT or SYSTERM bits are on in LD00SLOT, a further test is 
made to determine if multiple ECC errors have occurred in the supervisor. 

Multiple ECC errors in the supervisor cause a Hard Wait condition. A C'A" is 
posted in location LOWCORE, SEREP code C'S' is posted in LOWCORE+1, the EMEXIT 

bit is posted in LD00SLOT ( > and $$RAST01 is fetched. 

i _ , _ _, — 

Figure 54. RMS Generation and Operation (Part 3 of 7) 
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6 Transient $$RAST01 attempts to build the machine check records and record them 
on SYSREC. A code is posted in L0WC0RE+2 to indicate the status of the 
recording effort, 

C f A'=recording was attempted but failure occurred on first record. 

C , I , =recording was incomplete but at least one record was 
successfully written on SYSREC, 

C ,, S , =recording of all records was successful. 

The SYSTERM bit is posted in LD00SLOT, and $$RAST00 is fetched again, 

7 $$RAST00 tests LD00SLOT, finding both the SYSTERM and EMEXIT bits on, it 
attempts to issue an 0T11I Hard Wait message regarding the recording status 
and then to terminate the system. 

8 If multiple ECC errors are found in the Problem Program or no ECC errors are 
found,, $$RAST01 is fetched. 

Other codes stored by $$RAST01 at L0WC0RE indicate a channel error. 

Code leaning 

B Irrecoverable channel check on fetch 

C Channel check on log with RASMSG 

D ECSW not stored 

E ERPIB queue has been exhausted 

F 2 channels damaged at some time 

G System reset code in ECSW 

H Retry/reset codes invalid 

I Channel address invalid 
$$RAST01 builds machine check records and records them on SYSREC. 

L : . . 

Figure 54. RMS Generation and Operation (Part 4 of 7) 
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9 For the Model 155,, ECC/EFL analysis is done by simply checking if a specified 
error count has been reached within a specified time limit , whereupon a 
diagnose instruction is used to place the machine in quiet mode. 155 HIR/EFL 
analysis is done in a similar manner to that of ECC/EFL, but instead of using 
a diagnose command to switch from full recording to quiet, control register 14 
is loaded with bit 4 off. 

145 HIR/EFL analysis is identical to that of the Model 155. 145 ECC/EFL 
analysis differs from the Model 155 to the extent that control storage 
analysis is necessary, and the EFL is initially set to 16 single bit errors in 
eight hours rather than eight errors in eight hours. On the occurrence of a 
single bit error while in control storage threshold mode, a message is issued, 
via the hardware facility, to indicate that control storage is in quiet mode. 

In all Model 155 and 145 analyses,, the mode status is posted in a one byte 
location in the RAS table called MCMODE. The eight bit configuration of the 
byte is as follows: 

Bit HIR recording mode 

1 HIR quiet mode 

2 ECC recording mode in main storage 

3 ECC quiet mode in main storage 

4 ECC recording mode in control storage 

5 ECC quiet mode in control storage 

6 ECC threshold mode in control storage 

7 Not used 

The following tests are made before storage validation (moving a doubleword of 
ones and zeros into the failing storage address) is attempted. 

1 - Test if failing storage valid 

2 - Test to see that the FSA was not in the UCW UJnit Control Storage — 
Model 155 only) 

3 - Check for multiple ECC error\s 

Only if the preceding conditions exist is storage validation attempted. 

In an MPS environment an attempt to set the storage protect key is made in 
situations where there was a protection error. A rotary scan is initiated to 
determine which partition owns the failing storage address. Once this is 
determined, an attempt is made to set the storage protect key for that 
partition,. 

If a machine check, other than system damage, is encountered while validating 
storage or repairing the SPF key, the MCAR REPAIR FAILED message is scheduled 
for the message writer. If system damage was encountered,, the resident 
severity detect routine is entered by loading the machine check new PSW. 

For the Model 155,, if auto-configuration has occurred, a message code is 
posted in RASMSG2 and an information message is issued by $$RASTli. Also, a 
total of the buffers deleted is kept in a one byte area in the RAS table 
called BUFDEL. 

Possible messages issued at this time: 

0T09I SOFT MACHINE CHECK 

0T06I ECC MCI DISABLED 

0T07I ALL SOFT MCI DISABLED 

0T14I CLOCK DAMAGE. ALL MODES QUIET 

OT08I C40 BUFFER PAGES DELETED=XXX 

0T17I CONTROL STORAGE ECC IN QUIET MODE 

0T16I EFL OVERFLOW 

Figure 54. RMS Generation and Operation (Part 5 of 7) 



120.4 DOS Supervisor and Related Transients 



Page of GY24-5151-2, added October 28, 1971, by TNL GN33-8692 



10 $$RAST09 reallocates partition sizes whenever a machine check interrupt, other 
than system damage, occurs while storage validation or SPF key repair is being 
performed for multiple bit failures. It also issues messages regarding the 
size and status of the partition. 

Dynamic reallocation for the background partition is as follows: 

• If the size of BG from its starting address to the failing storage address 
is greater than 10K, BG is still considered usable and a new upper boundary 
address is moved into the communication region. 

• If BG is less than 10K a message, BG NOT USABLE, is issued. 
Dynamic reallocation for foreground partitions is as follows: 

• If the upper half of a partition contains- the failing storage address (FSA), 
the upper boundary address in the communications region is changed to the 
next integral boundary below the FSA. The beginning address of the 
partition remains unchanged. If the partition size is reduced below 10K, 
the batch environment is deactivated. 

« If the lower half of a foreground partition contains the FSA, the beginning 
address in the PIB is changed to the next integral 2K boundary above the 
FSA. The upper boundary address remains unchanged. Again, if the 
foreground partition is reduced below 10K, the batch environment is 
deactivated. 

$$RAST00 is fetched to determine if any more errors are pending before 
continuing. Normally, no more errors are pending and the system continues. 

11 This routine gains control from either the SIO or I/O Interrupt routines when 
a channel check occurs. The ECSW is inspected to determine if enough 
information is valid to isolate the damage to either a channel or device. 

12 When enough valid information cannot be found in the ECSW, a severe damage 
condition exists and an exit is taken to the resident machine check handler 
routine.. 

The EMEXIT bit is posted in location LD00SLOT and the system is terminated. 
For the various types of errors, see item 8. 

LOWCORE is tested and contains something other than C'A" to indicate a channel 
error. 

When an emergency situation exists, an attempt to build the first channel 
check record is made. 

$$RAST01 attempts to build all remaining channel check records and records 
them on the ERDS. A code is posted indicating the status of the recording 
effort (see item 6). The SYSTERM bit is posted in LD00SLOT, and $$RAST00 is 
fetched. 

With the EMEXIT and SYSTERM bits on, $$RAST01 attempts to issue an 0T11I Hard 
Wait message regarding the recording status and then to terminate the system. 
See item 8. 

Figure 54. RMS Generation and Operation (Part 6 of 7) 
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13 If the damage cannot be isolated to a device, the entire channel is considered 
damaged. An ERPIB is created,, with the PUB field of the ERPIB containing the 
address of the damaged channel. The CSW and ECSW are saved in the ERPIB for 
the nonresident channel check handler. If the damage can be isolated to a 
device the entire ERPIB is filled for the nonresident channel check handler. 

14 This routine gains control from the channel check handler when the damaged 
device is a DASD unit. The operation is retried by restarting the chain of 
CCWs. 

The channel queue pointer byte of the ERPIB is used as an error counter. If 
the retry count has not been reached and the channel check occurred on an SIO 
instruction, a branch to the SIO instruction is taken. If the channel check 
occurred at interrupt time, a branch to restart the operation is taken. 

If ten retry attempts fail, the task is canceled. If channel check occurred 
in the supervisor,, the system is terminated. 

If retry is successful, a message is issued regarding the error and a 
recoverable channel check is recorded on SYSREC. 

15 $$RAST02 builds the first channel check record. The appropriate ERP is 
activated. 

$$RAST04 Unit record ERP 

$$RAST05 Unit record ERP 

$$RAST06 Not used 

$$RAST07 Tape ERP 

16 $$RAST01 builds all but the first channel check records and stores them on the 
ERDS. All machine check record building is bypassed. 

The recording status is posted in L0WC0RE+2 on system termination. See item 6 
for the status codes. 

The ERPs take appropriate action to handle the error depending on the data 
stored in the ERPIB. 

17 $$RAST10 issues all messages pertinent to the ERPs and clears the ERPIBs . 
The following messages are possible: 

0T10I CHANNEL ERROR RECOVERY ON CUU 

0T12I IRRECOVERABLE CHANNEL ERROR ON CUU 

QT13A CHANNEL ERROR ON CUU 

$$RAST00 is fetched to determine if any more errors are pending before 
continuing. 

i . ■ 

Figure 54. RMS Generation and Operation (Part 7 of 7) 
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Chart BH. $$J\$SUP1 - FOPT Macro, SVC Interrupt Handler 
Refer to Chart 03, 
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Chart BJ. $$&$SUP1 - FOPT Macro, Supervisor Call Branch Table 
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TIMER 
18 NO TIMER 
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TIMER 
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SXTRTl 
ERR21 
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BA-A3 


MPS 
22 NO MPS 


SVC22 
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MPS 
23 NO MPS 


SVC23 
ERR21 
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BA-A3 


TIMER 
24 NO TIMER 


SVC24 
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FH-B5 
BA-A3 


BTAM OR OLTEP 
25 NO BTAM AND NO OLTEP 


SVC25 
ERR21 


CA-F1 
BA-A3 
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LABEL 


CHART 


26 


STOR PROT 
NO STOR PROT 


SVC26 
EXTOl 


FH-B4 
BD-B2 


27 


BTAM 
NO BTAM 


SVC27 
EXTOl 


CA-F1 
BD-B2 


28 


MICR 
NOMICR 


PDSVC28 
ERR21 


JC-B3 
BA-A3 


29 


MICR 
NO MICR 
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ERR21 


FB-B3 
BA-A3 
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TO 
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35 


TRKHLD 
NO TRKHLD 
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ERR21 
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BA-A3 


36 


TRKHLD 
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ERR21 
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BA-A3 


37 


AB 
NO AB 


SVC37 
ERR21 
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BA-A3 


38 


AP 
NO AP 


SVC38 
ERR21 


MD-A1 
BA-A3 


39 


AP 
NO AP 


SVC39 
ERR21 


ME-A1 
BA-A3 


40 


AP 
NO AP 


SVC40 
ERR21 


MG-A1 
BA-A3 


41 


AP 
NO AP 


SVC41 
ERR21 


MH-A1 
BA-A3 


42 


AP 
NO AP 


SVC42 
ERR21 


MG-A4 
BA-A3 


43 


ERROR OR MCRR 

NO ERRLOG AND NO MCRR 


SDRSDR 
ERR21 


LF-C5 
BA-A3 


44 


ERRLOG OR MCRR 

NO ERRLOG AND MCRR 


SDROBR 
ERR21 


LF-C4 
BA-A3 


45 


EMULATOR INTERFACE 
NO EMULATOR INTERFACE 


SVC45 
ERR21 


FR-B1 
BA-A3 


46 


OLTEP INTERFACE 
NO OLTEP INTERFACE 


SVC46 
ERR21 


FR-F4 
BA-A3 


47 


WAITF FOR MICR DEVICES 


SVC29 


FB-B3 


50 


USED BY LIOCS 

FOR ERROR RECOVERY 






51 


OLTEP 
NO OLTEP 


SVC51 
ERR21 


FS-B2 
BA-A3 


52 


MPS 
NO MPS 


SVC52 
ERR21 


BA-A3 
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Chart CB. $$A$SUP1 - SGTCHS Macro, Channel Scheduler without MPS 
Refer to Chart 04. 
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* OVERFLOW * 

* * 
***************** 



PTO 

OPTION 

*A5 



*****E1********** 

* * 

* SAVE REG * 

* IN PTASAVE * 

* +36 * 

* * 
***************** 



**** 

* * 

* .1 * 

* * 
**** 



. * SVC 

. BY LOGICAL 
♦.TRANSIENT. 



CHANQ 
TABLE 
FULL 

: . .* 

*. .* 
* NO 



.* SP 

. OR OASDFP 

*. *A5 



***** 
*FC * 
* F4* 



*****D2********** 

* ZERO RID * 

* IN REG 6 * 

* FOR ADDRESS * 

* VALIDATION * 

* * 
***************** 



.* 
*. STORAGE 
*. PROTECT . 
*. *A5 .* 



* LOAD ADDRESS * 

* OF END * 

* OF CCB * 

* * 
***************** 



*****G2********** 
♦VLDADR2 GC* 
*_*_*_*_*_*_*_*_* 

* VALIDATE * 

* END OF CCB * 

* ADDRESS * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



SUPEXP X 

*****B3********** 

* LOAD ADDRESS * 

* OF SUPERVISOR * 

* CCB FROM * 

* REG 15 TO * 

* REG 1 * 
***************** 



*****A4********** 

* ZERO RID * 

* IN REG 6 * 

* FOR ADDRESS * 

* VALIDATION * 

* * 
***************** 



*A5 
SUPERVISOR 
GENERATION 
OPTION. 



SYSTEM *. NO 
CLASS LUB .*... 
*G5 .* 



.* 




SP 


* 


NO 




(IR 


DASDFP 




*.. 


* 


**. 


*A5 

.* 


.* 






*. .* 










* YES 







*****03********** 

* LOAD REG 6 * 
♦WITH REQUESTOR * 

* I/O KEY * 

* FROM RIK * 

* * 
***************** 





* INVALID 


*. YES 


*. 


LUB CLASS 


.*. 






*. . 


* 






*. .* 








*. .* 




X 




* NO 




***** 
*BA * 










* A3* 










* * 










* 










ERR27 




X 






*****D4********** 




* 


GET LUB 


* 




* 


NUMBER 


* 




* 


FROM REG 3 


* 




* 


INTO REG 2 


* 





***************** 



*****D5********** 

* * 

* CALCULATE * 

* PROGRAMMER * 

* LUB NUMBER * 

* * 
***************** 



*****E3********** 

* * 

* GET SYMBOLIC * 

* UNIT ADDRESS * 

* FROM CCB * 

* * 
***************** 



LUB 

NUMBER 

VALID 



***** 
*BA * 
* A3* 



EXCP6 X 

**F3******* 

* CLEAR * 

* CHANNEL 
* SCHEDULER 

* BITS IN 

* THE CCB * 
*********** 



*****G3********** 

* CALCULATE * 

* ADDRESS OF * 

* LUB ENTRY * 

* AND LUB * 

* POINTER * 
***************** 



*G4 
X'FE' = IGNORE 
X'FF' = UNASSIGNED 



= SYSTEM 

CLASS UNITS 
= PROGRAMMER 

CLASS UNITS 



SVC25 
SVC27 

*****jl********** 

* LOAD X'lO 1 * 

* (BACKGROUND * 

* PIK) INTO * 

* REG 6 AS RID * 

* * 
***************** 



* CLEAR PUB * 

* ADDRESS * 

* FROM REG 3 * 

* * 
***************** 



.* SP 

. OR DASDFP 
*. *A5 



.*. 


EXCPIGN .*. 


H3 *. 


H4 *. 


* IS *. 


.* 


LUB X'FF' *. YES 


.* IS 


OR X'FE' .*.... 


....X*. LUB X'FF 


*G4 .* 


*. 



***** 
*BA * 
* A3* 



K2 *. 

* * 

REQUEST 



.* 
.* CBF 

*. OPTION 
*. *A5 



K3 *. 
.* * 

.* REQUEST 

SYSLOG 
*. (1052) 



**H5******* 

* TURN ON * 
TRAFFIC BIT 

IN CCB, 
BYTE 2 

* * 
*********** 



**j5******* 

* POST * 

* CHANNEL END * 
* AND DEVICE * 

* END IN CCB, * 

* BYTE 4 * 
*********** 



***** 
*BD * 
* B2* 



***** 
*FP * 
* BL*CONBUF 



***** 
*CC * 
* B1*CBRET 



* 3 * 

* * 
**** 
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Chart CC. $$A$SUP1 - SGTCHS Macro, Channel Scheduler (Part 1 of 3) 
Refer to Chart OUt 



*A1 
CAA-E3.F3 
CB-J3.K3 
FP-C1.D1 

***** 
** * 



*A2 , 
MA-G5.J2 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* 3 * 

**** 



*A5 
SUPERVISOR 
GENERATION 
OPTION. 



* A2* X 

* * CBRET .*. 

* Bl 



X.*. HOLD OPTION ** 
*A5 .* 



.* *• 

• * HICR ♦ * NO 

*. *A5 .*... 

*. .* 



TRACK 
HOLD IN 
EFFECT 



***** 
*MA * 
* El* 



EXCP3 
NO .* 



NO 



El *. 

.* *. 

.* ANY *. 

. DEVICES IN . 

♦ . ERROR .♦ 



*. 



.* 



*****D2 ********** 

* SET SYSTEH * 
♦MASK TO DISABLE* 
♦ALL INTERRUPTS ♦ 

* * 
***************** 



.♦TELEPROCESSING.* 

*.0R OLTEP .* 

*. *A5 .* 



FLPTR X 

**» ..* t> 3********** 

* CALCULATE ♦ 
ADDRESS OF ♦ 

* FIRST CHANQ ♦ 

* ENTRY IN ♦ 
♦FREE-LIST ♦Kl ♦ 
***************** 



*****C3********** 



♦FIRST ENTRY TO ♦ 

♦ THE FREE-LIST ♦ 

♦ POINTER * 
***************** 



* 2 * 

* * 
**** 



Fl ♦. 

.* IS *. 

.* THIS I/O *i 

REQUEST DEVICE. 

*.IN ERROR .♦ 

*. .* 

*. .♦ 

* YES 



YES .* IS I/O *, 

X..*. REQUEST FROM , 

♦. ERP .* 



HI *. 
.* *. 

NO .* SHOULD * 
...*. ERP ROUTINE 
♦ .START ERP.^ 
♦ . .♦ 

. * 



♦ . 
♦ . 
OLTEP 
ONLY 
*. 



OLTEP ♦. 
ONLY 
♦A5 .♦ 
.♦ 
♦ . .♦ 
♦ NO 


* Y .^. 


• 






X 

• *. 
G2 ♦. 

t * 

SVC 27 


♦ . 
*" 


* I 


n; . * 
♦ . .♦ 
♦ NO 




.X... 







**** 

* * 

* 1 * 



* YES 



X 
***** 
♦CCA* 
♦ A4* 



H2 ♦. 

.♦ ♦. 

SVC 25 

*♦. .♦" 

♦ . .♦ 
♦ NO 



* 2 * 

* * 
**** 



*K1 
REFER TO FIGURE 31 
FOR QUEUING AND 
ENTRY TO THE 
CHANQ TABLE. 



. .* *. 

YES .* 1419D ♦ 
X..+. +A5 



*****P3********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE ALL * 

* INTERRUPTS * 

* * 
***************** 



*****G3********** 

* STORE CCB * 

* ADDRESS AND * 

* X'FF' CHAIN * 

* FIELD IN THE * 

* CHANQ ENTRY * 
***************** 



*****H3********** 

* * 
♦STORE ABSOLUTE ♦ 

♦ LUB NUMBER ♦ 

♦ AT LUB ID ♦ 

* * 
***************** 



.*. 

J3 ♦. 

.♦ SP OR ♦. 

.♦ DASDFP OR ♦. 

♦,SYSFIL=2311/ . 

♦. 2314 .♦ 

♦. ♦AS .* 

*. .♦ 

♦ NO 



*****K3********** 

♦ * 

♦ MOVE X'lO' * 

♦ (BACKGROUND) * 

♦ INTO REQID * 

♦ * 
***************** 



B4 ♦. 

.♦ *. 

♦ AP ♦. 

OPTION 
♦. +A5 .* 



*. 



.* 



SP OR 

DASDFP 

*A5 

*. .* 



*****Q4********** 

* * 

STORE 



*****C5 ********** 

* STORE TASK ♦ 
♦REQUESTER ID AT* 

* TKREQID AND ♦ 

* REQID ♦ 
***************** 



.* REQID *. 
.FROM PROBLEM . 
*. PROGRAM .* 



***************** 



*****E5********** 

* * 
♦STORE PARTITION* 

* REQUESTER ID * 

* AT REQID * 

* * 
***************** 

**** 



F4 *. 
.♦ 
NO .* LTA 

...♦. ACTIVE 



**** 

* * 

* 5 * 

* * 
**** 



*****Q4********** 

♦ * 

♦ MOVE X'OO* * 

♦ (SUPERVISOR) ♦ 

♦ INTO REQID ♦ 

♦ * 
***************** 



*****G5********** 

* * 

* MOVE LOGICAL ♦ 

* UNIT INTO ♦ 

* LUBDSP * 

* * 
***************** 



***** 
*CCA* 
♦ Bl* 



CBF 

OPTION 

*A5 

*. . : 



REQUEST *. 
SYSLOG 



***** 
*FP * 
* B2* 
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Chart CCA. $$A$SUP1 - SGTCHS Macro,, Channel Scheduler (Part 2 of 3) 
Refer to Chart 04. 



***** 

*FP * 
* G4* 



CBN0N1 X 








SUPERVISOR 
GENERATION 


*****A1********** 








* RESTORE * 








OPTION 


* CONTENTS OF * 










* REGISTER 8 * 










* FROM CBSAVE * 










* * 




**** 




**** 


***************** 




* * 




* * 






* 2 * 




* 1 * 


**** 




* * 




* * 


* * - 




**** 




**** 


* * *.X. * CC-H*,J5 




. 




. 


* * . 










**** X 










CBN0N2 .*. 




X 




MVCCH X 


Bl *. 




**B2******* 




*****Q3********** 


.* *. 


* * 


* GET CCW * 


.* SEEK *. NO 


* 


TURN OFF 


* 


* ADDRESS FROM * 


*. SEPARATION .*.... 


* 


CHAIN BIT 


* 


* CCB, LOAD IT * 

* INTO REG 6 * 


*. *A3 .* 


* 


IN SEEK CCW 


* 



CI *. 
.* *. 

.* 

.*. SYSTEM/370 



RMS 

ACTIVE 

NOW 



*****£ x********** 

* * 

* DETERMINE * 

* DEVICE * 

* TYPE * 

* * 
***************** 



Fl * 

* 

DASD 



**** 

* * 

* 1 * 

* * 
**** 

NOSO 



*********** 



**C2******* 

* TURN ON * 
* BITS IN CCB * 

♦FOR DEV END AND* 
♦ACCEPT UNRECV* 

* ERROR * 
*********** 



**D2****+++ 

* * 

* TURN ON 

* SEEK OVERLAP 

* BIT IN CCB 

* * 
*********** 

**** 

* * 

* 3 *.Xi 

* * 
**** 

SVNWAD X 

*****E2********** 



***************** 



.* REQUEST * 
♦.ALREADY QUED 
♦. TO PUB .♦ 



FNDQUE 

*****G2*++*+***** 
♦GET POINTER TO * 

* NEXT ENTRY IN * 
...X* QUEUE FROM * 
X * CHAIN FIELD * 

* * 
***************** 



*****Hl********** 

♦ QUEUE ♦ 

♦ REQUEST TO ♦ 

♦ PUB IN ♦ 

♦ PUBCHQPT ♦ 

♦ * 
***************** 



MO .♦ CAN 

..♦. DEVICE BE 
♦. STARTED . 



***** 
*BD * 
* D2* 

* * 



**K1******* 

* LOAD ♦ 

♦ FREE-LIST ♦ 

♦ POINTER IN ♦ 

CHAIN FIELD TO* 

♦QUEUE ENTRY* 

*********** 



*****j2********** 

♦ STORE OLD * 

♦ FREE-LIST ♦ 

♦ POINTER IN ♦ 
♦CHAIN FIELD TO* 

♦ QUEUE ENTRY ♦ 
***************** 



***** 
*BD ♦ 
* B2* 



***************** 



.♦ COMMAND ♦ 
.CODE IS LONG 
♦. SEEK .♦ 



*****D3********** 

♦ GET SEEK ♦ 

♦ ADDRESS FROM ♦ 

♦ CCW, LOAD IT ♦ 

♦ INTO REG 7 ♦ 

♦ * 
***************** 



*****E3********** 

♦ GET SAB ♦ 

♦ POINTER FROM ♦ 

♦ PUB, UPDATE ♦ 

♦ SAB TO NEXT ♦ 

♦ ENTRY ♦ 
***************** 



G3 ♦. 

.♦ ♦. 

* DOES ♦ 

USER WANT 
*. SENSE .♦ 



.♦DEVICE END ♦. YES 
. OR ACCEPT .♦..X 
♦. UNRECOV .♦ 
♦. ERROR. ♦ 



♦ .SEEK CHAINED .♦..X, 



***************** 



**** 

* * 

* 4 * 

* * 
**** 



.* *. 

.* OLTEP ♦. NO 
REQUEST .♦... 



***** 
♦CD ♦ 
* Al* 



X 




.*. 




E4 ♦. 




♦. 


**** 


REQUEST ♦. NO 


* * 


FROM BG .♦... 


.X* 4 ♦ 


.♦ 


* * 


.♦ 


**** 


♦ . . ♦ 




♦ YES 




..X. 




.X 





***** 

♦ BA ♦ 

♦ A3* 
* * 



**** 
.NO * * 
.*....X+ 5 ♦ 



MPS 


♦. 


NO 






.♦ OLTEP ♦. YES 


♦A3 




♦. .. 






X+. REQUEST ...... 




* 








♦. .♦ 


:. .* 










*. .♦ 


♦. .♦ 










♦ . .♦ X 


♦ YES 










* NO ***** 
**** . *CD * 

* ♦ . ♦ Al* 

* 4 +.X. ♦ ♦ 

* * * 


X 










*♦♦♦ X TSTDEV2 


.♦. 








TSTDEV1 .*. 


H4 ♦. 










H5 ♦. 


*. 










.* *. 


OLTEP 


*. 


NO 






.* TP *. NO 


REQUEST 


• 




. 




*. DEVICE ...... 


.♦ 






* 




*. .♦ 


♦ . . ♦ 






X 




♦ . .♦ X 


♦ YES 




**** 


* YES ***** 






* 




* 


*BD ♦ 






* 


4 


* 


♦ B2+ 



*****J4********** 

♦ SAVE CCB ♦ 

♦ ADDR AND ♦ 
♦INDICATE OLTEP ♦ 

♦ SVC25 ♦ 

♦ REQUESTED ♦ 
***************** 



* 2 * 

* * 
**** 



*K3 
CF-B1 (NO OPTIONS) 
CF-A1 (MAXIMUM OPTION) 



***** 
*CD * 
* Al* 



MPS 

OR OLTEP 

♦ A3 



*****K5********** 

* * 

* INDICATE * 

* TP SVC 25 ♦ 

* REQUESTED ♦ 

* * 
***************** 
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Chart CD. $$A$SUPl - SGTCHS Macro, Channel Scheduler (Part 3 of 3) 
Refer to Chart 04. 





***** 

* * 

* ** 
* * 

* 


**** 

* * 

* L * 

* * 
**** 

*CCA-J4,B5,G5,J5,K5 . 


TSTDEV2 


X 

.*. 


HALTL00P .*. 



Al 



*. 



A2 



• * 



.* ANY I/O *. NO YES .* LAST 
*. FOR THIS .*....X...«*. ENTRY 
*. DEVICE .* . *. 

*. .* . *. .* 

*. .* X *. .* 

* YES ***** * NO 

*BD * 

* B2* 

* * 



*****B1********** 

♦CQDSP CR* 
*_*_.*-*_*_*_*_*_* 

* GET CHANNEL * 

* QUEUE ENTRY * 

* * 
***************** 



OLTEP 

AND MPS 

*K4 

*. .* 



.* *. 
.* OLTEP *. NO 
*. SVC 25 ......X, 



NO 


.* 


RETAIN 


*. 


..* 




*K4 






*. 


.* 






*. .* 








*. .* 








* YES 





.* OLTEP *. NO 
*. CCB ......X, 

*. .* 



0LTPC0MP .*. 

HI *. 

.*" SHARED **. NO 
*. DEVICE ......X 



*• 



*. .* 

"**YES 



*****jl********** 

* GET ADDR OF * 

* PUB'S FIRST * 

* CHANNEL * 

* QUEUE ENTRY * 

* * 
***************** 



.* SVC 25 

*. FOR THIS 

*. ENTRY 



*****B2********** 

* POINT AT * 

* NEXT ENTRY * 

* IN CHANNEL * 

* QUEUE * 

***************** 



♦ . .* 

*. .* 
* YES 



**** 


* * 


* 3 * 


* * 


**** 


X 
TPBUSY1 .*. 

.» A3 *•*. 


.♦ LAST *. NO 


♦ . PUB .,**.. 


*. .* 


*. *♦ 


*. .* 


* YES 


**** , 


* * . 


* 2 *.X. 


* * . 


**** 


HALT X 


***B3************ 
CLEAR CCB 
* CHANNEL * 


SCHEDULER 


* BITS AND * 


HALT I/O • 


***************** 



.*. 

C3 *. 
.* *. 
.* INTERRUPT *. YES 
*. PENDING .*..X 
*. .* 
*. .* 
*. .* 
* NO 



X 

.♦. 
A4 *. 

.♦* CHANNEL '*. 

FAILURE . 

*b .* 



.* 



**** 

* * 

* 6 * 

* * 
**** 



.* TP *. 
*K4 

*. .* 



**** 

* * . 

* 5 *.X. 

* * . 
**** x 



B4 



♦. 



**** 



X 

***** 

*FC * 

* £4* 



**** »D2 ********** 

* REMOVE THIS * 

* ENTRY FROM * 

* QUEUE AND * 

* RESET I/O * 
♦REQUESTORS IDS * 
***************** 



***** 
*BD * 
* B2* 



.* ♦ . 

.* csid^ *. Yes 

STORED ...... 

♦ . .* 



.* *. 

.* TP (*K4) « 

*. AND 2701 

*. .< 

*. .* 

*. .* 

* NO 



.RETAIN (*K4)*. 
. AND T2955 . 

*. .* 



.*. 

D4 *. 

.♦STATION*. 

** BUSY AND *. 

CONTROL 

*. UNIT .* 

♦.^ENQ^.* 

'♦"yes 



X 

***** 

*FC * 

* E4* 

* * 



X 
***** 
*DF * 
♦ B4 + 
* * 
* 
CHFAIL 

YES 



* *. 

*. YES 
SVC 25 .*..X 



X 

***** 
*FF * 
* C5* 



***** 

*BD * 

* B2* 

* * 



* 6 * 

* * 
**** 



D5 



*. 



RE SVC 



.* TP (*K4) *. NO 
.X*. AND SVC 28 ...... 

*. .* 
*. .* 

*. .* X 
* YES ♦♦♦** 
*FF ♦ 
* C5* 
X * * 
***** * 
*BD * IOPSET 
* B2* 
* * 

EXT01 



***** 

*FF * 

* C5* 

* * 



X 

.*. 

F3 *. 

.* *. 

.♦ DEVICE * 

*. OPERATIONAL 

♦ . •♦ 

*. .* 



G3 *. 
.♦ *. 

.♦ T/P OR, 
♦. OLTEP AND 
♦, BMPX 
♦. *K4 .* 
*. .* 
* NO 



7 *.X. 



TP OR, ♦. NO 
OLTEP AND .*.. 
. BMPX .♦ 
*. *K4 .♦ 



IOPSET ♦♦♦♦ X 
TBUSY2 .♦. 

H3 *. 

.♦ *. 

.* S/370 *. 

*. CPU i 

♦. *K4 .♦ 



***** 
*DA * 
♦ CI* 



**** 

* * 

* 3 * 

* * 
**** 



NO 



***J2************ 



***************** 



.♦CHANNEL IN ' 
*. QUEST 

♦. MODE 



.* 



**** 

* * 

* 5 ♦ 

* * 
**** 



♦K4 
SUPERVISOR 
GENERATION 
OPTIONS 



**** 

* * 

* 3 ♦ 

* * 
**** 



**** 

* * 

* 2 ♦ 

* * 
**** 



.♦ 

NO 



X IOPSET 
***** 
♦FF * 
.CCENTRY1 ♦ C5* 



.♦. 

G5 ♦. 

.♦ ♦. 

._ _ OLTEP ♦. 

.♦. REQUEST .♦ 



*****j5********** 

♦ INDICATE HIO' ♦ 

♦ ENTRY ™ ♦ 

♦ RETAIN/370 ♦ 

♦ * 
***************** 



****K5********* 

♦ EXECUTE ♦ 

♦ RETAIN ♦ 

♦ APPENDAGE ♦ 
*************** 



***** 
*HD ♦ 
* B2* 
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Chart CE. $$A$SUPl - SGTCHS Macro, Start I/O 
Refer to Chart 04. 



— No Options,, UNCOMMON Routine 



***** 

*CFA* 
* E2* 



***** 

*CFIA* 

* G5* 

* * 



* LOAD CHAN * 

* AND UNIT * 

* FROM PUB * 

* * 
***************** 



B2 *. 

.* CHAN *. 

.♦BUSY OR NOT*. 

. OPERATIONAL .' 



***** 
*DA * 
* Al* 



***** 
*BA * 
* Al* 



**** 

* * 

* 3 * 

* * 
**** 



DEVICE 
IS SYSTEM 

I/O 
*. .* 



STRTIO 

*****£ i********** 

* MOVE CCW * 

* ADDRESS * 

* FROM CCB * 

* TO CAW * 

* * 
***************** 



I/O 
TRACE 
ACTIVE 



_*_*_*_*_*_ 



* * CE TRACE 

* * OF I/O * * 

* * EVENTS * * 
***************** 



**** 
UNCOMMON .*. 

B3 *. 

YES .** MODEL = 
....*. 30 OR 40 

X *. *K5 



BMPX 

OPTION 

*K5 



**** 

* * 

* 5 * 

* * 
**** 



DEVICE 

NOT 
STARTED 



CE 

OPTION 

*K5 



***** 
*DA * 
* Al* 



SYSRDR 

OR 
SYSIPT 



MPS = 
BJF 
*K5 



DASD 

DEVICE 

2311 



_*_*_*_*_*_*_*_ 

* GET PIB 

* ADDRESS 

* IN REG 8 
***************** 



***** 
*BA * 
* Al* 



*************** 



**** 

* * 

* 7 * 

* * 
**** 



CHANNEL 

CHECK ON 

SIO 



***** 
*HE * 
* K2* 



*****G3********** 
*TURN ON SIO BIT* 

* IN RMS FLAG * 
AND SET NEW *. 

♦BASE REG VALUE * 

* * 
***************** 



.X* 



***** 
*HD * 
* B2* 



**** 

* * 

* 4 * 

* * 
**** 



**** 

* * 

* 3 * 

* * 
**** 



***** 
*CFA* 
* El* 



*****P5********** 

*GETPIB CR* 
*_*_*_*_*_*_*_*_* 

* GET ADDRESS * 

* OF REQUESTOR * 

* PIB * 
***************** 



*****G5********** 

* GET COMM * 

* REGION ADDR * 

* FROM 2ND * 

* HALF OF * 

* PIB TABLE * 
***************** 



*****Hl********** 

* SAVE CHAN * 

* AND UNIT * 

* AND PUB * 

* ADDRESS * 

* * 
***************** 



**J1******* 

* SET X'80« * 

* IN PUB FLAG : 
* TO INDICATE 

* DEVICE BUSY 

* * 
*********** 



***** 
*BD * 
* B2* 



X 
***** 

♦ HE * 

* B2* 



**** 

* * 

* 7 * 

* * 
**** 



YES .* 

*. 



***** 
*DF * 
* B4* CHFAIL 



NRTASTO .*. 

H3 *. 

.* ANY *. 

.* CHANNEL *. 

...X*. STATUS EXCEPT.; 

PCI OR WRONG* 

♦LENGTH. ♦ 



***** 
*BC * 
* B4* 



*. 



NO 



J3 *. 

.* ANY *. 

.* DEVICE *. 

.STATUS EXCEPT. 

*. BUSY OR .* 

*. MOD .* 



*CFA-B1 * ** 



NO 



***** 
*BC * 
* B4* 



*****J4********** 

* * 

* MOVE CHANNEL * 

* AND UNIT TO * 

* I/O OLD PSW * 

* * 
***************** 



*****K4********** 

* STORE CAW * 

* WITH CCW * 

* ADDR +8 * 

* IN CSW ♦ 

* * 
***************** 



JOB 
CONTROL 
. OPEN 
*. .* 



***** 
*CJ * 
* Bl* 



SUPERVISOR 
GENERATION 
OPTION. 



***** 
♦CK * 
♦ A4* 
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Chart CF. $$A$SUP1 - SGTCHS Macro f Start I/O — Maximum Options (Part 1 of 5) 
Refer to Chart 04. 



LOAD 

CHANNEL AND 

UNIT FRCM PUB 



SUPERVISOR 
GENERATION 
OPTION. 



Bl •. 
.• MPS, •. 

• CHANSW, • 
OASDFP. AND 

♦ . SYSFIL .• 

•. *A2 .• 

'•YES 



. NO 


YES . 


. YES 


NO . 







BRANCH=N0 EXTENT CHECK 
(INDICATES DEVICE IS 
SYSRES) N0P=CHECK JIB 
EXTENTS. 



IS 

DEVICE 
2260 



NO .• CHANSW 
...•. *A2 



•*•• *YES 
5 • I 



• H2 



G2 ». 
• IS • 

2260 
CHANNEL 

BUSY 



EXIT ON YES LEG IF 
BURST DEVICE HAS BEEN 
STARTED PREVIOUSLY 
AND IF IT DID NOT 
COMPLETE OPERATION 
PRIOR TO THE 
CURRENT MPX START 
I/O ATTEMPT. 



LOAD NUMBER 

OF ALTERNATE 

CHANNEL 



TEST 

ALTERNATE 
CHANNEL 



H3 •. 
.• CHAN •. 
.•bi.kv no NOT*. NO 
. OPERATIONAL .«... 



Jl *. 

.• IS •. 

•DEVICE CHAN* 

SWITCHABLE 



• J3 
SYSIPT, SYSRDR, 
SYSPCH, OR SYSLST. 



BURST- 
MODE MPX 
• H2 



STORE CHANNEL 

AND UNIT 

FOR START I/O 

COMMAND 



HAS 

a BEEN 

READ 



ERR30 
• . NO 



G4 ♦ . 
*RETAIN/370 



EXT03 IF ATTENTION 



FOR OTHER CONDITIONS. 



YES 


• OLTEP 




ACTIVE 










X 




• •••• 


•NO 


• CFA* 




• Bl* 




• • 






.X. . 


STRTIO 






K4 *. 




.• 


YES 


• IS 




SIO FROM 




•. 2955 




•. . 


X 


• . . • 


• •••• 




• BA • 




• Al* 





• OLTEP 


• . YES 


RECUEST 














X 


• NO 






• CFA 




• Bl 


<t «... 








• •• X 


STRTIU 


C5 •. 








• DEVICE 


• . YES 


SEVEN TRACK 


•. TAPE 


• 








X 


• NO 






• CFA 




• Al 












STMODE 


05 •. 








• DEVICE IS 


•. YES 


SYSLOG 














X 


• NO 






• CFA 




• 6* 



• SEEK •. YES 
SEPARATION ...... 

•. »A2 .• 



• CF, 

• B 

STRTIU 



• •F5 

RESET SWI1CH* 

• AT NCPINSTR • 
CG-E3 TO A • 

• NOP • 
• »E2 • 



.• DEVICE •. NO 
.IS SYSTEM I/0.«... 
•. »J3 •• 
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Chart CFA. $$A$SUP1 - SGTCHS Macro, Start I/O — Maximum Options (Part 2 of 5) 
Refer to Chart 04. 



*****A2********** 







♦ GET CHANNEL * 




GENERATION 








♦ APPENDAGE * 

* ADDRESS * 




OPTION 














***** * CE-H5 


D5 


E5 ♦ * 






***** 


* * CH-A1 


E2 


***************** 






♦CF ♦ 

♦ D5^ 


» » * CF-B5 


E5 








**** * * CF-H5 


J5 








* * 


* * * 










* 


* 1 *... 










. 


* * . 












**** 










X 


STRTIO X 










LOGPRC .♦. 


*****Q1********** 




X 




♦ B3 


B4 ♦. 


* * 




****B2********* 




CG-E3 


.♦ ♦. 


* MOVE CCH * 




♦ GO TO OLTEP * 




CH-G4 


.♦ REQID ♦. \ 
♦.EQUAL SYSLOG .♦. 


* ADDRESS FROM * 




♦ APPENDAGE ♦ 

* WITH SIO CC * 






* CCB TO CAH * 








♦ . ID . ♦ 


* * 




*************** 






♦ . .♦ 


***************** 










♦. .♦ 
♦ NO 


**** '. 












♦ * * 












* B3 *.X. 












* * . 












**** 










X 


STRTIOl X 




X 


♦ C3 




.♦• 


**C1******* 




*****C2********** 


BRANCH=NO EXTENT CHECK 


C4 ♦. 


* * 




* * 


(INDICATES DEVICE IS SYSRES) 


.♦ ♦. 


♦REINITIALIZE * 




♦RESTORE SYSTEM ♦ 


NOP= 


CHECK JIB EXTENTS, 
SWITCH IS RESET TO 


NO .♦ CBF ♦. 


* EXTENT CHECK * 




♦ BASE REG AND ♦ 


THE 


...♦. OPTION .♦ 


* *C3 * 




♦CONDITION CODE ♦ 


NOP 


IN THE STRTIOl 


♦. +A3 .♦ 


* * 




* * 


ROUTINE. 


♦. .♦ 


*********** 




***************** 






*. .* 
♦ YES 


**** * 




**** I 








*CG * . 




* * . 








* E3 *.X. 




♦ 3 + .X. 








* * 




* * . 








**** 




**** X 






X 


STRTI2 X 




.♦. 






.♦. 


**D1******* 




D2 ♦. 






D4 ♦. 


* * 




.♦ SDR ♦. 






.♦ ♦. 


* SET STORAGE * 
♦PROTECTION KEY * 




.♦ RECORD ♦. NO 




.♦ IS ♦. *i 




♦, COUNT .♦. 
♦. EQUAL .♦ 








♦. LOG I/O •♦« 


* IN CAH * 








♦.BUFFERED .♦ 


* * 




♦ .ZERO .♦ 








, *. .* 


*********** 




♦ . .♦ 
♦ YES 








♦. .♦ 
♦ NO 


**** * 




**** . 










* * * 




♦ LB ♦ 

♦ E2 +.X. 








' .....X* 


* D5 *.X. 




* * 




* * 










**** 




**** X 










SIO X 




STRTED .♦. 




X 


X 


***E1************ 




E2 ♦. 




*****E3********** 


*****£4********** 






.♦ ♦. 




* * 


♦GETPIB CR^ 


* START * 




.♦ NORMAL ♦. NO 


♦ POINT * 




I/O 




♦. START .♦ 




♦REGISTER 11 TO ♦ 


♦GET ADDRESS OF ♦ 


* * 




♦. .♦ 




♦ THE SDR AREA ♦ 


♦ REQUESTER PIB ♦ 






♦ . •♦ 




* * 


* * 


***************** 




♦ . .♦ 
♦ YES 


X 

***** 

*CE ♦ 

♦ BO* 

* * 

* 


***************** 

X 

***** 


***************** 


X 




'. UNCOMMON +LB ♦ 




.*. 




X 




♦ Bl* 


X 


Fl . *• 




*****p 2 ********** 




* * 


*****P4********** 


.♦ *A3 *. 




* * 




♦ 


* * 


NO .*OLTEP AND, ♦. 




♦ STORE ADDRESS ♦ 




SDRXIO 


♦ MOVE SYSLOG ♦ 


...♦. MPS AND NOT .* 




♦ OF PUB LAST ♦ 

♦ STARTED ♦ 






♦ ID TO OUTPUT ♦ 


*. BMPX .* 










♦ AREA ♦ 



♦D5 
CE-G3 
CG-D3,J2 
HH-H2 



*****G1********** 

* * 

♦ SAVE CHANNEL ♦ 

♦ AND UNIT ♦ 
♦OF THIS DEVICE ♦ 

* * 
***************** 



***************** 



**G2******* 
♦SET DEVICE ♦ 

♦ BUSY FLAG 

IN PUB 

♦ FLAG BYTE 

* * 

*********** 



.♦. 
HI ♦. 
• ♦ 
NO .♦ OLTEP 
...♦. +A3 



*****jl********** 



***************** 



***** 
*CG ♦ 
♦ A4+ 



***************** 



*****G4********** 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF CSCHDCCW ♦ 

♦ IN REG 7 ♦ 

♦ * 
***************** 



***** 
♦CH ♦ 
♦ H2 + 



♦ 3 ♦ 

♦ * 
**** 



* 2 ♦ 

* * 
**** 
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Chart CG. $$A$SUP1 - SGTCHS Macro, Start I/O 
Refer to Chart 04. 



Maximum Options (Part 3 of 5) 



***** 

*CF * 

* C5* 

* * 



**** 
* * 

**** 



Al 



*. 



.* ESTV 
*. AND /OR 
*. EVA 
*. .* 
*. .* 
* YES 



SIO 

FROM 

ERP 



ESTVOUT .*. 

A2 *. 
.* *. 
.* NEW *. YES 
*. TRACK TAPES .*..* 
*. ONLY .* 
*. *K1 .* 
*. .* 
* NO 



* ** 
* * 

. *CFA-G2 


:■■■*:. 


X 

.*. 

A4 *. 

.* *. . 

.* SIO *• NO 

*. ACCOUNTING .*..... 

*. *K1 .* 

*. .* 


X 

• •*• 

A5 *. 
.* * 
.* BURST 
*. DEVICE ON 
*. MPX 
*. .* 



SEVEN *. NO X 
TRACK .*..... 
TAPE .* 



*****B4********** 

* * 

* SAVE * 

* WORK * 

* REGISTERS * 

* * 
***************** 



*. NO 



**B5******* 
* SET MPX * 

* CHANNEL IN > 
BURST MODE 

* SWITCH AT ' 
BRSFLG *F5 * 

*********** 



X 

***** 

* * * 

* K2* 



NO .* TEB *. 

..*. OPTION .* 

*. *K1 .* 



* TEB ADDRESS * 

* * 
***************** 



.* RETRY 
IN 
♦.PROGRESS 



*****pi********** 

* * 

* CALCULATE * 

* ADDRESS OF * 

* CORRECT TEBV * 

* * 
***************** 



♦.PROGRESS 
*. .* 

*. .* 
* NO 



*****Hl********** 

* * 

* INCREMENT SIO * 
*COUNT AND STORE* 

* IN TEBV * 

* * 
***************** 



ESTVOUT1 X 

*****jl********** 

* * 

* RESTORE * 

* REGISTERS * 

* FROM ESTVSAVE * 

* * 
***************** 



*K1 
SUPERVISOR 
GENERATION 
OPTION 



.* *. 
* WAS *. YES 

/+ ALREAD .*.... 
*. READ .* 



STM0DE1 X 

*****P2********** 

* MOVE SET MODE * 

* COMMAND TO * 

* CCW, GET * 
*ADDR OF STMCCW * 

* INTO REG 7 * 
***************** 



*. 
SENSE ** 



*** 

* * 

....*CFA* 

*G4* 

*** 

LOGPRC1 X 

*****H2 ********** 

* * 

* STORE ADDRESS * 

* IN REG 7 AT * 

* CMDADR (CAW) * 

* * 
***************** 



* MOVE TIC * 

* ADDRESS TO * 

* USER CCW * 

* * 
***************** 



X 

***** 
*BA * 
* Al* 
* * 
* 
ERR30 



; . .* 
*. .* 
* YES 



D3 *. 

.* *. 

.* MPS * 

*K1 

*. .* 



.* *. 
.* DASD *. 
.FILE PROTECT . : 
*. *K1 .* 



X 

***** 
*CFA* 
* 01* 
* * 

STRTI2 



.* BJF *. NO 
*. SUPVR .*... 
*. *K1 .* 



.*. 

D4 *. 

.* I/O *. 

.* REQUEST *. 

*. FROM 

*. SUPVR .* 



D5 



.*. 



*. 



X 
***** 
*CFA* 
* El* 



X 

***** 
*CFA* 
* CI* 



* 4 * 

* * 
**** 



*****E4********** 

* GET POINTER * 

* TO JAI * 

* PARTITION * 

* ACCT TABLE * 

* * 
***************** 



.* 

.* I/O 

REQUEST 

*. FROM BG .■ 

*. .* 

*. .* 

* YES 



*****E5********** 

* * 

* GET POINTER * 

* TO BG JAI * 

* ACCOUNT TABLE * 

* * 
***************** 



*****P4********** 

* GET POINTER * 

* TO JAI ACCT * 

* SIO TABLE * 

* * 
***************** 

**** * 

* * . 

* 3 *.X. 

* * . 
**** X 

.*. 
G4 *. 
.* *. 

IN USE .* STATUS *. OVERFLOW 



*F5 
BRSFLG=GI0ADR+1, 
CHART CF-A1. 



NXT1 



*. 



.* DEVICE *. YES 
♦ADDRESS ALREADY*.... 
*. ENTERED .* 
*. .* 



***** j 3********** 

* * 

* GET NEXT * 

* TABLE * 

* ENTRY * 

* * 
***************** 



STATUS 
OF TABLE 
ENTRY .* 
. .* 
*. .* 
* 
.EMPTY 



*****H4********** 

* * 

* STORE CHANNEL * 

* AND * 
♦DEVICE ADDRESS * 

* * 
***************** 



*****H5********** 

♦ * 

♦ TURN ON ♦ 

♦ OVERFLOW ♦ 

♦ INDICATION ♦ 



*****J4********** 

♦ * 

♦ INCREMENT ♦ 

♦ COUNT ♦ 

♦ BY 1 ♦ 

♦ * 
***************** 



X 

***** 

♦ CFA+ 

* El* 



IF ATTENTION 
IF RETURN FROM 
ERP TRANSIENTS 
FOR OTHER 
CONDITIONS 



**** 
EXIT X 

*****K4********** 

* * 

* RELOAD * 

* WORK ♦ 

* REGISTERS ♦ 

* * 
***************** 
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Chart DA. $$A$SUP1 - SGUNCK Macro, Unit Check Entries (Part 1 of 2) 



. *CE-B2,D3- 



*DAA-B2,C2 f D2 



.♦ MODEL ♦. NO 
*. 50 OR UP .♦... 
*. *B5 .* 



**** 



*♦** 



* 3 *.X.X.* CD * • 

* * . * F3* 
**** . **** 

I0N0P X 

**d******* 
♦SET DEVICE * 

* STATUS TO * 

* X«44' CHANNEL * 

* STATUS TO * 
* X'FO' *A5 * 

*********** 



***** 
** * 
* K2* 



.*• 

A2 *. 

.♦CNDTION*. 

.* CODE NOT * 

.X*. OPERATIONAL 

*. .* 

*. .* 



B2 *. 
.* * 
.* BUSY 
ON MPX 
*. CHANNEL 



*. 



*****C2 ********** 

* * 

* ADD ONE TO * 

* NOSTART * 

* I/O COUNTER * 

* * 
***************** 



X 

.*. 

A3 *. 

.* *. 

.* CHAN *. NO 

♦DATA OR CHAIN-.*... 

*.ING CHECK.* 



* K4 *.X 



**** 
UNTCK2 X 

*****Q3********** 

♦SET RETRY FLAG ♦ 

♦ IN IOERR AND * 
♦GET SENSE BITS ♦ 

♦ IN CCW ♦ FS * 

♦ * 
***************** 



.*• 

C3 *. 

.♦ *. 

* T/P OR * 

1419D 
*. *B5 .* 
*. 



USER 
UNIT 
CHECK 



***** 
*BD * 
* B2* 



.* 

. .* 
* NO 



El *. 

.♦ DASD ♦. 

.DEVICE USING*. 

. SKSEP AND . 

*.LONG SEEK.* 

♦ . OP .* 



**Fl******* 

* * 
* RESET * 

♦ TRAFFIC, UE ♦ 
♦AND AUE BITS ♦ 

* * 
*********** 



*. 



* YES 



.* CCW ♦ 
YES .♦ PRESENT 
...... (REG 8 

*. NOT 0) 



**H1******* 



*********** 



F2 ♦. 
.♦ ♦. 

CHAN ♦. N 
CHAINING .♦. 
. OPTION .♦ 
♦. *B5 .♦ 
♦ . .* 
♦ YES 



CMDCHN .♦. 

G2 ♦. 

.* *. 

.* CHAN * 

*. CHAINING 

*.BIT ON IN.* 

CCB .♦ 



N0CCB1 

***** F3********** 

♦ RESET ENTRY ♦ 

♦ FLAG, SET NO ♦ 
♦CCB AVAILABLE +♦ 

♦ IGNORE FLAGS * 

♦ IN IOERR +F5 ♦ 
***************** 



.♦ PUB ♦. 
.♦DEVICE END ♦. NO 
.POSTING FLAG .♦... 



.♦. 

C4 ♦. 

.♦ *. 

.* IS IT ♦. YES, 

. A MESSAGE .♦..X 

♦WRITER CCB.* 



NO .♦ BURST ♦. 
X..^.ON MULTIPLEX .♦ 
♦. OPTION .♦ 
♦ . .♦ 



NOT OPERATIONAL. 



♦B5 
SUPERVISOR 
GENERATION 
OPTION. 



***** 
*DAA+ 
* J2* 



* POST * 
* UNRECOVERABLE ♦ 

♦ ERROR FLAG ♦ 
♦ IN CCB ♦ 

*********** 



***** 
*CL * 
♦ Bl* 



NO .♦ BURST ON 
(..♦. MULTIPLEX 
*. DEVICE .: 
♦.(PUB1.+ 



**P4******* 

♦ TURN OFF ♦ 

♦BURST ON MPX ♦ 

♦FLAG AT BRSFLG 

♦IN START I/O * 

♦ROUTINE ♦GS^ 

*********** 



♦ • 



**J1******* 



* 


RESET 


* 


EOF BIT 


* 




* 


: 


*********** 





...X 




UNTCK1 




< 


**Ki******* 


* 




* 


RESET 


* 


ERROR 


* 


FU 


\GS 



♦ YES 



*****H2 ********** 

* * 

* GET * 

* COMMAND * 

* ADDRESS * 

* * 
***************** 



*****j2********** 

* * 

* STORE COMMAND ♦ 
♦ADDRESS IN CAW ♦. 

* AND IN CCB ♦ 

* * 
***************** 



*****H3********** 

♦ RESET NO CCB ♦ 

♦ AVAILABLE ♦ 

♦ FLAG IN IOERR ♦ 

♦ *D5 * 

♦ * 
***************** 



***** 
*DB * 
* Al* 



♦F5 
IOERR IS THE 
MASK BYTE IN 
INSTRUCTION 
CCBQED, CHART DB. 



♦G5 
BRSFLG = GIOADR+1 
CHART CF. 



♦H5 
IF NO, IGNORE CHANNEL 
STATUS BITS BECAUSE, 
IN THIS CASE, BITS THAT 
ARE ON WILL STILL BE ON 
IN THE NEXT CSW STORED 
FOR THIS UNIT WHEN IT 
REACHES AN END 
CONDITION AND IS 
PROCESSED AT THAT TIME. 



J3 ♦. 
.♦ ♦. 

.♦ USER ♦. YES 

WANTS ...... 

♦. SENSE .♦ 
♦ . .♦ 

♦ . .♦ X 

♦ NO **** 

* * 

* 2 * 
X ♦ * 

***** **** 

♦ DAA+ 

♦ B2+ 
* * 



*********** 
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Chart DAA* $$A$SUP1 - SGUNCK Macro, Unit Check Entries (Part 2 of 2) 
Refer to Chart 06^ 



♦ A3 
SUPERVISOR 
GENERATION 
OPTION. 



***** 

*DA * 

* J3* 

* * 



B2 



NO .* PTO= 
..♦.YES OR TAPE= 
*. 7 OR 9 . 
♦. *A3 .* 
*. .* 
♦ YES 



D2 



♦ . 



X 

***** 

♦DA ♦ 

♦ A4* 

* * 



TAPE 

.♦* 
♦ . .* 
♦ YES 



*****E2********** 

* * 

* INITIALIZE * 

* FOR TAPE * 

* ERP * 

* * 
***************** 



.*. 
F2 *. 
.* *. 
YES .* DATA * 
...*. REALLOCATED 



*****Q2 ********** 



* 


RELOCATE 


* 


• * 


SENSE 


* 


* 


DATA 


* 


* 




* 


***************** 




...X 






NORELOC 


; 


( 




*****H2 ********** 


♦ERRSIO 


DF* 


*-*- 


*_*_*_*_* 


-*-* 


* 


„GET 


* 


* 




i$c 


* 



***************** 



*****J2********** 



***************** 



***** 
*DA * 
* D5* 
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Chart DB. $$A$SUP1 - SGUNCK Macro, Build Error Queue Entry 
Refer to Chart 06 ♦ 



DA-H1,G3,C4 



* LOAD ADDRESS * 
♦FOR THIS ERROR * 

* QUEUE ENTRY * 

* INTO R6 * 
***************** 



YES .* ERROR *. 


YES .♦ CCB NOT ♦. 


...*. QUEUE TABLE .* 


...♦. AVAILABLE-SET. ♦ 


*. FULL .* 


*.IN IOERR .♦ 


*. .* 


♦ . .♦ 


X ♦. .* 


X ♦. .♦ 


**** * NO 


***** * NO 


* 


*CL * 


9 * 


♦ Bl* 


* 


* * • 


**** 


* . 




TSTATTN X 


X 


.*. 


*****d********** 


C2 ♦. 


* * 


.♦ ♦. 


* GET NEXT ADDR * 


YES .♦ SUPVR ♦. 


*IN ERROR QUEUE * 


...♦. INTERRUPT .♦ 


* TABLE, STORE * 


♦. IN I/O .* 


♦FOR NEXT ENTRY ♦ 


♦. PSW .♦ 


***************** 


X ♦. .♦ 




***** * NO 




*DD * 




♦ FL* 




♦ * X 




* ***** 




FCHOVL *BA * 



* * 






* 1 * 






* * 






**** 






X 






USRSEN .*. 






A3 *. 






.♦ ♦ 






.* USER 


♦ . 




♦ . WANTS SENSE . 


* 


♦. INFO 


* 




♦ . .♦ 






♦ . .♦ 






♦ NO 






**** 






* * 






♦ 3 + .X. 






♦ ♦ . 






**** X 






• ♦. 






B3 ♦. 






.♦ ♦ 






NO .♦ TP 


*, 




...... OPTION 




* 


♦ . *K5 


* 




♦ . .♦ 







*****A4********** 



.X+ 



**** 

* * . 

* 8 *.X. 

* * . 
**** X 

.* 
C3 



.* 2702, *. YES 
*. 2703, OR .♦... 
*. 7770 .* 



***************** 

'. **** 

* * 
..X* 7 * 

* * 
**** 

.*. 

B4 *. 

.* *. 

.* PUB *. Y 

X*. CHN + PT .*. 

*. X'FF" .* 

*. (CCB).* 



IS 
DEVICE 
TAPE 



*****Dl********** 

* CLEAR PRESENT * 

* ERROR QUEUE * 

* ENTRY AND * 

* INSERT CSW * 

* AND PUB ADDR * 
***************** 



**E2******* 
♦SET NQ CCB ♦ 

♦ AVAILABLE : 

FLAG IN 

♦ IOERR 

* *F2 * 
*********** 



CCBQED 

**P1******* 

SET FLAGS IN+ 

♦ERQUE *G2,* 

♦IN PUB FOR DEV 

* BUSY AND * 

* DEV ERROR * 

*********** 



*****G ]_********** 

♦ MOVE ♦ 

♦ ADDRESS FOR ♦ 

♦ SENSE DATA IN ♦ 

♦ ERROR QUEUE * 

♦ TO CCW ♦ 
***************** 



♦ F2 
IOERR IS THE MASK 
BYTE IN INSTRUCTION 
CCBQED. 



♦G2 
FLAGS WERE PRESET 
IN UNIT CHECK 
ENTRY ROUTINE, 
CHART DA. 



GETSEN 

***D3************ 

ERRSIO DF 

**-*-*_*_*-*_*_** 

GET 

♦ SENSE ♦ 

DATA 

***************** 



E3 ♦. 
.* 
.* ERROR 
*. ON 
♦. SENSE 
♦ . . : 
♦ . .♦ 
♦ YE 
**** 

* * . 

* 5 ♦.X. 

* * 
**** 

ERRS EN X 

**P3******* 

* RESET DEV ♦ 
STATUS BITS IN+ 

♦CSW EXCEPT DEV ♦ 
♦END, CHAN END* 

♦ + UNIT CK * 
*********** 



* NO 




***** 

*DC * 

* Dl* 

* * 

* 


X 




EXTRAN 


.*. 






C4 *. 






* *. 






EU 


*. 


NO 


INTERFACE 




♦X 


IN BG . 


* 





.♦ THIS ♦. 

TAPE A 

♦.BG DEVICE. ♦ 



**** 

* * 

* 6 * 

* * 
**** 

EUTPUNCK 



.* 



EU ♦. 

TAPE 
♦.ERROR BIT.+ 



**** 

* * 

* 2 * 

* * 
**** 



THIS ♦. 

TAPE A 
. BG DEVICE. ♦ 



X 






.♦. 






G3 ♦. 






.♦ DEV ♦ 






STATUS 


♦ . 


YES 


IS DEV END 




*.... 


.AND UNIT 


* 




♦.CHECK.* 






*. .* 




X 


* NO 




***** 






*DF * 
* Al* 



***** 
*DC * 
* Dl* 



UNI 
CHE 



GTSEN1 
NO .♦* 



***** 
*DC * 
* Bl* 





.* CCW *. 


YES 


.♦ STATUS IS ♦. 


...* 


.PROG OR PROT , 




*. CHECK .* 




*. .♦ 


X 


♦. . * 


***** 


* NO 


*DC * 




* Dl* 




* * 








EXTRAN 


X 




.♦. 




Kl ♦. 




.♦ ♦. 




.♦ IS ♦ 


* 


THERE 




*. A CCB .* 




♦ . .* 




*. .* 




* YES 



T/P 

OPTION 

♦K5 



♦. .♦ 


**** 


♦ . .♦ X 


* * 


* **** 


* 7 * 


* * * 


* * 


* # 8 ♦ 


**** 


*... * * 




* . **** 




* X 




.♦. 


X 


J2 ♦. 


*** J 3************ 


♦ *. 


ERRSIO DF 


DEVICE ♦. YES 


**_*_*_*_*_*_*_** 


A PRINTER ...... 


GET 


.♦ 


* SENSE ♦ 


♦ . .♦ 


DATA 


♦ . .♦ X 


***************** 


* NO ***** 




*DD * 




♦ F4+ 




* * 




• ♦ 




X ERRPRT 


X 


.♦. 


.♦. 


K2 ♦. 


K3 *. 


* *. 


.♦ *. 


DEVICE ♦. NO 


.* ERROR ♦. NO 


2311 ...... 


♦. ON ...... 


OR 2314 .♦ 


♦. SENSE .♦ 


♦ . .♦ 


♦ . .* 


♦ . .♦ X 


*. .* X 


♦ YES ♦♦♦♦♦ 


* YES *♦♦*♦ 


♦ DC ♦ 


*DD * 


. RESERR ♦ Dl+EXTRAN . ♦ B4+ 


X ♦ ♦ 


X * * 


***** * 


**** * 


*GA ♦ 


* * 


♦ Al* 


* 5 * 


* * 


* * 


* 


**** 



*****G4********** 
*LOAD ERQUE PTR,* 
*GET BYTE COUNT ♦ 

* FROM CCW, ♦ 

* SUBTRACT * 
♦RESIDUAL COUNT * 
***************** 



H4 ♦. 

♦ COUNT * 

LT 13 

(NOISE 

RECORD) 



THIS 

TAPE A 

.F2 DEVICE. 



**** 
F1EUTEST 



***** 
*DC * 
* Dl* 



**J4******* 

* POST * 
UNRECOV. 
I/O ERROR 

IN CCB 

* BYTE 2 * 
*********** 



***** 
*DD * 
* B4* 



EU 

INTERFACE 

. IN Fl . : 



THIS 

TAPE A 

.Fl DEVICE. 



SUPERVISOR 
GENERATION 
OPTION. 
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Chart DC. $$A$SUP1 - SGUNCK Macro, Error Recovery Exits (Part 1 of 2) 
Refer to Chart 06- 







*A2 


♦DB-B4, 


F4 


SUPERVISOR 


DF-K1 




GENERATION 


GA-F3 




OPTION. 


GB-E5 







***** 










**** 




**** 






* * 






* * 




* * 




* ** 






* 2 * 




* 3 * 




* * . 






* * 




* * 




* 5 






**** 




**** 




RCVERR X 






X 

.*. 




X 




*****B l********** 






B3 *. 




**B4******* 




* MOVE ERROR * 






.* *. 




* TURN ON ♦ 




* ON RECOVERY * 






.* IS IT - * 


NO 


♦CHAIN BIT IN * 




*MSG CODE, X'20'* 






*. FETCH 


♦ ... 


♦ SEEK CCW * 




* TO ERROR * 






*. .* 




♦BYTE 4 BIT 1 ♦ 




* QUEUE ENTRY * 






*. .* 




* * 




***************** 






*. .* 
* YES 

X 




*********** 

**** * 

* * . 

* 1 + .X. 

* * . 
. NOSKPRG* 




X 






.*. 




STDEXT X 




***ci************ 






C3 *. 




, *****C4********** 




SENSE SIO 






.* *. 




* LOAD ADDRESS * 




* TO CLEAR * 






YES .* ERROR *. 




♦ OF EXT03 ♦ 




UNIT 






....*. ON 


* 


♦ INTO REG 9 ♦ 




* CHECK * 








♦.RECOVERY .* 
, *. .* 




♦ FOR GENERAL ♦ 

♦ EXIT ♦ 




***************** 








*. .* 
♦ NO 




***************** 




**** '. 
















* * * . 


D2 DB-E4,F4,H4 






*x.. • . . 








* D2 *.X. * 








* * . 


J1.K2 














**** x 


DD-H4 






X 




X 




EXTRAN .*. 


GA-C3,D3, 






NTFTCH .*. 




.♦. 




Dl *. 


F5,G5 






D3 *. 




D4 ♦. 




.* *. 








.* ♦. 




.♦ *. 




.* MULTI- *. NO 








YES .♦ REALOCATN ♦. 




.* PTO *. YES 




*. PROGRAMMING .*..... 








X...*. IN 

♦.PROGRESS .* 


* 


♦. OPTION .♦ 






*. OPTION .* 






*. *A2 . * 






*. *A2 .* 








*. .* 




♦ . .♦ 






*. .* 








X *. .* 




♦ . .♦ 






* YES 








***** * no 
*DD * 
* Dl* 
* * 
* 
HARDWT X 




* NO 






X 


X 




.*. 




X 


X 


*****£].********** 


*****E2********** 


E3 *. 




**E4******* 


**E5******* 


♦RSTREG DE* 


♦CQDSP 


CR* 


.* *. 




♦SET QUIESCE^ 


♦SET QUIESCE^ 


*_*_*_*_*_*_ *_ *_ * 


*_*_*_*_*_*_*. 


-*-* 


.* SEEK *, 


NO 


♦ I/O PIB ♦ 


♦ I/O PIB 


* RESTORE * 


* RESTORE 


* 


*. SEPARATION . 


♦ ... 


♦FLAG TO ACTIVE ♦ 


♦ FLAG TO 


*CHAN SCHEDULER * 


* REGISTERS 


* 


*. *A2 .* 




♦ X«85« ♦ 


♦ACTIVE X'87« 


* REGISTERS * 


* 


* 


*. .* 




* * 


* * 


***************** 


***************** 


*. .* 




*********** 


*********** 




• 




* YES 




. 


. 




j 




• 




•X. ............ 








X 




!x. .... 








X 




***** 
*CN * 




X 






.*. 






.*, 




* E3* 




Fl ♦. 






F3 *. 




* * 




.* *. 






.* *. 




* 




NO .* DATA *. 






.* DASD *. 


NO '. 


SELECT 




...*. RECORDS .* 






*. DEVICE TYPE . 


♦ ..X, 






*. .* 










♦. 2311 .♦ 











Gl *. 
* 

ERP 



***** 
*DD * 
* B4+ 



HI *. 

.♦NO CCB ♦. 

.♦AVLBL FLAG * 

•SET IN ERROR 

♦. QUEUE .♦ 

♦.ENTRY.* 

♦ . .♦ 

* NO 



MPS 

OPTION 

*A2 



* 1 * 

* * 



♦ SKSEP - ♦. NO 
CCB BYTE 12 .♦..> 
♦. BIT 7 .♦ 



YES .♦ 


ERQSNS = ♦ 


...♦.X 


01' - SEEK 


• ♦ 


CHECK .♦ 




♦ . .* 


X 


♦ . .♦ 


***** 


♦ NO 


*DD * 




* B4* 


. 



PROG ♦. Nl 

OR PROT .♦. 
CHECK .♦ 



***** 
*DD * 
* Al* 



**K3******* 

* TURN OFF * 

♦ SEEK SEP ♦ 
♦ BIT 7 IN ♦ 

♦ CCB BYTE 12 ♦ 

* * 
*********** 



**** 

* * 

* 3 * 

* * 
**** 
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Chart DF. $$A$SUP1 - SGUNCK Macro, Error Start I/O and Channel Failure Subroutines 
Refer to Charts 06 and 07. 



**** 

* * 

* i * 

* * 
**** 



****Al********* 



*************** 



****A2 ********* 

* * 

* ERRSI02 * 

* * 
*************** 



***v 


*DB * 


* G3 *.X. 


* * 


**** J 


ERRSIO .* 



.* STORAGE *. YES 
*. PROTECT .*.... 
*. OPTION .* 
*. *A5 .* 



*****Cl********** 

* * 

* MOVE * 

* CCW * 

* ADDRESS * 

* TO CAW * 
***************** 

**** 



**** 
OURSIO X 

***D l************ 



***************** 



YES 


* 


CHANNEL 


*. 


...* 




FAILURE 




* 




* 




.* 








*• .* 






X 




*. .* 






**** 




* NO 






* 










6 * 




. 






* 










**** 




X 

.*. 

B3 *. 

* * 






YES 


.* 


CHANNEL 


* 




....* 




ERROR 




* 




* 


'*. .* 
*. .* 
* NO 







*A5 
SUPERVISOR 
GENERATION 
OPTION 



*****C2 ********** 

* * 

* LOAD REGISTER * 

* 8 INTO REG 2, * 

* CCW KEY * 

* * 
***************** 



*****D2********** 

* * 

* LOAD PIK * 

* FROM COMREG * 

* INTO REG 2 * 

* * 
***************** 



*. .* 
X *. .* 
**** * NO 

* * 

* 5 *. 

* £ 
**** 



.*. 



* GET * 

* REQUESTER * 

* ID * 

* * 
***************** 



**** 

X 
*****C4********** 

* INSERT * 

* CHANNEL AND * 

* UNIT IN I/O * 

* OLD PSW * 

***************** 



X.* CK * 

* C2* 

***** 



D3 



*. 



AFTTIO , ,. 

*****pi\********** 



***************** 



.* * 
YES .* CHANNEL 
...*. BUSY 



*****E2 ********** 




E3 *. 


* INSERT * 


.* * 


* STORAGE * 


NO .* T/P 


♦PROTECTION KEY * 


....*. OPTION 


* INTO * 




*. *A5 


* REGISTER 2 * 




*. .* 


***************** 




*. .* 
* YES 


* **** * 






* * * 






* * 4 *.X. 






* * 






**** 




X 


ERRSI02 X 




.*. 


*****P2 ********** 




F3 *. 


* * 




.* * 


* MOVE CCW * 




NO .* T/P 


* ADDRESS FROM * 


X...*. DEVICE 


* REG 8 TO CAW * 


*. 


* * 


. *. .* 


***************** 


X *. .* 




**** * YES 




* * 




* 3 * .X... 




* * 




**** . 


X 
*****G2********** 


X 


* MOVE STORAGE * 


****G3******' 


♦PROTECTION KEY * 


* RETURN TO 


* FROM REG 2 * 


* LINK REGIST 


* TO CAW * 




* PLUS 4 



MCRR 
OPTION 
*A5 
*. 



CHFAIL1 .*. 




X 


E4 *. 




*****E5********** 


.* *. 




* MOVE SYSTEM * 

* ERRORS CODE * 


.* SECOND *. 


YES 


*. CHANNEL 


*. ... 


* OlS TO * 


*. FAILURE .* 




* CORE LOC * 


*. .* 




* * 


*. .* 


X 


***************** 


* NO 


***** 

*DG * 

* D5* 

* * 

* 

HARDCHAN 




X 




X 


**P4******* 




*****P5********** 


* ENABLE * 




* MOVE SEREP * 

* ERROR CODE * 


* BRANCH AT * 


* CHFAIL L FOR 


* 


* X»OF' TO * 


* SECOND CHAN * 


* MCNPSW * 


* FAILURE * 




* * 


*********** 




***************** 



***************** 



*****H2 ********** 

* MOVE CHANNEL * 

* AND UNIT FROM * 

* I/O OLD PSW * 

* TO REG 2 * 

* * 
***************** 



*************** 



MVEPSW 

**G4******* 
MOVE ADDRESS* 

* OF MACHINE * 
* CHECK ROUTINE 

* MACHEK 1 * 
*INTO MCNPSW* 



*****H4********** 

* INITIALIZE * 

* REG 12 * 

* AS BASE REG * 

* FOR MCRR * 

* ROUTINE * 
***************** 



****G5********* 

* ENTER * 

* WAIT * 

* STATE * 
*************** 



.♦SYSTEM/370 *. YES 
*. CPU .*.... 

*. *A5 .* 



.* *. 

NO .* RMS 

...*. SWITCH ON 



NO 


* 




CPU 


*. 


NO . 


*SYSTEM/370 


* 


...* 






MODEL 


.* 


...*. 






CPU 




; 


'*. 


* 


50 

.* 


* 


; 


* 


* 


*A5 

.* 


* 


X 






*. .* 




X 






*. .* 




***** 






* YES 




**** 






* YES 




*DG * 










* * 










* E5* 










* 2 * 










* * 






X 




* * 










* 






***** 




**** 










HARDCHAN 




*KA * 




















* Bl* 










X 





***** 
♦DC * 
* B1*RCVERR 

* * 



**** 

* * 

* 1 * 

* * 
**** 



****K3********* 

* RETURN VIA * 
.X* LINK REGISTER * 

* * 
*************** 



*****K5********** 

* SET ERROR SIO * 

* BIT FOR RMS, * 
*SET RETURN AND * 

* RMS BASE REGS * 

* * 
***************** 



***** 
*HD * 
* B2* 
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Chart DG. $$A$SUP1 - SGUNCK Macro, Machine Check Interrupt 
Refer to Chart 07. 



***** 

*AA * 
* D4* 



**** 

* * 

* 2 * 

* * 
**** 



*****ci********** 

* INLZ * 

* LOW CORE * 

* WITH * 

* SEREP CODE * 

* * 
***************** 



MACHEK1 X 

*****di********** 

* INLZ * 

* LOW CORE * 

* WITH * 

* SEREP CODE * 

* * 
***************** 



****Ei********* 

* ENTER * 

* WA I T * 

* STATE * 
*************** 



***** 
*AA * 
* D4* 



.* 

.* CPU 

*. MOD 

*. 50 



MACHEK 

*****Hi********** 

* SAVE * 

* REGS 5-11 * 

* AT * 

* MCRRSAVE * 

* * 
***************** 



**J1******* 

* INLZ * 
REG 6 TO 

COMREG 
+ 136 

* *B5 * 
*********** 



**** 

* * 

* 3 * 

* * 
**** 



HCRENTER X 

**Q2******* 

* MODIFY * 

* FOR 
* FIRST 

* TIME 

* * 
*********** 



*****C2********** 

* POINT REG 7 * 

* TO SAVE * 

* AREA * 

* MCRRFLLX * 

* * 
***************** 



*****02 ********** 

* POINT REG 6 * 

* TO * 

* DIAGNOSTIC * 

* AREA * 

* MCRDIAG * 
***************** 



**E2******* 

* SET UP * 
MCRR LOOP 

COUNT 
REG 8 

* * 
*********** 



**P2******* 

* INLZ OP * 
*REG (REG 10) * 

* AND 11) * 
* BIT STRING * 

* * 
*********** 



MCRPARIT 

*****G2 ********** 

* SCAN * 

* MCRDIAL * 

* AREA FOR * 

* PARITY BITS * 

* ON * 
***************** 



**H2******* 

* POINT * 
MCRDIBG 

TO NEXT 
WORD SAVE 

* AREA * 
*********** 



**** 

* * 

* 4 * 

* * 
**** 

*****33********** 

* * 

* UPDATE * 

* TO NEXT * 

* RECORD * 

* * 
***************** 



.* END *. 

*. OF 

*. LINE .* 
*• .* 



*****D3********** 

* REINITIALIZE * 

* MCRR LOOP * 

* COUNT * 

* REG 8 * 

* * 
***************** 



*****E3********** 

* * 

* RESET * 

* OR-REG * 

* (REG 10) * 

* * 
***************** 



LOOP 

COUNT 





MACHEK X 

**B4******* 

* INLZ * 

* REG 6 TO 
* COMREG 

* +136 

* *B5 * 
*********** 



NO .* RECORDER 
.X*. FILE 
*. ON 



*B5 
GET ADDRESS OF 
COMREG EXTENTIONS. 



**** 

K * 
K 2 * 
Y * 

**** 



*****E4********** 

* SAVE * 

* REGS 9-13 * 

* AT *. 

* ERA * 

* * 
***************** 



MCRSENDD 

**G3******* 

* MODIFY * 

* FOR F.P. 
* REGS AND 

* FOR FIRST 

* TIME * 
*********** 



*****H3********** 

* SAVE * 

* REGS 5-11 * 



***************** 



* l * 

* * 
**** 



*****P4********** 

* SAVE * 

* REGS 9-12 * 

* AT * 

* ERA * 

* * 
***************** 



*****G4********** 

* INLZ TO * 

* SAVE MACH * 

* CHECK OLD * 

* PSW ADDRESS * 

* * 
***************** 



*****H4********** 

* INLZ * 

* MCRR * 

* BASE REG * 

* (REG 10) * 

* * 
***************** 



*****J4********** 

* INLZ * 

* HARD WAIT * 

* FOR 2ND * 

* MACH CHECK * 

* * 
***************** 



HARDCHAN X 

*****E5********** 

* INITIATE * 

* LOW CORE * 

* WITH * 

* SEREP CODE * 

* * 
***************** 



*****P5 ********** 

* MOVE CHF * 

* CODE INTO * 

* NEW MACH * 

* CHECK PSW * 

* * 
***************** 



****G5********* 

* ENTER * 

* WAIT * 

* STATE * 
*************** 



.* RECORDER 
*. FILE 
*. ON 



**** 

* * 

* 2 * 

* * 
**** 



*K3 
ENABLE MACHINE CHECK 
INTERRUPTS EXIT TO 
MCRRRTN KA-B1 



****K4********* 

* LOAD * 

* MCRRPSW * 

* *K3 * 
*************** 



**** 

* * 

* 3 * 

* * 
**** 
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Chart EB. $$A$SUP1 - SGDFCH Macro, Fetch (Part 2 of 9) 
Refer to Chart 03, 



***** 

*EA * 
* J5* 



CE *. 

OPTION 
♦A4 .♦ 



*****d********** 

* * 

* LOAD REG 4 * 

* TO LINKAGE * 

* REGISTER 13 * 

* * 
***************** 



*****C2 ********** 

* STORE REG 4 * 

* IN FCHSAV TO * 

* SAVE RETURN * 

* ADDRESS * 

* * 
***************** 



**** 
* * 

t i : 
**** 

••••*.... .x. 

X 
IDRAFCH .*. 

A3 *. 
.* FIND *. 
.*SYSRES DISK*. YES 


*A4 
SUPERVISOR 
GENERATION 


*. PHASE .* 
*.NAHE .* 
*• .* 
* NO 


X 

***** 

*ED * 

* D4* 

* * 



*****B3********** 

* * 

* INCREMENT * 

* POINTER * 

* TO * 

* NEXT ENTRY * 
***************** 



**** 

* * 

* 3 * 

* * 
**** 



**** 

* * 

* 4 * 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 

X 
*****A5********** 

* * 

* GET CLB * 

* PUB POINTER * 

* * 

* * 
***************** 



*****B5********** 
♦GET ADDRESS OF * 

* CLB PUB * 
♦AND STORE IT IN* 

* PUBCLB * 

* * 
***************** 



*****C5********** 



***************** 



.* IDRA 

*. OPTION 

♦ . *A4 



*****£!********** 

*PUT ADDRESS OF * 

* IDRA IN * 

* REG 9 AS A * 

* POINTER * 

* * 
***************** 



*****F1 ********** 
♦LTA KA* 

*_*_ *-*- *- *_*-*_* 

* DETERMINE IF * 

* SYSRES ISION ♦ 
*SEL. CHAN *F2 * 
***************** 



MPS *. NO 

OPTION .*... 

♦A4 .* 



PCIL 

OPTION 

♦ A4 



**** 

* * 

* 5 * 



***** 

♦ EC * 

♦ Al* 



.♦ 

"yes 



*****£2********** 

* * 
♦PUT ADDRESS OF ♦ 

* PTA IN REG 9 ♦ 

* AS A POINTER ♦ 

* * 
***************** 



*****E5********** 

♦ * 

♦ POINT TO ♦ 

♦ CORRECT ♦ 

♦ COMM REGION ♦ 

♦ * 
***************** 



♦F2 
LTA = ADDRESS OF 
LOGICAL TRANSIENT 
AREA (B-TRANSIENT) 
PTA = ADDRESS OF 
PHYSICAL TRANSIENT 
AREA (A-TRANSIENT) 



.* PHASE 
.X+. NAME BLANK 
♦. OR ZERO . 



***** 

♦ EC ♦ 

♦ Al* 



* 4 ♦ 

* * 
**** 



***** 

♦ BA ♦ 

♦ A3+ 



.♦ PTO *. YES 

.OR SYSTEM/3 70. ♦.... 
♦ . CPU .♦ 
♦. *A4 .♦ 



*****H2********** 

* * 

♦ SAVE ♦ 
-X* OVERRIDING ♦ 

♦ LOAD ADDRESS ♦ 

* * 
***************** 



IDRA 

OPTION 

♦ A4 



*****G3********** 

♦ * 

♦ PICK UP ♦ 

♦ CALLER ID ♦ 

♦ FROM FIK1 ♦ 

♦ * 
***************** 



*****H3********** 

* * 

♦ FIND SYSCLB ♦ 

♦ LUB FOR ♦ 
♦THIS PARTITION ♦ 

* * 
***************** 



***** j 3********** 

♦ * 

♦ STORE ♦ 

♦ SYSCLB ♦ 

♦ PUB ♦ 

♦ POINTER ♦ 
***************** 



.♦ 


IS 


♦. 


PRIVATE 


♦. 


CIL 




ASSIGNED 




♦. .♦ 




* NO 


***:< 




*ED 


♦ 


* E4 


♦ .X. 


* 


♦ . 


**** 


X 


IL1 


. ♦. 




G4 ♦. 




* 


.♦ 


MPS 


*. 


♦ A4 



***** 
*ED ♦ 
* D3* 



*****J4********** 



***************** 



***** 

♦ BA ♦ 

♦ A3* 
* * 



*****«!********** 

♦ MOVE PHASE ♦ 

♦ NAME TO IDRA ♦ 

♦ SET UP TO ♦ 

♦ SEARCH 18 ♦ 

♦ ENTRIES ♦ 
***************** 



*K2 ********** 



***************** 



***** 
♦EC ♦ 
♦ Al* 
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Chart EC. $$A$SUP1 - SGDFCH Macro, Fetch (Part 3 of 9) 
Refer to Chart 03. 



PICKDIR X 

*****& 1********** 

* CLEAR REG 4 * 

* TO COMPUTE * 

* DIRECTORY * 

* DISK ADDRESS * 

* * 
***************** 

C 



*A5 
SUPERVISOR 
GENERATION 
OPTION 



.* 
.* $$B 

(OPEN) 
*. PHASE 



OPCLOSE 

*****B2********** 

* CALC OPEN DIR * 
. YES *DISK ADDR, HRR,* 
.* X* TO BE 601 IN *. 

* REG 4 * 

* *C3 * 
***************** 



ABTRANS 

*****C2********** 

* CALC TRAN DIR * 

* DISK ADDRESS * 
...X* HRR, TO BE *. 

* 501 IN REG 4 * 

* *C3 * 
***************** 



BJF 

AND PCIL 

*A5 



*. $ PHASE 



PREFERED 

*****02********** 

* CNC LIB RTN * 

* DIR DISK ADD, * 
...X* HRR, TO BE *. 

* 702 IN REG 4 * 

* *C3 * 
***************** 



*****P2 ********** 

*. * CALC FGP DIR * 

*. YES *DISK ADDR, HRR,* 

.* X* TO BE 801 IN *. 

.* * REG 4 * 

* * *C3 * 

***************** 



PHASE 

*****G2 ********** 

*CALC PROB PROG * 

S *PHASE DIR DISK * 

X* ADDR, HRR, TO *. 

*BE 901 IN REG4* 
* *C3 * 
X ***************** 
**** 



1 * 



BJF 

AND PCIL 

*A5 



.X* 



LOAD ADDRESS * 
OF CORE *. 
*IMAGE DIRECTORY* 
*IN REG 4 *J3* 
***************** 



*****B5********** 

* * 

* STORE CHHR * 
X* SEEK ADDR * 

* OF PHASE * 

* * 
***************** 



*C3 
LOAD ADDRESS TABLE 
LOADING REGISTER 4 + 
CONSTANT INTO REGISTER 
4 INCREMENTS REGISTER 
4 BY THE CONSTANT. 



*****C4********** 

* * 

* SET UP CCW * 

* TO READ * 

* DIRECTORY * 

* * 
***************** 



D4 *. 






*. 






PCIL 


*. 


NO 


*A5 


*' 


*. ... 


*. .* 




. 


*. .* 




X 


* YES 




***** 
*ED * 


* 




* Bl* 
* * 



* READING *. 


.* READING *. N 


FROM .* 


*. FROM .*. 


*. SYSCLB .* 


*. SYSCLB .* 


*. .* 


*. .* 


*. .* 


*. .* 


* YES 


* YES 



*****G4********** 

* * 

* ADD SYSCLB * 

* DIB TO SEEK * 

* ADDRESS * 

* * 
***************** 



*****G5********** 

* * 

* PUT BG PCIL * 

* CYL ADDR IN * 

* SEEK ADDR * 

* * 
***************** 



* STORE SEEK * 

* ADDRESS * 

* IN CCW * 

* * 
***************** 



*J3 

DEVICE CHAR 

2311 = 1001 

2314 = 0101 
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Chart FA, $$A$SUP1 - SGSVC Macro, SVCs 1, 12 , and 13 
Refer to Chart 03. 



SVC 1 

***** 
*BH * 
* J2* 



SVC 12 
****♦ 
*BG * 
* J2* 
* * 



SVC 13 
***** 
*BG * 
* J2* 



*****Bi********** 
♦SVEREG BAA* 
*_*_*_*_*_*_*_*_* 

* SA VE * 

* USER * 

* REGISTERS * 
***************** 



*****Ci********** 



***************** 



*****D1********** 
*FCHRT2 EA* 
*_*_*_*_*_*_*_*_* 

* LOAD PHASE * 
♦FROM CI LIB TO * 

* MAIN STORAGE * 
***************** 



El *. 
.* USER *. 
.♦OVERRIDING 
ENTRY 
*. ADDR 



*****F1********** 

* MOVE * 

* OVERRIDING * 

* ENTRY ADDR * 

* TO REG * 

* *F2 * 
***************** 



*. 
IS *. NO 
MPS .*... 

BJF .* 



B4 *. 
* *. 

IS *. Ni 
MPS .*. 
BJF .* 
*. .* 
*. .* 
* YES 



*****C2 ********** 

* * 

* GET POINTER * 

* TO ACTIVE * 

* COMREG * 

* * 
***************** 



C3 *. 

.* * 

.* IS 

SVC 

*. FROM BG 

*. .* 

*. .* 



*****C4********** 

* * 

* GET POINTER * 

* TO ACTIVE * 

* COMREG * 

* * 
***************** 



C5 *. 
.* *. 
YES .* IS *. 
....*. SVC 

*. FROM BG .* 



***** 

* * * 

* B3* 
* * 



IS 
REG 1 
ZERO 



IS *. NO 
REG 1 .*..., 
ZERO .* 



*****£2********** 

* * 
*TURN OFF BIT 5 * 

* OF BYTE 59 * 

* IN COMREG * 

* * 
***************** 



* TURN OFF BITS * 

* OF BYTE * 

* 57 IN COMREG * 

* * 
***************** 



*****£ 4********** 

* * 

* TURN ON * 

* BIT 5 * 

* OF BYTE 59 * 

* IN COMREG * 
***************** 



* TURN ON * 

* BITS OF BYTE * 

* 57 IN COMREG * 

* * 
***************** 



***** 
*BD * 
* B2* 



* STORE * 

* ENTRY ADDR * 

* IN SVC OLD * 

* PSW * 
***************** 



HI *. 
.* *. 
* STORAGE 

PROTECTION 

*. FEATURE . ; 

*. *H2 .* 

*. . * 

* YES 



***** j ]_********** 

* RESTORE USER * 

* PROTECTION * 

* KEY IN SVC * 

* OLD PSW * 
***************** 



*H2 
SUPERVISOR 
GENERATION 
OPTIONS 



X 

***** 
*BC * 
* CI* 



Charts 203 



Page of GY24-5151-2,, revised October 28, 1971, by TNL GN33-8692 



Chart FB. $$A$SUP1 - SGSVC Macro, SVCs 5, 26, and 29 
Refer to Chart 03. 



SVC 5 
***** 
*BH * 
* J2* 



SVC 29 

***** 
*BH * 
* J2* 



*****B i********** 

* MOVE •!• INTO * 

* SVC 3 PHASE * 

* NAME TO FETCH *X. 

* $$ANERR1 * 

* *E1 * 
***************** 



*****d********** 
♦SVEREG BAA* 

*_*_*_*_*_*_*_*_* 

* SAVE * 

* USER * 

* REGISTERS * 
***************** 



NO .* IDRA *. 

...*. *H5 .= 

*. .* 



.* MICR *. 

. OR WAITM 
*. *B4 .* 



* SMM TO * 

* DISABLE ALL * 

* INTERRUPTS * 

* * 
***************** 



*B4 
SUPERVISOR 
GENERATION 
OPTION. 



***** 
*FF * 
* B3* 



WHEN A MVCOM MACRO IS ISSUED, 
REGISTER 1 IS LOADED WITH THE 
ADDRESS OF THE MOVE INSTRUCTION 
IN THE MVCOM MACRO EXPANSION. 



FREE TO BE LOADED 

THE ADDRESS OF THE NAME OF THE 
MVCOM A- TRANSIENT PROGRAM. SVC 
3 FETCHES THE TRANSIENT USING 
REGISTER 1. THE MVCOM A-TRANSIENT 
PROGRAM WILL PICK UP THE ADDRESS 
OF THE MOVE INSTRUCTION IN THE MACRO 
EXPANSION FROM THE PIB SAVE AREA 
AND LOAD IT BACK INTO REGISTER 1. 



***** 

*FC * 

* F4* 

* * 



* 2"*.X. 



**** . 
PDCCBT X 

*****03********** 

* LOAD ADDRESS * 

* OF CCB * 

* FROM REG 1 * 

* TO REG 6 * 

* * 
***************** 



YES .** USER "*. 
...*. OPTION .* 



* 1 * 

* * 
**** 



YES .* TRAFFIC *. 
....*. BIT ON 

*. IN CCB .* 



PDCCBPT 

*****G2********** 

* STORE POSTED * 

* ECB POINTER * 

* IN USER'S REG * 

* 1 SAVE AREA * 

* * 
***************** 



* ,1 * 

* * 
**** 



MPS *. 

OPTION 
*B4 .* 
*. .* 



*****Q4********** 

* * 

* TURN OFF * 

* SVC 7-BOUND * 

* FLAG IN PIB * 

* * 
***************** 



X 

.*. 
E4 *. 



.* 

Vyes 



***************** 



*****D5********** 

* * 

* SET WAIT * 

* BIT IN * 

* SVC OLD PSW * 

* * 
***************** 

**** * 

* * . 

* 3 *.X. 

* * 
**** X 

.*. 

E5 *. 



*****G3********** 



***************** 



G4 *. 
.* *. 
YES .* MICR *. 
...*. AND NOT .* 

*. WAITM .* 
*. *H5 .* 
*. .* 
* NO 



.* MICR 

*. OPTION 

*. *H5 



*****P5********** 

* SMM TO * 

* DISABLE I/O * 

* INTERRUPTS * 

* ONLY * 

* * 
***************** 



***** 
*BD * 
* B2* 



*H5 
SUPERVISOR 
GENERATION 
MACRO 



X 

.*. 

J4 *. 

.* * 

MICR 

WAIT 

.MULTIPLE 



***** 
*BC * 
* Bl* 



***** 
*FC * 
* F4* 
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Chart FC. $$A$SUP1 - SGSVC Macro, SVC 2 (Part 1 of 2) 
Refer to Chart 03. 



SVC 02 

YES .' 

X 
**** 

* * 

* 3 * 

* * 
**** 



,*BE-K4 
. BH-J2 
X GD-D4,I 



* SVC *. 

ISSUED 
*.BY B-TRAN.* 



A2 *. 

.* *. 

.* MPS * 

*. OPTION 

*. *A3 .* 



♦ A3 
SUPERVISOR 

GENERATION 
OPTION 



**** 

* * 

* - 2 * 

* • * 
**** 



OPTION 

*A3 

*. . 



.* AB 

OPTION 
*. *A3 
*. .* 

*. .* 
* YES 



.* VALID 
ADDR IN 
♦.REGISTER 
*. . 1 .* 



.*$$BDUMP 
BEING 
*. FETCHED 



**£!******* 

* * 
SET CANCEL 
IN PROGRESS 
BIT IN PIB 

* * 

*********** 



YES .♦ B-TRAN *. 




NO . 


♦ B-TRAN ,*. 




.*. AREA .* 




...*. 


AREA .♦ 




*. ACTIVE .* 






♦. ACTIVE .♦ 




*. .* 






*. .* 


X 


*. .* 




X 


♦ . .* 


**** * NO 




**** 


* YES 


* 


* 


* 


* 




* 2 


♦ . 


* 


3 * 




* 


* 


* 


* 


X 


**** 




**** 


***** 




X 






♦ BA ♦ 




.*. 






♦ A3* 




C2 *. 






* * 




.* *. 






* 





.* AP *. NO 






ERR21 




*. OPTION .♦... 










*. *A3 .* 












*. .* 










X 


*. .* 










***** 


* YES 










*BA * 












* A3* 












* * 
* 












ERR25 


X 

*****D2********** 














*****D3********** 




* SET UP TASK * 




* 


* 




* AND PARTITION * 




* 


SET UP PIK * 




♦OWNERSHIP FROM ♦ 




* 


TO BE USED * 




♦ PID AND PIK ♦ 




* 


AS LTK * 




* *G5 * 




* 


*G5 * 




***************** 




***************** 



.* svc a ♦. 

.REQUEST FROM*. YES 
TRANS ...... 

*.(LTK=PIK).* 



.* SVC 8 *. 
* REQUEST *. 

FROM TRANS . 
*. (LID=PIK).* 



. * PTO *. 

OPTION 

*. *A3 .♦ 



**E3******* 
* * 

♦ SET OFF * 
CANCEL BIT 

♦ IN PIB * 
♦CANCEL FLAG* 

*********** 



X 

***** 
*FD * 
* Bl* 



**D4******* 

* RESET PIB ♦ 

♦ FLAG BIT 

♦ X«02', SVC 2 

♦ BOUND 

* * 
*********** 



* E5 *.X 



**** 
RESVC X 

*****£ 4********** 

♦ SUBTR 2 BYTES ♦ 

♦ FROM SVC OLD ♦ 

♦ PSW TO ♦ 

♦ REEXECUTE * 

♦ SVC ♦ 
***************** 



♦ E5 
BH-F5 

CA-E1 

CB-F1 

CD-A3,C3,D4 

FB-C2.H4, J4 

FP-D1 

MA-J4 

MG-E5 

LF-E4 



AB .♦ 


# 


♦ROUTINE* 




♦ . .* 


X 


* NO 


***** 




♦ ML ♦ 


. 


♦ A5* 



PTO 

OPTION 

♦A3 



G2 ♦. 
* * 








IS FETCH 

IN 
PROGRESS 


*, 
.♦' 


YES 
*....X 


YES 



.♦ 

.♦ 

YES 



G4 ♦. 

.♦ IS IT ♦. 

.* FETCH - * 

.RIK+1 = X'02' 



X 

***** 
*MK * 
* HI* 



PTO 

OPTION 

♦ A3 



.♦. 

Jl *. 

.♦ ♦. 

.* IDRA *. 

*A3 

*. .* 



***** 
*EA * 
* CI* 



PIBFLG =*. 






X'80' - 


♦. NO 




CHK FETCH 


.♦..X 




AGAIN . 


* 




*. .* 






♦ . .♦ 


X 


* YES 


***** 




*BC ♦ 


. 


* 


31* 



♦G5 
BLOCK D3 INSERTS PIK 
VALUE AT LTABSY+1. 
BLOCK D2 INSERTS PID 
VALUE AT LTABSY+1. 
AND PIK VALUE AT 
LTABSY+2. SEE BLOCKS 
E2 AND G2, CHART FD. 



***** 

♦ FD ♦ 

♦ Bl* 



*. 



*X. 



NO ***** 

*EA * 

FCHRT1 * CI* 



****** 3********** 

* SET PSW AT * 

* IDRASAVE+4 

* FOR SVC 

* RETRY * 

* * 
***************** 



***** 
*BC * 
* Bl* 



*****K5********** 

* SET PSW AT * 

* PTASAVE+4 * 

* FOR SVC * 

* RETRY * 
***************** 
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Chart FD. $$A$SUP1 - SGSVC Macro, SVC 2 (Part 2 of 2), SETLTl and SETLT2 Routines. 
Refer to Chart 03. 



***** 

*FG * 
* Fl* 

* * 



*****B i********** 
♦SVEREG BAA* 

*_ *_ *_*_ *_ *_ *_ *_ * 

* SAVE REGS * 

* 12-0 IN * 
♦PROG SAVE AREA * 
***************** 



*****d********** 

* GET ADDR OF * 

* B-TRANSIENT * 

* AREA FROM * 

* ATTN ROUTINE * 

* PIB IN REG 15 * 
***************** 



*****Q1 ********** 

* STORE REGS * 

* 15-1 IN * 

* LOGICAL * 

* TRANSIENT * 

* SAVE AREA *B5 * 
***************** 



*****£l********** 

* USE ADDRESS * 

* OF B-TRAN * 

* AREA FOR LOAD * 

* ADDR IN REG * 

***************** 



*****pi********** 

* MOVE LOAD * 

* ADDR+8 TO * 

* PSW STORED IN * 

* LOGICAL TRAN * 

* SAVE AREA *C5 * 
***************** 



*****Gl********** 



***************** 



.* VALID 
*. ADDR IN 
*. REG 1 . 
*. .* 



YES .* CANCEL *. 
...*. CODE IN 

*. PIB .* 
*. .* 

***** "*"no 

*BC * 
* Bl* 



SETLT2A X 

*****B3********** 

* LOAD ADDR OF * 

* EXT02 INTO * 

* REGISTER 7 * 

* FOR EXIT * 

* * 
***************** 



*BB-H4 
FG-G3 
***** 



NO .* MPS 

...*. OPTION 
*. *D5 
*. .* 

X *. .* 

***** * YES 

*FE *SVC11A 
* C2* 
* * 



LTABSY 

*****E2********** 

* MOVE PIK/PID * 

* TO LTK (LTA * 

* OWNERSHIP), * 

* LTA NOW * 

* IN USE * 
***************** 



X 

***** 

*BC *EXT02 

* CI* 



SVC11B 
YES 



AP *. 

OPTION 
*D5 .* 



*****G2********** 

* SET LID WITH * 
*PIK (PARTITION * 

* OWNERSHIP OF * 

* LTA), LTA * 

* NOW IN USE * 
***************** 



* *.X 



D3 *. 
* *. 

MODIFIED * 
BY LTACNL 

RTN .* 
*. .* 
*. .* 
* NO 
NOP 



SETLT2 

*****E3********** 

* EXCHANGE * 

* LOGICAL TRAN * 

* AND PIB SAVE * 

* AREA POINTERS * 

* *E5 * 
***************** 



AP 

OPTION 

*D5 



**G3******* 

* * 
NOP 

INSTRUCTION 
AT SVC11B 

* * 
*********** 



*B5 
REGISTER 15 IS USED 
AS A BASE REGISTER 
FOR B-TRANSIENTS. 



*C5 
ADDRESS OF B-TRANSIENT 
AREA + 8 BYTES = ENTRY 
ADDRESS FOR A 
B-TRANSIENT. THE 
TRANSIENT NAME IS 
LOCATED IN THE FIRST 
8 BYTES. 



*D5 
SUPERVISOR 
GENERATION 
OPTION. 



*E5 
ADDRESS POINTERS OF 
THE LOGICAL TRANSIENT 
SAVE AREA AND THE 
PROBLEM PROGRAM USING 
THE TRANSIENT AREA ARE 
REVERSED WHEN A 
LOGICAL TRANSIENT IS 
ACTIVE. 



***** 
*BA * 
* A3* 



**** 
SETLTl X 

**H2 ******* 

* EXCLUSIVE * 

* (OR) SVC 2 ' 
* BOUND TRT 

* BYTE 

* * 
*********** 



****H4********* 

* RETURN * 

* VIA REG 7 * 

* * 
*************** 



.* $$B 


*. NO 


*. PHASE 


.* 




*. 


* 




*. .* 






*. .* 




X 


* YES 




***** 
*BA * 
* A3* 
* * 
* 
ERR21 


X 






*****K1********** 




♦FCHRT1 


bA* 





**** J 3********* 

* RETURN * 

* VIA REG 8 * 

* * 
*************** 



* LOAD B-TRAN * 

* FROM CI LIB * 
*TO B-TRAN AREA * 
***************** 
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Chart PE. $$A$SUP1 - SGSVC Macro, SVCs 7 and 11 
Refer to Chart 03. 



SVC7 
***** 



*A2 
SUPERVISOR 
GENERATION 
OPTION. 



SVC 11 

***** 
*BH * 



Bl *. 

.* SVC *. 

ISSUED BY 

B-TRAN 



*B2 
BB-D5.H5 
FD-D2 
***** 



SVC07 X 

*****A3********** 

* POINT TO * 

* SECOND INSTR * 

* IN WAIT MACRO * 

* EXPANSION * 

* *A4 * 
***************** 



X 

.*. 

B3 *. 

.* *. 

.* MICR *. YES 

*. SUPPORT .*.... 

*. *A2 .* 



*A4 
THE ADDRESS IN THE 
SVC OLD PSW IS 
ADJUSTED BY 
SUBTRACTING 10. 



**B4******* 

* * 

SSM TO 

DISABLE ALL 

INTERRUPTS 



*B5 
ON AFTER PENDING I/O 
FROM SPECIFIED CCB IS 
COMPLETED OR TIMER 
INTERRUPT OCCURS. 



*********** 



.* MPS 
*. *A2 
*. . 


*. .* 
*. .* 


* YES 
**** 


*ME * 

* K4 *.X 

* * 




**** 




11A 

**D1* 
* SET 

* FLAG 
* REGS 

* (X 1 


< 

(c***** 

PIB 

FOR 
SAVED 
30') 



*********** 



*****£!********** 

* MOVE ZEROS * 

* TO LTK TO * 

* INDICATE * 

* B-TRAN AREA * 

* IS NOT IN USE * 
***************** 



**C2******* 

* SET PIB * 
FLAG FOR 

REGS SAVED 
(X'80'J 

* * 
*********** 



*****D2********** 

* INVERT * 

* LOGICAL * 

* TRANSIENT * 

* KEY TO X' 10' * 

* *C5 * 
***************** 



X 

.*. 

C3 *. 



.*. 

D3 *. 

.* X«60' *. 

.* POSTED IN *. 

.PIK FOR FETCH. 

*. OR ERP .* 



.* X'60' *. 
POSTED IN 
PIK-FETCH 

. OR ERP . 



04 *. 

.* CCB *. 

.* OR TECB *. 

. TRAFFIC BIT . 

*. ON .* 

*. *B5 .* 

*. .* 

* NO 



*C5 
ALL LOGICAL TRANSIENTS 
ARE ATTACHED TO 
BACKGROUND PROGRAM. 



*D5 
IF MPS AP ARE SUPPORTED 
AND PTD IS NOT, PUT 
REQUESTOR IN WAIT STAT 
BEFORE GOING TO SUPEXT 
BD-J2. 



***** 

*FD * 

* H2* 

* * 



X 

***** 
*BD * 
* B2* 



AP 

OPTION 

*A2 



*****6i ********** 

* MOVE ZEROES * 

* TO LID TO * 

* INDICATE * 

* B-TRAN AREA * 

* NOT IN USE * 
***************** 



*****H1 ********** 

* * 

* RESET LTA * 

* OWNERSHIP * 

* (LTABSYD1=0) * 

* * 
***************** 



*****jl ********** 



***************** 



*****£ 3********** 

* SET PSW IN * 

* PTA SAVE AREA * 

* TO REISSUE * 

* WAIT MACRO * 

* * 
***************** 



F3 *. 
.* CCB *. 
YES .* OR TECB * 
...*. TRAFFIC BIT 



***** 

* **EA-G2,G4 X 

* ** FC-K4 ***** 
* * *BC * 

* * B4* 

* * 

. * 

X EXT01 



REQUEST *. 

CANCEL OR . 

EOJ .* 



ATTN 

ROUTINE 

CALL 



MICR 

OPTION 

*A2 



***** 
*BC * 
* CI* 



*****H3********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE * 

* EXTERNAL * 

* INTERRUPTS * 
***************** 



.* MPS *. NO 




* 


*. NO 


*A2 .* 


...X*I 




OBR/SDR .*.... 


*. .* 




*. 


*A2 .* 


*. .* 






*. .* 


*. .* 






*. .* X 


* YES 






* YES ***** 
*BC * 
* Bl* 
* * 

'. EXT03 


X 






X 


**P4******* 


*****P5********** 


* RESET BIT * 


* 




* 


*X'01' IN PIB * 


* 


PUT REQUESTER * 


FLAG TO * 






IN WAIT * 


* INDICATE * 


* 




STATE * 


*SVC 7 BOUND* 


* 




* 


*********** 


***************** 


X 






X 


***** 






***** 


*BC * 






*BD * 


* Bl* 






* B2* 


* * 






* * 


* 






* 


EXT03 






EXT01 


(SCAN PIBS) 









*****j2 ********** 

* SUBTRACT * 

* 2 BYTES * 

* FROM ADDRESS * 
*IN SVC OLD PSW * 

* * 
***************** 



*****K2 ********** 

* PICK UP SAVE * 

* AREA ADDR IN * 

* REG 9. STORE * 

* UPDATED ADDR * 

* IN SAVE AREA * 
***************** 



**J3******* 

♦MOVE X'84« * 

*INTO PIB FLG : 

* SO SUPVR 

* WON'T BE 

* SELECTED * 

*********** 



**K3******* 
♦MOVE X'OO' * 

* TO TRTPTA 
TO INDICATE 

* PTA BUSY 

* * 

*********** 



***** 
*BC * 
* CI* 



X 

***** 
*BC * 
* CI* 

* * 
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Chart FF. $$A$SUP1 - SGSVC Macro, SVCs 3 and 4 
Refer to Chart 03. 



***** 

*BH * 
* J2* 



***** 
*BA * 
* A3* 



*A4 
FB-C1 
GD-G1,G2 



Bl *. 
.* *. 

NO .* PTO 

...*. OPTION 
*. *A5 
*. .* 

*. .* 
* YES 



CI 



*. 
* 
IDRA *A5 

.* 
*• .* 

*. .* 
* NO 



*****D1********** 

* MOVE X'03" * 

* INTO TRTPTA * 

* TO INDICATE * 

* PTA IS * 

* FREE * 
***************** 



.*. 
El *. 
.* * 

.* A-TRAN 
*. TO FETCH 
*. 



**F1******* 
♦RESET SUPVR* 

* PIB FLAG * 
*TO X'04«, SUPVR* 

* INACTIVE * 
* * 

*********** 



D2 *. 
.* *. 

IDRA FREE 



**#**E2********** 

* * 

* INDICATE PTA * 

* BUSY, SET PSW * 

* IN PTASAVE TO * 

* REISSUE SVC 3 * 
***************** 



**F2******* 

* * 
* SET SVC 3- * 

* WAITING-TO- * 
♦FETCH SWITCH * 

* * 
4********** 



X 

***** 

*BC * 

* CI* 

* * 



EXT02 



*****H1********** 

* * 

* RESTORE R * 

* IN PHASE * 

* NAME +6 * 

* * 
***************** 



*****jl********** 

* LOAD ADDR * 

* OF EXT02 * 

* INTO REG 9 * 

* FOR GENERAL * 

* EXIT * 
***************** 



*****K1********** 

* * 

* LOAD ADDRESS * 

* OF ERROR * 

* QUEUE ENTRY * 

* INTO REG 6 * 
***************** 



* J2 * 

* * 
**** 



**j2******* 

* SET ERP * 
SWITCH IN 
DEQUEUER 

SUBROUTINE 

* TO NOP * 
*********** 



1 *.X 



**** 
FCH3 X 

*****B3********** 

* LOAD ADDRESS * 

* OF THE * 

* A-TRANSIENT * 

* NAME INTO * 

* REG 1 * 
***************** 



*****C3********** 

* LOAD REG * 

* WITH ADDRESS * 

* OF THE * 

* A-TRANSIENT * 

* AREA * 
***************** 



*****03********** 

* * 

* CLEAR * 

* FIK * 

* (REG 6) * 

* * 
***************** 



***** £3********** 

♦FCHRT1 EA* 
*_*_*_*_*_*_*_*_* 

* LOAD A-TRAN * 

* INTO THE A- * 
♦TRANSIENT AREA * 
***************** 



*****F3********** 

* # 

* INITIALIZE * 

* A-TRAN BASE * 

* REG 11 * 

* * 
***************** 



NO .* PHYS *. 
...*. TRANSIENT .* 
*. OVLP .* 
*.SUPP .* 



**H3******* 

* INDICATE * 
PTA BUSY 

TRTPTA 
yinni 

* * 
*********** 



SVC 4 
***** 
*BH * 



SVC 04 X 

*****B4********** 

* LOAD PIK * 

* FROM COMM * 

* REGN TO * 

* REG 6 * 

* (FIK) * 
***************** 



PTO *. 
OPTION 
*A5 .* 



*****D4********** 
♦SVEREG BAA* 
*_*_*_*_*_*_*_*_* 

♦SAVE REGS 12-0 * 

* IN PROG SAVE * 

* AREA * 
***************** 



*A5 
SUPERVISOR 
GENERATION 
OPTION 



**B5******* 




* SET SUPVR * 




* PIB FLAG * 




* TO X'85', * 




* SUPVR * 




* ACTIVE * 




*********** 




**** 






* * 


*CD-F2,G2 


K3 


* * *.x 


A5,B5 


D5 


* * 






**** 






IOPSET X 




*****C5********** 




* MOVE CHAN * 




* AND UNIT * 




* TO I/O * 




* OLD PSW ♦ 




* * 




***************** 




**** 






** * 






* K4 *.X 






* * 






**** X 




DEQUE .*. 




D5 *. 




.* *. 




NO .* MPS *. 




...*. *A5 .* 





NO .* SVC 

...*. ISSUED BY 
*. B-TRAN . 



*****P4********** 

* * 

* CLEAR * 

* FIK * 

* (REG 6) * 

* * 
***************** 



*_*_*_*_*_*_*_*_* 

* RESTORE * 

* USERS * 

* REGS * 
***************** 



X 

***** 

*CL * 
* E4* 



CALFET 

*****G4********** 
*FCHRT1 EA* 

*_*_*_*_*-*_*_*_* 

* LOAD PHASE * 
*FROM CI LIB TO * 

* MAIN STORAGE * 
***************** 



*****H4********** 

* STORE PHASE * 

* ENTRY ADDR * 

* FROM REG TO * 

* USER SAVE * 

* AREA (REG 1) * 
***************** 


*****H5********** 
*CQDSP CP* 
*_*_*_*_*_*_*_*_* 

* RESTORE * 

* USERS * 

* REGS * 
***************** 


X 

***** 
*BC * 
* CI* 


X 

***** 
*CL * 
* E4* 



**** j 3********* 

* BRANCH TO * 

* $$ANERR1 * 

* CHART TG * 
*************** 



****K2********* 

* BRANCH TO * 

* ENTRY ADDRESS * 

* IN REG 15 * 
*************** 



*K4 
BA-F2 

BB-G3,H1,H4 
JG-K3 



*K5 
ENTERED FROM $$ANERRZ 
WHEN SVC 3 IS ISSUED AND 
REGISTER 15 WAS LOADED 
WITH THE ADDRESS OF 
PUBDEQ. 
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Chart FQ. $$A$SUP1 - SGSVC Macro, Console Buffering Routine (Part 2 of 2) 
Refer to Chart 04. 



****A2 ********* 

* * 

* CONBOK * 

* * 
*************** 



*****Q2********** 

* * 

* LOAD ADDR * 

* OF CCW * 

* INTO REG 6 * 

* * 
***************** 



*****C2********** 

* * 

* SAVE CONTCNTS * 

* OF REG 8 * 

* IN CBSAVE * 

* * 
***************** 



*****02 ********** 

* SET UP * 

* REG 7 WITH * 

* ADDR OF * 

* CCW END * 

* * 
***************** 



E2 *. 
.* CCW *. 
NO .* ADDR * 
...*. WITHIN 

*. CORE .* 



.* WRITE *. 
NO .* COMMAND * 
X..*. (09,01) FOR 
*. 1052 .* 



G2 *. 
.♦COMMAND*. 
* OR DATA 

CHAINED 
*. CCW 



H2 *. 
.* ANY *. 
YES .*BITS 3,5,7 *. 
.X.*. ON IN CCB . 
*. BYTE 2 .* 
*. *G3 .* 
X *. .* 
*** * no 



**** 

* * 

* 1 * 

* * 
**** 



.* USER *. YES 

WANTS .*... 

*. SENSE .* 



.* OUTPUT *. YES, 
EXCEEDS .*..X 
*. 80 BYTES .* 



*****D4********** 

* SET UP REG 7 * 

* WITH ADDRESS * 

* OF DATA END * 

* * 

* * 
***************** 



DATA 
WITHIN 
CORE 



****F4********* 

* RETURN TO * 

* ADDR IN * 

* LINK REG 5+8 * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 

.x! 



****P5 ********* 

* RETURN TO * 

* ADDR IN * 

* LINK REG 5 * 
*************** 



*G3 
CONSOLE BUFFERING 
IS NOT DONE IF 
USER WANTS POST 
AT DEVICE END, 
ACCEPT UNRECOVERABLE 
I/O ERROR, OR HAS 
OWN UNIT CHECK 
ROUTINE. 
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Chart FR. $$A$SUP1 - SGSVC Macro, SVCs 43, 45, and 46 
Refer to Chart 03. 



***** 

*BH * 
* J2* 



CPU *. 
M0DEL=30 
♦A3 .* 



*****Bl********** 

* * 

* STORE USER'S * 

* PSW SAVE * 

* AND LINK * 
.* ADDRESSES * 
***************** 



**d******* 

* * 
ENABLE 

EMULATOR 
MODE 

* * 
*********** 



**D1******* 
* * 

* TURN ON 
* EU INTERFACE 
♦(COMREG+134, 
♦X»40' BIT) * 
*********** 



****Fi********* 

* COMPATIBILITY * 

* FEATURE * 

* NO. 4460 * 
*************** 



*SAVE REGS 9-13 * 

* SET UP RETURN * 

* PSW * 

* * H 2 * 
***************** 



*A3 
SVC45 CODING 
GENERATED ONLY 
IF CPU MODEL 
30 OR 40. 



***** 
*BH * 
* J2* 



.*. 










SVC43 X 


B2 *. 








*****B4********** 


.* *. 








* * 


.* *. NO 








* GET SDR * 


*. EU=RELOC .*... 








* TABLE ♦ 


*. *G3 .* 










* INDICATORS * 


*. .* 










* * 


*. .* 










***************** 


* YES 












* 






**** 










* 


* 










♦ 2 


* 




X 


X 


* 


* 


X 


.*. 


.♦ . 


**** 


.♦. 


C2 *. 


C3 *. 






C4 *. 


.* *. 


.* MPSt *• 








.♦ *. 


.♦RELOCATABLE*. NO 


.* SP,OC,OR *. NO 






.* RECORDER *. 1 


♦ . VERSION OF .*... 


♦. IT SUPPORT .♦ 








♦. FILE .♦. 


*. CS/40 .* 


*. *G3 .* 








*. ON .* 


*. .* 


*. .* 








*. .* 


*. .* 


*. .* 








*. . * 


* YES 


* YES 

L ........ mXl 








* NO 


X 


X 

.*. 








X 


*****D2 ********** 


D3 *. 








*****Q4********** 


* * 


.* *. 








* * 


♦VALIDATE ADDRS * 


NO .* REQUEST *. 








* RESTORE * 


* FROM CS/40 TO * 

* BE USED IN * 


...*. FROM .* 








* SYSTEM ♦ 


♦BACKGROUND.* 








* BASE ♦ 


* SUPERVISOR * 


*. .* 








* * 


***************** 


X *. .* 
***** * YES 
*BA ♦ 








***************** 




* A3* 


X 












* * 








X 




* , 








***** 




ERR21 








*BA * 


X 


X 






* A3* 


*****£2 ********** 


*****E3********** 






* * 


* MOVE BRANCH * 


* * 






* 


♦TABLE ADDR AND * 


* PUT PROBLEM * 






ERR21 


* EDIT-ASSIST * 


♦ PROGRAM IN * 








♦ TABLES TO * 


* SUPERVISOR * 








♦ SUPERVISOR * 


♦ STATE * 






***** 


***************** 


********* 


******** 








*BJ * 



D5 *. 




* 






*. YES 


SVC43 


.*.... 




♦ 


.* 




*. .♦ 


X 


♦ NO 


***** 




*LF * 




* C5* 


X 


* * 


***** 


* 


*LF * 


SDRSDR 


* C4* 




* * 




* 




SDROBR 





*****P2********** 

* GIVE ADDRS OF * 

* EDIT-ASSIST * 

* TABLES NOW IN * 

* SUPERVISOR * 

* TO CS/40 * 
***************** 



*G3 
SUPERVISOR 
GENERATION 
OPTION. 



G4 *. 
.* ♦. 

loLTEP ACTIVE 
*. .* 

*. .* 

*. .* 

♦ YES 



*****Hl********** 
♦GENENT BF* 

*_*_*_*_*_*_*_*_* 

* INITIALIZE ♦ 

* ENTRY * 

* * 
***************** 



*****jl********** 

* * 
♦CONVERT 2-BYTE ♦ 

* BRANCH ADDR ♦ 

* TO 4-BYTE * 

* BRANCH ADDR * 
***************** 



*H2 
.SET SYSTEM MASK=255. 
.TURN ON MACHINE 
CHECK BIT. 
- .SET MATCHING 

STORAGE PROTECT KEY. 



.♦ *. 
.* OLTEP * 
.WAIT CONTROL 
*. ♦HS .* 



ERR21 

*H5 
REG 1 CONTAINS OLTEP 
NO ENTRY ADDRESS ON INITIAL 

.... ISSUING OF SVC 46. 
. REG 1 CONTAINS ZERO 
. WHEN OLTEP IS TO 
X RELINQUISH CONTROL. 
***** 
*BC * 
* CI* 



****J4********* 

♦ GO TO OLTEP * 

♦ IN SUPERVISOR ♦ 

♦ STATE ♦ 
*************** 



♦**** 
*BC * 
* B4* 
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Chart FS. $$A$SUP1 - SGSVC Macro, SVC 51 
Refer to Chart 03. 



*B1 
SUPERVISOR 
GENERATION 
OPTION 



***** 
*BH * 
* J2* 



51 .*. 

B2 *. 
.* *. 
.* REQUEST *. NO 
*. FROM .*... 
*. OLTEP .* 



****A4********* 

* SVC 52 * 

* *B1 * 

* * 
*************** 



***** 
*BA * 
* A3* 



*****C2 ********** 
♦SVEREG BAA* 
*_*_*_*_*_*_*_*_* 

♦SAVE REGISTERS * 

* IN PROGRAM * 

* SAVE AREA * 
***************** 



STORAGE 

PROTECT 

*B1 



*****E2 ********** 
*VLDADR1 GC* 
*_*_*_*-*_*_*_*_* 

* VALIDATE * 

* ADDRESS * 

* LIMITS * 
***************** 



REQUEST 
FROM LTA 


*. NO 


.* 






* 




*. .** 




# 


*. .* 




X 


* YES 




***** 
*BA * 
* A3* 

* * 

* 


X 

**C4******< 


**** 
* 




GET FLPTR 


* 




ADDRESS 


* 





***************** 



****D4********* 

* $$BE0J4 * 

* SEE * 

* GY24-5152 * 
*************** 



***** 
*BD * 
* B2* 



*****P2********** 

* * 

* PUT 1 IN * 

* FETCH ROUTINE * 
♦LIMIT REGISTER ♦ 

* * 
***************** 



***** 
*EA * 
* CI* 
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Chart GA. $$A$SUP1 - SGDSK Macro, Disk Error Recovery (Part 1 of 2) 
Refer to Chart 06. 



***** 

*DB * 
* K2* 
* * 



* INCREMENT * 

* RETRY * 

* COUNT * 

* * 
***************** 



.* ERRLOG 
OPTION 
*. *H3 



*****Ci********** 

* POINT * 

* REGISTER 5 * 

* TO SDR * 

* AREA * 

* * 
***************** 



*****D].********** 

* MOVE LIST * 

* FROM * 

* SDRDASD * 

* TO SDR AREA * 

* * 
***************** 



**E1******* 

* RESTORE * 
DEQUER 
BRANCH 

WITH X'FO' 

* * 
*********** 



*****Fl********** 

* REMOVE * 

* CHAIN FLAG * 

* FROM READ * 

* HOME ADDR CCW * 

* * 
***************** 



*****Hl********** 

* MOVE USER * 

* SEEK ADDRESS * 

* TO ERROR * 

* QUEUE TABLE * 

* * 
***************** 



X 








.*. 






NO 


A2 *. 








.* 


* 






NO 




* 


YES 


RECORD 






*... 


>. FOUND 




,* 





MISSING *. 
ADDRESS .*. 
MARKER .* 



YES .* *. 

...♦.INTERVENTION .* 
♦.REQUIRED .* 



.* *. 

YES .* COMMAND * 
...*. REJECT 

*. .* 



BUS OUT 

OR 
OVERRUN 



*****B4********** 


B5 *. 


♦EDRDHA1 GB* 


.* 


*_*_*_ *- *_*_*_*_* 


.YES .* MISSING 


* READ HOME * 


X...*. ADDRESS 


* ADDRESS AND * 


*. MARKER 


* RECORD * 


. *. . : 


***************** 


X ♦ . .* 



**** 

* * 

* 3 * 

* * 
**** 



RDHA9 

*****E2 ********** 
♦EORDHA GB* 
*_*_*_*_*_*_*_*_* 

* READ * 

* HOME * 

* ADDRESS * 
***************** 



YES .* RETRY 
...*. COUNT 

*. =256 
. *. . 
X *. .* 
**** * mo 

* * 

* 4 * . 

* * 
**** 



G2 *. 
.* RETRY *. 
.* COUNT IS *. NO 
. MULTIPLE ,*..X 
*. OF 16 .* 
♦ . .* 
*. .* 
* YES 



**** 

* * 

* 2 * 

* * 
**** 



RETRY *. 
COUNT .* 
GT 10 .* 



***** * no 

*DC * **** 
* Dl** * . 

* * * 5 *.X. 
* * * . 

EXTRAN **** 

RECAL X 

***E3************ 

ERRS 10 DF 

* _*_*_*_*_*_*_ * 

RESTORE 
* HEAD * 

TO 
***************** 



C4 *. 

.* SAME *. 

.♦CYLINDER AS*. 

USERS 

*. SEEK .* 

*. .* 

*. .* 



*****04********** 

* INDICATE * 

* NO-RECORD- * 

* FOUND TO * 

* ERROR ♦ 

* MONITOR ♦ 
***************** 



.♦ CHANNEL 
*. DATA 

*. CHECK 



RETRY 

COUNT= 

*J3 



X 

.*. 
F3 *. 



X 

***** 
*DC * 
* Bl* 



YES .♦ USER 
...*. WANTS 
*. RETRY 



**** 

* * 

* 6 * 

* * 
**** 



* 4 * 

* * 
**** 



YES .* TRACK 
...*. CONDITION 
*. CHECK .: 



***** 
*GB * 
* A2* 



E5 *. 

.* TRACK *. 

OVERRUN 

OR END OF 

CYL 



***** 
*GB * 
* G3 + 



**P4******* 

* * 

♦ POST ♦ 
♦NO-RECORD-FOUND* 

* TO CCB * 

* * 
*********** 



***** 
*DD * 
* B4* 



***** 
*DC * 
* Dl* 



*H3 
SUPERVISOR 
GENERATION 
OPTION. 



*J3 
RETRY ONCE 
ON CHANNEL 
ERRORS. 



*. 



CHANNEL 
CHAINING 
. CHECK 



RETRY 
COUNT 
GT 10 



X 

***** 
*DD * 
* Q5* 



***** 
*DD ♦ 
♦ E5^ 
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Chart HD. $$A$SUP1 - MCRAS Macro, Resident Channel Check Handler (Part 1 of 4) 
Refer to Chart 09. 



***** 
* * * 

* Al* 



***** 
*HA * 
* B2* 

* * 



POST 

RAS 

ACTIVE 

* * 

*********** 



.*. 

C2 *. 

.* *. 

.* WAS *. 

ECSM 

*. STORED .* 

*. .* 

*. .* 



*B4 X 


*B4 


CCOAMAGE .*. 


CCOAMAGE ROUTINE IS 


B3 *. 


ENTERED WHEN A DAMAGED 


.* IS *i 


CHANNEL IS DETECTED. 


.* RTA *. YES 




*. I/O .*.... 

*. ACTIVE .* • 






*. .* 




*. .* X 




* NO ***** 




*HA * 




* B2* 





.* IS *. 
NO . * CHANNEL * 
...*. ADDRESS 

*. VALID .* 



***** 

*HA * 

* B2* 

* * 



CHANNEL *. 
ALREADY 
DAMAGED .* 
*. .* 



.* THE *. NO 

.SAME CHANNEL .*... 
*. DAMAGED .* 



***** 
*HA * 
* B2* 



.* ♦ . 
.* IS * 
. RETRY CODE 
*. VALID .* 



.* IS ♦ . Y?=S 
.SYSTEM RESET .♦../ 
*. CODE .♦ 



.♦CHANNEL*. 

CHECK ON 

ERROR 

SIO 



CCEREXIT 

**H1******* 

* TURN OFF * 
♦CHANNEL CHECK* 

* ON ERROR * 
* SIO BIT * 

* * 
*********** 



****jl********* 

* RETURN VIA * 

* REGISTER 7 * * 

* * 
*************** 

♦TAKE UNIT CHECK 
EXIT IN RESIDENT 
SUPERVISOR. 



* SET * 
♦DAMAGED CHANNEL* 

* BYTE * 
* * 

*********** 



SYSRES 
CHANNEL 
DAMAGED 



**G3******* 
*SET SYSRES * 

* CHANNEL * 
DAMAGED 

* INDICATOR * 
* * 

*********** 



***** 

♦ CK ♦ 

* D2+ 



CCDCEXIT 

*****G4********** 
♦SET REGISTER 3 ♦ 

♦ NEGATIVE TO ♦ 

♦ INDICATE * 

♦ CHANNEL ♦ 

♦ DAMAGE ♦ 
***************** 



X 
***** 
♦HF ♦ 
♦ Bl* 



♦ IS ♦. 


NO . 


UNIT ADDRESS . 


♦ ..X. 


♦. VALID .♦ 




♦. .♦ 




*. .♦ 


X 


* YES 


**** 




* si 




* 1 * 


X 


* 4 


***** 


**** 


♦ CK ♦ 




* D2^ 




* * 
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Chart HE. $$A$SUP1 - MCRAS Macro, Resident Channel Check Handler (Part 2 of 4) 



***** 

*CE * 

* H2* 
* * 



***************** 



* ISOLATE * 

* OEVICE * 

* TYPE * 

* * 
***************** 



**** 
*CK * 
* 03 *.X 



**** 
CCENTRY2 . 

.* I 
NO .* A oud 
...*. QUEUED TO 
*. PUB 



♦ . 



*****B4********** 

* * 

* LOAD REG 7 * 
X* WI TH * 

* ERROR CODE * 

* * 
***************** 



C4 *. 
.* HAS * 
.* CHANNEL 
CHECK 
♦.OCCURRED 



*****C5********** 

* * 

* LOAD REG 7 * 
X* WITH GOOD * 

* COMPLETION * 

* CODE * 
***************** 



.*. 
D2 *. 
.* IS *. 
.* IT AN *. YES 
*. OLTEP CCB .*.... 



*****E2 ********** 
*ERPTBLUP HG* 

*_*_*-*_*_*_*_*-* 

* LOOK FOR * 

* ERPIB FOR * 

* DEVICE * 
***************** 



YES .* DOES *. 

...*. ERPIB EXIST .* 
♦FOR DEVICE. ♦ 



**** 

* * 

* 1 * 

* * 
**** 



.♦. CC 


*TYTST .*. 




D3 *. 


D4 ♦. 




.* *. 


.♦ *. 




.♦ DASD *. YES 


.♦ RETRY ♦. NO 


*. CHANNEL .*.... 


♦. REQUEST .♦. 




*- CHECK .♦ 


♦ . .* 




*. .* . 


♦ . .* 




*. .* X 


♦. .♦ 


X 


* NO ***** 


♦ YES 


***** 


*HF * 




*HF * 


* D3* 




* G4* 


* * 




* * 


• ♦ 




* 


CCNOT10 




CCEXIT3 


X 


X 




*****£3********** 


***** E 4********** 




♦INDICATE RETRY ♦ 


♦ STORE ♦ 




♦ COMPLETE BY ♦ 


♦ COMPLETION ♦ 




♦ RESETTING * 


♦ CODE IN ERPIB ♦ 




♦ THE ERPIB ♦ 


♦ POST RAS ♦ 




* * 


♦ CCB COMPLETE ♦ 




***************** 


***************** 





**** 

* * 

* 2 ♦ 

* * 
**** 



* NO 


***** 




**** . 


*HF * 




* * . 


* Bl* 




* 2 + .X. 


* * 




* * . 


* 




**** x 


ERP] 


BCR 


CCEXIT2 .*. 






H2 ♦. 






.♦ ♦. 






NO .♦ ENTERED ♦. 






...♦. FROM SIO .♦ 






♦. ROUTINE .♦ 






♦ . .♦ 






X ♦. .♦ 






***** * YES 






♦CK ♦ 






♦ C4^ 






* * . 






* 






X 






*****J2 ********** 






* * 






♦ RESET ♦ 






♦ RASIO ♦ 






♦ FLAG ♦ 







*****P4********** 
*RASDEQ HG* 
*_*_*_ *_ *_ *_ *_ *_ * 

* DEQUEUE ♦ 

* RAS CCB ♦ 

* * 
***************** 



*****G4********** 

♦ * 

♦ RESTORE PUB ♦ 

♦ CHANQ POINTER ♦ 

♦ AND FLAGS ♦ 

♦ FROM ERPIB ♦ 
***************** 



*****H4********** 
♦CQDSP CR* 
*_ *_*_*_*_*_*_*-* 

* REINITIALIZE ♦ 

* REGISTERS FOR ♦ 

* USER CCB * 
***************** 



.♦ WAS 
RETRY 
♦SUCCESSFUL. 



***************** 



*****K2********** 



* FOR SIO ♦ 

♦ ROUTINE ♦ 
***************** 



***** 
*HF ♦ 
* G4* 
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Chart JH. $$A$SUP1 - SMICR Macro, 
Refer to Chart 02. 



Exit Routine 



**♦* 

* * 

* i * 



*****A4********** 



***************** 



* UNBOUND THE * 

* SVC-7-B0UND * 

* PIB * 

* *C3 * 
***************** 



*B3 
SUPERVISOR 
GENERATION 
OPTION. 



*C3 
THE DISPLACEMENT IN 
THE PIB TABLE WAS SET 
IN THIS INSTRUCTION 
FOR MPS ONLY ON 
CHART JA AFTER 
PDMPI. 



***** 

*FL * 

* F4* 

* * 



OC 
OR IT 

*B3 



PDTIMER 

*****Q4********** 

* UPDATE TIME * 

* OF DAY AND * 

* RESET TIMER * 

* TO INTERRUPT * 

* ALONE * 
***************** 



* ALERT * 
X* ATTENTION * 

* ROUTINE * 

* * 
***************** 



C5 *. 

* *. 

TIMER 

*. .** 
*. .* 
* NO 



*****oi********** 

* GET PIB TABLE * 

* XTNSION ADDR * 
*IN REG 10, ADD * 

* PIB TBL ENTRY * 

* DISPLACEMENT * 
***************** 



D2 *• 
.* THIS *. 
YES .* PROGRAM *. 
......HAS PRIORITY .* 



NO .* PROGRAM *. 








..*.HAS PRIORITY 


* 








*. .* 










*. .* 










*. .* 










* YES 










**** . 










*JF * .X 










* H5 *.X. 






* * . 






JA-J3 




**** . 






JB-C1 




X 






JE-A5 




*****pi********** 




JF-H4 


HS 


* 


* 




JG-J1 


,1? 


* ACTIVATE 


* 








* BRANCH AT 


* 


***** 




♦EXT04 FOR TASK 


* 


* 


* 




* SELECTION 


* 


* 


* * 




***************** 


* 


* 





NO .* MODEL 
...*. 65 
*. *G4 



E3 *. 
.* ANY *. 
.*MPX DEVICE *. 
.♦QUEUED BUT NOT. 
*. STARTED .* 



D4 *. 
.♦SYSTEM *. 

STATE *. SUPV 

T INTERRUPT .* 

. TIME .♦ 

♦ . .* 

*. . * 



***** 
*BD * 
* Fl* 



.♦ 



***** 
*CN * 
* HI* 



* RESTORE * 

♦ SUPERVISOR * 

♦ REGISTERS ♦ 

* * 
***************** 



XT1 .*. 




Gl *. 




.* MORE *. 




.* MICR *. 


YES 


*. INTERRUPTS . 


*.... 


♦. .♦ 




♦ . .* 


. 


*. .* 


X 


* NO 


***** 




*JA * 




* Gl* 




* * 




* 


X 


PDMPI 


.*. 




HI *. 




.* MICR *. 




.* = 1419D *. 


YES 


♦.OR NOT MODEL . 


*.... 


*. 25 *B3 .♦ 




♦ . *G4 .* 




*. .* 


X 


* NO 


**** 




* 




* 1 




* 




**** 



MPS 

AND T/P 

♦ B3 

♦ . .♦ 



*****H3********** 

* * 

* GET CHANNEL * 

* INDEX IN * 

* REGISTER 2 * 

* * 
***************** 



****P4********* 

♦ LOAD EXT * 
♦OLD PSW, ENTER ♦ 

♦ WAIT STATE ♦ 
*************** 



*G4 
USER'S 
CONFIGURATION. 



• ♦ 
♦ . 
♦ . 



***** j 3********** 

♦SELECT CN+ 

*_*_*_*_*_*_*_*_* 

♦ FORCE ♦ 

♦ CHANNEL ♦ 

♦ SCHEDULING ♦ 
***************** 



*****K1********** 

♦ * 

♦ MOVE CHANNEL * 

♦ AND UNIT * 

♦ ADDRESS TO ♦ 

♦ I/O OLD PSW ♦ 
***************** 



RESET SW 

AT PDSWZ 

TO BRANCH 

* * 

*********** 



* 2 * 

* * 
**** 
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Chart KA. $$A$SUP1 - SMCRR Macro, Channel Inboard Error Record Builder (Part 1 of 4) 
Refer to Chart 10. 



***** 

♦ KB * 

* Gl* 

* * 



***** 
*DF * 
* J4* 



CPU 
MACHINE 
CHECK 



***** 

♦KG ♦ 

♦ Bl* 

♦ ♦ 



CPU ♦. 
MODEL 
50 .♦ 



**D1******* 

♦ TURN ON ♦ 

♦ FULL LOG 
SELECTOR BIT 

♦ AT MCRSWITC 

♦ X'80' ^3 ♦ 
*********** 



*****B2********** 
♦MCRGTIME KH^ 
*_*_*_*_*_*_*_*_* 

♦ GET TIME ♦ 

♦ AND JOB ♦ 

♦ NAME ♦ 
***************** 



X 
.♦. 
C2 ♦. 
.♦ ♦ 
.♦ CPU 
♦. MODEL 
♦. 30 



♦ B3 
MCRSWITC IS A POINTER 
SWITCH TO ROUTINES-- 

- X«80' - FULL LOG 
ROUTINE 

- X'01« - MACHINE 
CHECK ROUTINE 

- OTHER - CIB ROUTINE 



♦♦** 

* * 

* 3 ♦ 



*****B4********** 
♦SAVE INDICATOR ♦ 

♦ BYTE OF ♦ 

♦ MOD 30 LOGOUT ♦ 

♦ IN MCRSVIND ♦ 

♦ * 
***************** 



*****C4********** 

♦ CALCULATE * 

♦ CHANNEL ♦ 

♦ NUMBER IN ♦ 

♦ REGISTER 7 * 

♦ ♦ 
***************** 



CHNERROR 

**E1******* 
♦NOP BRANCH ♦ 

♦ AT MCRCIBSW ♦ 
♦ TO INDICATE ♦ 

♦ CHANNEL ♦ 
♦ INBOARD * 

*********** 



*****F1********** 

♦SVEREG BAA^ 
*_*_*_*_*_*_*_*_* 

♦ SAVE USER'S ♦ 

♦ REGISTERS ♦ 

♦ AND PSW ♦ 
***************** 



*****G1********** 

♦ MOVE A 1 ♦ 

♦ INTO CIB ♦ 

♦ RECORD TO ♦ 

♦ INITIALIZE ♦ 

♦ FIRST RECORD ♦ 
***************** 



*****Hl ********** 

♦ MOVE CIB ♦ 

♦ RECORD ID ♦ 

♦ RECORD NUM ♦ 

♦ AND MODEL NUM ♦ 

♦ TO RECORD ♦ 
***************** 



*****D2***^++++* 

♦ INITIALIZE ♦ 

♦ REG 7 AS ♦ 

♦ POINTER TO ♦ 

♦ MPX CHANNEL ♦ 

♦ LOGOUT ♦ 
***************** 



*****££♦♦♦*♦♦♦♦♦♦ 

♦ INITIALIZE ♦ 

♦ LOOP COUNTER ♦ 

♦ WITH VALUE ♦ 

♦ 2 ♦ 

♦ ♦ 
***************** 



MCRL00P1 .♦. 

F2 ♦. 

.♦ ♦. 

.♦ ERROR ♦. 

♦. ON CHAN 

♦.INDICATED.^ 



*****G2 ********** 

♦ INCREMENT ♦ 

♦ REGISTER 7 ♦ 

♦ TO NEXT CHAN ♦ 

♦ IN LOGOUT ♦ 

♦ ♦ 
***************** 



.♦. 

H2 ♦. 

.♦ ♦. 

* LOOP ** 

COMPLETED .♦ 



♦ YES 
X.... 



♦ MOVE DEVICE ♦ 

♦ NUMBER TO ♦ 

♦ CIB RECORD ♦ 

♦ ♦ 
***************** 



NO .♦ CPU 
,..♦. MOD 
♦ . 50 



*****E3********** 



***************** 



♦♦♦♦ 

♦KB ♦ 

.X+ Bl ♦ 



G .♦. 

B5 ♦. 
* ♦. 

CPU ♦. NO 
MODEL .♦... 
50 .♦ 
♦. .♦ 
♦ . .♦ 



*****C5*****^*t*« 

♦ MOVE ♦ 

♦ INTERRUPT ♦ 

♦ CODE INTO ♦ 

♦ RECORD FROM ♦ 

♦ IOOPSW ♦ 
***************** 

**** 



♦KB-C2 t Dl ♦ ♦ +.X 
♦ ♦ 
♦♦♦♦ 



*****D5********** 

♦ MOVE 3 TO * 

♦ MCRSVIND TO ♦ 

♦ INDICATE ♦ 

♦ WHOLE ♦ 

♦ CHAN DAMAGED ♦ 
***************** 

♦♦♦♦ 



4 ♦.X 



♦♦♦♦ 
MCRSCNCH 

*****E5********** 

♦ INSERT ♦ 

♦ DAMAGED ♦ 

♦ CHANNEL ID ♦ 

♦ INTO REG 7 * 

♦ ♦ 
***************** 



G3 ♦. 
.♦ ♦. 

.♦ SELECTOR ♦ 
♦. CHANNEL 



***** 
♦KB ♦ 
♦ Fl* 

♦ ♦ 



MCRMPX X 

#****G4**+#****** 

♦ GET FAILING ♦ 

♦ DEVICE ON ♦ 

♦ MPX CHANNEL ♦ 

♦ INTO RECORD ♦ 

♦ * 
***************** 



*****F5**+^***** 

♦ STORE * 

♦ DAMAGED ♦ 

♦ CHANNEL NUM * 

♦ IN RECORD ♦ 

♦ * 
***************** 



**** 
♦KG ♦ 

♦ Jl 

♦ * 
♦♦♦♦ 



*****G5******++++ 

♦ MULTIPLY ♦ 

♦ DAMAGED CHAN ♦ 

♦ FOCL BY 8 FOR * 
♦POINTER TO 1ST ♦ 
♦PUB ON CHAN ♦JS^ 
***************** 



*****H3****^***^ 

♦ MOVE ♦ 

♦ INTO" CIB*" ♦ 

♦ RECORD * 

♦ CIBFLDEV ♦ 
***************** 



*****J3********** 

♦ MOVE FAILING ♦ 

♦ DEVICE ID ♦ 

♦ TO RECORD ♦ 

♦ FROM * 

♦ LOGOUT ♦ 
***************** 



*****H4********** 

♦ INDICATE ♦ 

♦ ONLY DEVICE * 

♦ DAMAGE ♦ 



***** 
♦KB ♦ 
♦ B3^ 



♦ J5 
REGISTER 7 NOW CONTAINS 
A DISPLACEMENT INTO THE 
PUB TABLE WHICH POINTS 
TO THE FIRST PUB ON THE 
DAMAGED CHANNEL. 



♦ 3 ♦ 

♦ ♦ 
♦♦♦♦ 
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Chart KB, $$A$SUP1 - SMCRR Macro, Channel Inboard Error Record Builder (Part 2 of 4) 
Refer to Chart 10. 



**♦** 

*KA * 
* E3* 



***** 
*KA * 
* G5* 



**** 

* * 
*• 1 * 

* * 
**** 



MCRSHITC= *. 


NO 


X«80'-FULL . 


*.... 


LOG .* 




*. .* 




*. .* 


X 


* YES 


***** 




*KA * 


. 


* B5* 



.*. MCRMPX 

CI *. *****Q2********** 

.* *. * MOVE A * 

.* MPX ♦. YES * INTO CIB * 

*. CHANNEL .* X* RECORD- * 

*. DAHAGE .* * CIBFLDEV * 

*. .* * * 

*. .* ***************** 



*****D1 ********** 

* * 

* MOVE CHANNEL * 

* ADDRESS INTO * 

* CIBFLDEV * 

* * 
***************** 



***** 
*KA * 
* D5* 



***** 
*KA * 
* D5* 



*M0VE CHANNEL 1 * 

* INTO CIB * 

* RECORD- * 

* CIBFLDEV * 
***************** 



*****G1********** 

* MOVE * 

* FAILING * 

* DEVICE ON * 
♦CHANNEL 1 INTO * 

* CIB RECORD * 
***************** 



***** 
*KA * 
* B5* 



*****B3********** 

* LOAD PUB * 

* POINTER * 

* INTO REG * 

* 6 * 

* * 
***************** 



*****C3********** 

* ADD REG 6 TO * 
*REG 7 TO POINT * 
*TO FIRST PUB ON* 

* DAMAGED CHAN * 

* * 
***************** 



*****D3********** 

* SAVE ADDRESS * 

* OF FIRST PUB * 

* IN LOCATION * 

* MCRFIRST * 

* * 
***************** 



*****E3********** 
♦INITIALIZE LOOP* 
♦COUNTER (REG 6)* 

* WITH 11 * 

* *J1 * 

* * 
***************** 



*****P3********** 
♦POINT REG 5 TO ♦ 

♦ FIRST OF 20 ♦ 

♦ ENTRIES IN ♦ 
♦ACTIVE DEVICES ♦ 
♦LIST (CIBACDEV)* 
***************** 



*****G3********** 

♦ POINT REG 2 ♦ 

♦ TO THE ♦ 

♦ DAMAGED TASK ♦ 

♦ LIST ♦ 

♦ MCRCNTST * 
***************** 



**** 

♦ KC ♦ 

♦ D5 *.X 



.♦ ERROR ♦. 
.♦ CHAN SAME ♦. 

AS PUB .♦ 
♦. CHAN .♦ 



.♦ 10 ACTIVE 
DEVICES 
♦.RECORDED . 
♦ . .♦ 



♦ MOVE ACTIVE ♦ 

♦ DEVICE TO ♦ 

♦ CIB RECORD ♦ 

♦ * 

***************** 



*****D4********** 
♦INCREMENT REG 5+ 

♦ TO POINT TO ♦ 

♦ NEXT ENTRY IN ♦ 

♦ ACTIVE DEVICE ♦ 
♦LIST (CIBACDEV)* 
***************** 



***** 

♦ KD * 

* Bl* 



♦Jl 
THIS ROUTINE SCANS FOR 
ALL ACTIVE DEVICES ON 
THE CHANNEL AND MOVES 
THE FIRST 10 TO THE 
CIB RECORD. 



*****B5********** 

♦ POINT ♦ 

♦ REGISTER 4 ♦ 

♦ TO CORRECT ♦ 

♦ CHANQ ♦ 

♦ ENTRY ♦ 
***************** 



*****C5********** 

♦ MOVE CHQCHAIN ♦ 

♦ TO PUB BYTE 2 ♦ 

♦ TO MAKE NEXT ♦ 

♦ REQUEST FIRST ♦ 

♦ IN PUBQUEUE ♦ 
***************** 



*****D5********** 

♦ MOVE CHANQ ♦ 

♦ ENTRY TO ♦ 

♦ HEAD OF ♦ 

♦ FREE LIST ♦ 

♦ * 
***************** 



*****E5********** 

♦ POINT REG 4 ♦ 

♦ TO CCB AND ♦ 

♦ POST TRAFFIC ♦ 

♦ AND UNRECCV ♦ 
♦I/O ERR -X'AO* * 
***************** 



SELECTOR 

CHANNEL 

. DAMAGED 



G4 



IS ♦. 
NO .♦ THIS ♦ 

...♦. THE FAILING 
♦ . DEVICE .♦ 
♦ . .♦ 

♦ . .♦ 
♦ YES 



X 

***** 
*KC * 
* D5* 



MCRCHNDM 

**H4******* 

♦ TURN OFF ♦ 
♦ DEVICE BUSY ♦ 

♦ AND OPER INTV 
♦POST DE BITS ♦ 

♦ IN PUB ♦ 
*********** 



*****J4********** 

♦ SAVE PUB ♦ 

♦ CHANQ ♦ 

♦ POINTER IN ♦ 

♦ REG 3 ♦ 

♦ * 
***************** 



*****G5********** 

* POINT * 

* REGISTER 3 ♦ 

* TO CORRECT * 

* REQTD ENTRY ♦ 

* * 
***************** 



H5 ♦. 

* * 

AP 

OPTION 



***** 

♦ KC ♦ 

* CI* 



*****J5********** 

♦ MOVE * 

♦ PROGRAM ID * 

♦ FROM ♦ 

♦ REQIDTAB TO ♦ 

♦ MCRREQID ♦ 
***************** 



***** 

♦ KC ♦ 

♦ CI* 
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Chart KC. $$A$SUPl - SMCRR Macro, Channel Inboard Error Record Builder (Part 3 of 4) 
Refer to Chart 10. 



***** 

♦KB * 
* H5* 



♦*** 

* * 

* 2 * 

* * 
**** 



*****B 1 ********** 

* GET TASK 7 ID * 

* IN MCRREQID * 

* AND NULL * 

* TSKIDTAB- * 

* X«FF« * 
***************** 

**** 



.* ACCEPT *. NO 
♦.UNRECOVERABLE.* . . . .X 
*. ERROR .* 
*. *G1 .* 
*. .* 
* YES 



*KB-H5,J5 



*****ci********** 

* * 

* NULL * 

* REQIDTAB * 

* X'FF' * 

* * 
***************** 



*****B3********** 

* HOVE * 

* IDENT TO * 

* CANCEL * 

* LIST * 

* * 
***************** 



*****C3********** 

* INCREMENT * 

* POINTER TO * 

* NEXT * 

* ENTRY * 

* * 
***************** 



***** 
*BD * 
* K3* 



***************** 



*****D2********** 



.♦SUPERVISOR *. 


NO 




* GET 


*. MCRREQID .* 






* DEVICE 


*. X'OO' .* 






* TYPE 


*. .* 






* 


*. .* 




X 


************* 


* YES 




**** 






* 


* 






* 


1 * 






* 


* 
**** 


X 


X 






.*• 


**E1******* 






E2 *. 


* FORCE * 






.* * 


* SUPERVISOR * 






.* DASD 


* CANCEL * 






*. DEVICE 


* MCRREQID * 
* X'60 1 * 






*. 2311 






*. .* 


*********** 






*. .* 


I 






* YES 


X 






• 


***** 








*DG * 






X 


* E5* 






.♦. 



D3 ♦. 

.♦ *. 

.* FAILING * 

*. DEVICE 

*. .* 

*. .* 

*. .* 

* YES 



**** 

* * 

* 3 * 

* * 
**** 



♦ Gl 
WITH SEEK SEPARATION 
THE 'AUE' BIT HAS A 
DIFFERENT MEANING. 



♦ HI 
THE AUE-BIT INDICATES 
SEEK SEPARATION. 



*J1 
INDICATES THE 
AUE-BIT IS VALID. 



F2 

.* *. 

* SEEK *. NO 

SEPARATION .*... 



YES .* EOF 

...*. BIT OFF 
*. *H1 



**H2******* 

* TURN * 

OFF 

EOF BIT 

*J1 

* * 
*********** 



*****E3********** 

* GET * 

* ADDRESS OF * 

* FIRST * 

* CCW * 

* * 
***************** 



**** 
♦KB * 
* J3 *.X 



. **** 
MCRNTBSY X 

*****D5********** 

* * 

* INCREMENT * 

* TO NEXT * 

* PUB * 

* * 
***************** 



***** 
*KB * 
* H3* 



.* ACCEPT *. YES 
♦. UNRECOVERABLE. ♦.... 
*. ERROR .* 

♦ * .♦ 



*****G3********** 

♦ SAVE ♦ 

♦ REQID OF ♦ 

♦ DAMAGED ♦ 

♦ DEVICE ♦ 

♦ * 
***************** 



*****G4********** 



***************** 



**j2******* 

* * 
SET OFF 
INVALID 
AUE-BIT 

* * 
*********** 



*****H3********** 

* LOAD * 

* REG 4 * 

* WITH CCB * 

* ADDRESS * 

* * 
***************** 



**** 

X 
*****j3********** 

♦ INITIALIZE * 

♦ REGS AND * 

♦ SET UP REG 9 ♦ 

♦ FOR EXT 01 ♦ 

♦ * 
***************** 



*****K3********** 

♦ MOVE PSW FROM * 

♦ MCRRPSW1 TO * 

♦ PTA SAVE FOR * 

♦ RETURN FROM ♦ 

♦ GENERAL EXIT * 
***************** 



***** 
*KF * 
* D3* 
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Chart ME. $$A$SUP1 - SGTHAP Macro, DETACH a Task (Part 1 of 2) 
Refer to Chart 03. 



**** 

* * 

* i * 

* * 
**** 



**** 
* * 

* 3 * 

* * 
**** 



**A4******* 



*****A5********** 



***** 
*BH * 
* J2* 



SAVE = 
PARAMETER 
. PASSED . 



.♦ ANY ♦. 




.* *. 




* * 


* * 


.♦ LOW ORDER *. YES 


.* IS TASK *. YES 


♦ SET * 


♦ RESTORE * 


*. BITS OF TID .*.... 


*. IN AB .*, 




* WHLMSW=X'00' ♦ 


♦ PIB ADDRESS ♦ 


*. ON .* 




*. ROUTINE .* 




* * 


♦ IN REG 10 ♦ 


♦ . .* 




*. .* 




* * 


♦ * 


*. .* 




*. .* 


X 


*********** 


***************** 


* NO 




* NO 


***** 

♦MK * 

* Al* 

* * 

* 




**** I 

* * . 

* 5 *.X. 

* ♦ . 


X 






CNCEL 




**** 


.*. 




X 




X 


SVC39P1 X 


B2 *. 




*****B3********** 




*****B4********** 


*****B5********** 


.* *. 




* GET LENGTH OF * 




* * 


♦ INACTIVATE ♦ 


.♦ TID *. YES 




♦TABLE INTO R3, * 




♦ TURN OFF * 


♦ THE SUBTASK'S ♦ 


♦ . LT X«70' ,*..X 




* ADD TO R2 TO * 




♦ CANCEL IN LTA * 


♦ PIB (BYTE * 


♦. .* 




* POINT TO 1ST * 




♦BIT IN THE PIB * 


♦ = X'80' ) ♦ 


*. .* 




♦BYTE PAST TABLED 




* * 


* * 


*. .* X 


***************** 




***************** 


***************** 


* NO ***** 










♦ BA * 










* A3* 
* * 
. * 










ERR21 
X 
*****C2********** 


X 

*****C3********** 




X 

*****C4********** 


X 

*****C5********** 




* GET SUBTASK * 


* MOVE TASK ID ♦ 




♦LOAD MAINTASK'S* 


♦ LOAD ADDR OF ♦ 


* PIB ADDRESS * 


♦ TO SVC39H ♦ 




♦ PIB POINTER * 


♦ SUBTASK'S ECB ♦ 


* IN REG 4, * 
♦EXTENSION ADDR * 


* FOR COMPARE * 




♦ FROM APSAVE ♦ 


♦ (IF ANY) INTO ♦ 


♦ INSTRUCTION ♦ 




♦ INTO REG 10 ♦ 


* REGISTER 1 ♦ 


* IN REG 5 * 


* * 




* * 


* * 


***************** 




***************** 




***************** 


***************** 



IS A 

SUBTASK 

•CANCELING. 



*****£]_********** 

* * 
♦LOAD HIGH LIMITS 

* ADDRESS INTO * 

* REGISTER 2 ♦ 

* * 
***************** 



*****F1 ********** 

♦VLDADR1 GC^ 

*_*_*_*_*_*_*_*_* 

♦ VALIDATE SUB- * 

♦ TASK'S SAVE ♦ 

♦ AREA ADDRESS ♦ 
***************** 



*****Gi ********** 

* * 

* SAVE TASK ♦ 

* ID (TID) AT * 

* TIDSAV +1 * 

* * 
********** 



6 ♦ .X 



**** 
SVC39G X 

*****D3********** 

* BACK UP ♦ 

* REGISTER 2 ♦ 
♦(TABLE POINTER)* 

* 1 BYTE ♦ 

* * 
***************** 



.♦PENDING^. 
.♦I/O BELONGS^. 
.TO THIS TASK . 



***** 
*BC ♦ 
* Bl* 



♦ D4 
SUPERVISOR 
GENERATION 
OPTION 



FP 

FEATURE 

♦ D4 



**jl******* 
♦CLEAR S.T. 
* ID IN SAVE 
AREA WITH 



*********** 







**** X 






SVC39H1 .♦. 








F3 ♦. 








.♦ ♦. 








.♦ MAINTASK ♦. NO 






♦. ISSUED .♦ 








♦. SVC39 .* 




**** 




*. .* 




* * 




♦ . .♦ 


X 


* 8 ♦ 




♦ YES 


***** 


* * 






♦ BA ♦ 


**** 






♦ A3* 


. 






* * 


X 






ERR10 


SVC39A .*. 




X 




G2 ♦. 




*****G3********** 




.* *. 




♦SAVE PIB PTR TO^ 




.♦ IS *. YES 


♦ MAIN TASK AT ♦ 




♦. THIS A .♦ 




♦ APSAVE AND ♦ 




♦. MAINTASK .♦ 




♦ POINT RLD TO ♦ 




*. .♦ 




♦ SUBTASKS PIB ♦ 




*. .* 


X 


***************** 




* NO 


***** 






**** . 


*BA ♦ 






* * 


* A3* 






* 9 ♦.X. 


* * 






* * 


* 






**** . 


ERR21 






SVC39M X 




X 




*****H2 ********** 




*****H3********** 




♦POINT R4 TO PIB^ 




♦ SET IMMEDIATE * 




* OF DETACHING ♦ 




♦BYTE OF ERRSETO^ 




♦ SUBTASKf R5 ♦ 




♦ TO X«50' FOR * 




* TO ITS PIB ♦ 




♦ NORMAL EOJ ♦ 




♦ EXTENSION * 




* * 




***************** 




***************** 





.* 



F4 ♦. 

END ♦. 
OF I/O 
REQUESTOR 
TABLE . 



HAS 

FETCH 

STARTED 



*****D5********** 
♦ZERO OUT BYTES ♦ 

♦ 6-13 OF PIB ♦ 
♦XTNSN (PRIORITY^ 
♦ECB ADDR, MAIN ♦ 

♦ TASK DISPL) ♦ 
***************** 



♦ DID ♦, 

SUBTASK 

HAVE AN 

ECB 



*****F5********** 

♦ POST SUBTASK ♦ 

♦ TERMINATION ♦ 

♦ IN ECB - ♦ 
♦BYTE 2, BIT =* 

♦ 1 * 
***************** 



*****65********** 
♦UNWAIT MJ+ 

*_*_*_*_*_*_*_*_* 

♦ READY ANY ♦ 

♦ WAITING ♦ 

♦ TASKS ♦ 
***************** 



SVC39C 

*****H5 ********** 

♦ POINT REG 2 ♦ 

♦ TO MVCFLD+2 ♦ 

♦ (X'40« IN ♦ 

♦ PRIORITIES ♦ 

♦ AREA) ♦ 
***************** 



.♦ ANY ♦. 

LOW ORDER * 
BITS OF TID 



*****j2 ********** 

* SAVE TID FROM * 
♦PIK + 1 (COMREG^ 

* EXTENSION) ♦ 

* AT TIDSAV + 1 ♦ 

***************** 

**** 

* * 

* 10 * 

* * 
**** 

SVC39B X 

*****K2****^**^ 

* LOAD REG 2 ♦ 

* WITH ADDR OF ♦ 
♦TASK REQUESTOR ♦ 

* I/O TABLE ♦ 



X ***************** 
***** 
♦BA ♦ 
♦ A3+ ERR21 



**J3******* 



*********** 



*****K3********** 
♦ERRGO BB^ 
*_*_*_*_*_*_*_*_* 

♦ SET UP ♦ 

♦ SUBTASK TO ♦ 

♦ CANCEL ♦ 
***************** 



*****J4********** 
♦SAVE REG 10 CON* 
♦TENTS, PIB ADD-^ 
♦RESS. LOAD ADDR* 
* OF PIB TO BE * 
♦DETACHED IN RA ♦ 
***************** 



*****K4******+*^+ 
♦SVC11A FE* 
*_*_*_*_*_*_*_*_* 

* FREE THE * 

* LTA * 

* * 
***************** 



SVC39D 

*****J5********** 

♦ INCREMENT * 

♦ REG 2 BY 1 * 

♦ TO POINT TO ♦ 

♦ NEXT BYTE IN ♦ 

♦ MVCFLD ♦ 
***************** 



THIS TASK ♦. NO 
TO BE .♦... 
. REMOVED .♦ 



* 2 ♦ 

* * 
**** 



* 3 * 

* * 
**** 



***** 
♦MF ♦ 
♦ Bl* 
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Chart MP. $$A$SUP1 - SGTHAP Macro, DETACH a Task (Part 2 of 2) 
Refer to Chart 03. 



***** 

*ME * 
* K5* 



* MVCFLD *. YES 
BYTE 1 G.T. .*.... 
*. X'50' .* 
*. .* 

*. .* 
* NO 



*****Cl********** 

* SUBTRACT 1 * 

* FROM REG 2- * 

* BACK UP * 
♦MVCFLD POINTER * 

* BY 1 BYTE * 

***************** 



39E X 








SVC39J X 


«****B2 ********** 








*****B4********** 


* * 








* INCREMENT * 


* BACK UP REST * 








* R2 12 BYTES * 


* OF MVCFLD * 








* TO POINT TO * 


* 1 BYTE * 








* NEXT TRK HOLD * 


* * 




**** 




* TABLE ENTRY * 


***************** 




* * 

* 2 * 

* * 
**** 




***************** 
X 


39F X 




X 




.*. 


*****C2********** 


*****C3********** 


C4 *. 


♦TKPRTY MJ* 


* 


PICK UP TID, 
DIVIDE BY 


* 


.* *. 


*_ *_* _*_*_*_*_*_* 


* 


* 


.* TRACK *. NO 


* ADJUST * 


* 


2 (FOR 8 


* 


♦.HELD BY THIS .♦•. 


* TASK'S * 


* 


BYTES PER 


* 


*. TASK .* 


* PRIORITIES * 


* 


ENTRY) 


* 


*. .* 


***************** 


***************** 


♦. .♦ 



YES .♦ MVCFLD * 
...*. BYTE G.T. 
♦. X'50' .* 



*****D2********** 

* SHIFT TID 4 * 

* BITS TO RIGHT * 
♦STORE AT TIDTRT* 

* TO MAKE PIB * 

* AVAILABLE ♦ 
***************** 



** 


***£}********** 


E2 *. 


* 


POINT * 


.* * 


* 


REGISTER 7 * 


.* PC 


* 


TO CORRECT ♦ 


*. SUPPORT 


* 


PIB ♦ 


*. *A2 


* 


* 


*. .* 



***************** 



**P1******* 

* SET PIB *, 

♦ BYTE 15, * 
♦BIT 6 OFF - NO * 

* SUBTASKS * 

* ATTACHED * 
*********** 



*****P2********** 

* USING TID * 

* CALC PROPER ♦ 

* PC TABLE ♦ 

* ENTRY ADDR, ♦ 

* PUT IN R2 ♦ 
***************** 



Gl *. 


. *****G2********** 


.* *. 


* ZERO OUT ♦ 


.* MAINTASK *. NO 


* THE 8-BYTE * 


*. DETACHED .*... 


♦ PC TABLE ♦ 


*. .* 


♦ ENTRY * 


*. .* 


* * 


♦. .* 


***************** 


* YES 




X." 


!x 




X 


SVC39E1 X 


• *. 


**Hi******* 


H2 *. 


* ATTACH * 


.* *. 


♦ MAINTASK * 


.♦ AB *. 


* WITH * 


*. SUPPORT .* 


* X«83« * 


*. *A2 .* 


* * 


*. .* 


*********** 


♦. .♦ 


• 


* YES 


"a 




X 




**** 




* * 




* 1 * 


X 


* * 


*****J2 ********** 


**** 


* * 




* POINT R2 * 




* TO AB ♦ 




* TABLE ♦ 



***************** 



PC *. 

SUPPORT .= 

*A2 .♦ 



**** 

* * 

* 2 ♦ 

* * 
**** 



**** 

X 
*****D3********** 

* POINT TO * 

* PROPER ENTRY * 

* AND ZERO OUT * 

* THE ENTIRE ♦ 

* ENTRY * 
***************** 

**** I 

* * . 

* 4 *.X. 

* * . 
**** X 

.♦. 

E3 *. 

.* TRACK *. 

.* HOLD *. Ni 

*. SUPPORT .*. 

*. *A2 .♦ 

♦ . .♦ 



ANY 

TRACKS 

HELD 



**G3******* 

♦ SET SW * 
TO RETURN : 

FROM SVC 36 
ALC, BIT 

* 0=1 * 
*********** 



*****H3********** 

* POINT * 

* R2 TO 12 * 

* BYTES BEFORE * 

* TRACK HOLD * 

* TABLE * 
***************** 



*****J3********** 

* LOAD NO. OF ♦ 

* TRACK HOLD * 

* TABLE ENTRIES ♦ 

* INTO R3 * 

* * 
***************** 



*****Q4********** 

* CLEAR NO. OF * 

* HOLDS COUNTER * 

* (TRACK HOLD * 
*TABLE, BYTE 11 ♦ 

* BITS 4-7 = 0) * 
***************** 



*****E4********** 

♦SVC36 MB^ 
*_ *_ *_ *_ *_*_*_*_* 

* FREE ♦ 

* THE * 

* TRACK * 
***************** 



.* END OF *. NO 
*. TRACK HOLD .♦... 
*. TABLE .* 



**** 

* * 

* 5 * 

* * 
**** 



**G4******* 

♦ SET OFF * 
SVC 36 

RETURN SW- 
ALC, BIT 

* = * 
*********** 



SVC39L 

*****H4********** 

* POST PIB * 

* AVAILABLE ECB * 

* (SPVECB+2, * 

* BIT 0=1) * 

* * 
***************** 



**** 

* * 

* 3 ♦ 

* * 
**** 



*****J4********** 

* POINT Rl TO * 

* SPVECB TO * 

* INDICATE * 

* PIB AVAILABLE * 

* * 
***************** 



*****K4********** 

♦UNWAIT MJ* 
*_ *_ *_ *_ *_*_*_*_* 

♦ TAKE WAITING ♦ 

♦ TASK FROM ♦ 

♦ WAIT STATE ♦ 
***************** 



***** 
*BC * 
* Bl* 
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Chart NJ. $$ANERAG - Recorder File Last Track Error Message Writer for OBR/SDR 
Refer to Chart 13. 



****A1********* 

* * 

* $$ANERAG * 

* * 
*************** 



IJBER635 

*****£ 1********** 

* SSM TO * 

* ENABLE * 

* SYSTEM FOR * 

* INTERRUPTS * 

* * 
***************** 



*****d********** 

* SET UP * 

* REGISTERS * 

* FOR PHASE * 

* USAGE *A5 * 

* * 
***************** 



*****D ]_********** 

* RELOCATE * 

* THE CCW * 

* ADDRESS IN * 

* SDR CCB * 

* * 
***************** 



**E1******* 
♦MOVE X'01' * 

* INTO RIK- 
SYSLOG I/O 

* REQUEST 

* * 

*********** 



SDRMOO 

**pi******* 

♦MOVE X«08' * 

* TO ERROR 
* FLAG MASK- 

* STATUS 

* * 

*********** 



**** 

* * 

* L * 

* * 
**** 

X 
*****Q2 ********** 

* PUT MESSAGE * 

* ADDRESS * 

* INTO CCW * 

* * 
***************** 



*A5 
REGISTER USAGE 
REG 10 - POINTER TO 
SYSTEM ERROR QUEUE 
REG 11 - PHASE BASE 

REG STER 
REG 12 - POINTER TO 
OBR/SDR COMMUNICATIONS 
REGION. 



***************** 



*****D2 ********** 

* POINT * 

* REGISTER 8 * 

* TO LUB * 

* REGISTER 9 * 

* TO PUB * 
***************** 



*****E2«*#***«*4'* 

* INSERT * 

* POINTER TO * 

* LOGFILE PUB * 

* INTO REG 14 * 

* *C5 * 
***************** 



*****F2********** 

* CALCULATE * 

* ACTUAL PUB * 

* ENTRY FOR * 

* SYSLOG IN * 

* REGISTER 9 * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*****C3********** 

* MOVE NULL * 

* POINTER X'FF' * 

* INTO CHANQ * 

* PNTR AND CLEAR * 
♦CHAN SCHD FLGS ♦ 
***************** 



*****D3********** 

* POINT * 

* REGISTERS 15 * 

* AND TO * 

* CCB * 

* * 
***************** 



*** £3************ 
SVC 15 
* WRITE * 
ERROR 
* MESSAGE * 

***************** 



SDRI0X1 X 

*****C4********** 

* LOAD OBR/SDR * 

* FLAG BYTE * 

* ADDRESS INTO * 

* REGISTER 13 * 

* * 
***************** 



**D4******* 
♦POST STATUS* 

* BIT -X'80'- * 
* IN OBR/SDR 

* FLAGBYTE * 
* * 

*********** 



*****£ 4********** 

* SET UP REG * 

* 9 WITH TASK * 

* SELECT EXIT * 

* ADDRESS, EXT02 * 

* * 
***************** 



*C5 
LOGFILE - 
DISPLACEMENT 
OF 8 INTO LUB. 



**D5******* 

* SET UP * 

* FOR LAST * 
TRACK MESSAGE = 

* 'OTOOI" * 

* * 
*********** 



***** 
*LA * 
* Bl* 



**** 

* * 

* 5 * 

* * 
**** 



**P5******* 

* SET UP * 
FOR CHANNEL 
QUEUE FULL 

MESSAGE 

* •0T04I* * 
*********** 



.♦. ERRQUED1 .*. 




Gl *. G2 *. 




.* ♦ . .*ERRORS * 




YES .♦ LAST ♦. NO ,*QUEUED FOR 


* 


...*. TRACK .*.... *. DEVICE- 
♦ . *H4 .♦ . ♦. PUBCSFLG 




* 


*. .* . ♦ .X'LO'.* 




X *. .* X *. .* 




**** * **** * NO 




* * * . 




4 * **** * 5 * . 




* * * * * 




**** ...* 6 * *♦♦♦ 




. * * X 




.X. ♦ *** .*. 




HI *. H2 ♦ . 




.* *. .* *. 


.* UPS *. YES NO .♦ NULL 


* 


*. OPTION .*.... X....+. CHANQ 




*. .* . *. POINTER 


'* 



****H3********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



♦ H4 
•LAST TRACK 
ON RECORDER 
FILE' 



*****jl********** 

* POINT * 

* REG 12 TO * 

* BJ MSG. * 

* ZERO * 

* * 
***************** 



HEADQUE3 

*****j2 ********** 

* SAVE CHANQ * 

* POINTER AND * 

* CHANNEL * 

* SCHEDULER * 

* FLAGS * 
***************** 



*****j 3********** 

* RESTORE * 

* CHANQ PNTR * 

* AND CHAN * 

* SCHEDULER * 

* FLAGS * 
***************** 
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Chart NK. $$ANERAD - List Passer for SDR Processor 
Refer to Chart 11. 



****A2********* 

* $$ANERAD * 

* *A4 * 

* * 
*************** 



COMMENCE 

*****B2 ********** 

* LOAD ADDR OF * 

* COMREG. * 

* ERBLOCK, AND * 

* PUB ENTRY FOR * 

* ERROR DEVICE * 
***************** 



*****C2 ********** 

* GET ADDRESS * 

* OF LIST * 

* POINTER * 

* STRING IN * 

* WORK REG * 
***************** 



*****D2 ********** 

* PUT DEVICE * 

* TYPE IN TEST * 

* INSTRUCTION * 

* FROM LIST * 

* POINTER * 
***************** 



*****E2 ********** 

* * 

* SSM TO ENABLE * 

* SYSTEM FOR * 
♦I/O INTERRUPTS * 

* * 
***************** 

**** * 

* * 

* 1 ♦ .X. 



DEVICE 
TYPES 

EQUAL 



♦A4 
BEFORE THE ROUTINES ARE FETCHED TO 
PROCESS A PARTICULAR ERROR CONDITION, 
THIS ROUTINE IS FETCHED. IT GETS THE 
DEVICE TYPE FOR THE I/O DEVICE 
CORRESPONDING TO THE CURRENT ERROR 
AND PASSES THE ASSOCIATED LIST. THE 
LIST IS A STRING OF CONSTANTS THAT 
MAP INTO SOME OR ALL OF THE 16 
COUNTERS MAINTAINED BY OBR/SDR 
SUPPORT. SEE FIGURE 48. 



* POINT WORK * 

* REGISTER TO * 

* SDR TABLE * 

* * 
***************** 



*****C3********** 

* PICK UP * 

* LIST LENGTH * 

* IN REGISTER * 



***************** 



*****D3********** 

* MOVE LIST * 

* TO SDR * 

* TABLE * 

* * 
***************** 



* NAME TO * 

* FETCH * 

* $$ANERRA * 
***************** 



****G3********* 

* SVC 3 * 
♦FETCH $$ANERRA ♦ 

♦ CHART NL ♦ 
*************** 



*****P4********** 

♦ MOVE RD ♦ 

♦ INTO PHASE ♦ 

♦ NAME TO ♦ 

♦ FETCH ♦ 

♦ $$ANERRD ♦ 
***************** 



***#G4***+***+* 

♦ SVC 3 ♦ 
♦FETCH $$ANERRD ♦ 

♦ CHART PA ♦ 
*************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



*****H2****«+**** 

♦ * 

♦ POINT TEST ♦ 

♦ TO NEXT ♦ 

♦ DEVICE TYPE ♦ 

♦ * 
***************** 



278 DOS Supervisor and Related Transients 



Chart NM. $$ANERRC - ERP Monitor 
Refer to Chart 11. 



****A2********* 

* * 

* $$ANERRC * 

* * 
*************** 



*****B2**^*^*** 
♦LOAD ADDRESSES * 

* OF COMREG. * 

* ERBLOC AND * 

* PUB. SSM TO * 
♦ENABLE INTRPTS ♦ 
***************** 



*****C2********** 

♦ * 

♦ SET UP TO ♦ 

♦ FETCH ♦ 

♦ $$ANERAI ♦ 

♦ * 
***************** 



♦ DEVICE ♦. YES 
2826 MOD I ...... 

♦. .♦ . 



****# E 2********** 

♦ * 

♦ RESET FETCH ♦ 

♦ NAME ♦ 

♦ TO $$ANERRI ♦ 

♦ * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 

X 

*****B4********** 

♦GET ADDRESS OF ♦ 

♦ COMREG ♦ 

♦ INTO REG 9 ♦ 

♦ * 
***************** 



**** 

* * 

* 2 ♦ 

* * 
**** 



♦ D3 
$$ANERR2 OR $$ANERP2 
AS CALLED OUT BY PHASE 
NAME MODIFICATION. 
REFER TO PLM'S GY30-5001 
AND GY30-5002 FOR TP ERP. 



*****Q4********** 

♦ DETERMINE ♦ 

♦ ENTRY IN ♦ 

♦ CHANNEL QUEUE ♦ 

♦ AND GET CCB ♦ 

♦ ADDRESS ♦ 
***************** 



ON LINE 

TEST 
REQUEST 



*****C5********** 

♦ SET LAST ♦ 

♦ BYTE OF ♦ 
X* FETCH NAME ♦ 

♦ TO C«2« * 

♦ * 
***************** 



****D5********* 

♦ SVC 3 * 

♦ FETCH T/P ERP ♦ 

♦ *D3 ♦ 
*************** 



*****E5********** 

♦ * 

♦ SET FETCH ♦ 
X+ NAME TO ♦ 

♦ $$ANERPI ♦ 

♦ * 
***************** 



.♦ 2701, ♦. 
YES .♦7770, 7772, ♦. 
,♦. 2826 MOD .♦ 



*****P4********** 

♦ SAVE CCB BITS ♦ 

♦ 8-20, GET ♦ 

♦ STORAGE KEY, ♦ 

♦ SAVE CCB ♦ 

♦ BITS 24-27 ♦ 
***************** 



G3 ♦. 
.♦ IS ♦. 
YES .♦ THIS A 
...♦. RETAIN/370 
♦ . DEVICE . 



**** 

* * 

* 3 * 

* * 
**** 



*****G5********** 

♦ GET LOGICAL ♦ 

♦ TRANSIENT KEY ♦ 
.X + ADDRESS FROM ♦ 

♦COMMUNICATIONS ♦ 

♦ REGION ♦ 
***************** 



**H2******* 

* * 

♦ POST CCB ♦ 
♦ NOT AVAILABLE ♦ 

♦ IN ERRFLG ♦ 

♦ * 
*********** 



LASPHAS X 

*****H3**++**+**=* 

♦ INSERT X'27« ♦ 
♦UNKNOWN DEVICE ♦ 

♦ MSG CODE. SET ♦ 

♦ UP TO FETCH ♦ 

♦ $$ANERRM ♦ 
***************** 





J2 ♦. 


**j3******* 




.♦ ♦. 


♦ TURN OFF ♦ 




YES .♦ CCB ♦. 


♦ ALLOW RETRY ♦ 




...♦. AVAILABLE .♦ 


♦ AND IGN BITS 




♦ . .♦ 


♦ 3 AND 5 IN ♦ 




♦ . .♦ 


♦ERQUE FLAG ♦ 




X ♦. .♦ 


*********** 




**** * NO 






* * 


**** 






♦ 1 ♦ 


* * 




♦Kl 


* * . 


♦ 3 +.X 




$$ANERRM (CHART NA) OR 


**** 


* * 




$$ANERAI (CHART UG) 




**** 




AS CALLED BY PHASE 


TPIGNOR I 


EXIT 




NAME MODIFICATION. 


X 


X 




****K2 ********* 


****K3********* 




♦ SVC 3 ♦ 


♦ SVC 3 




♦ EXIGN ♦ 


♦ +K1 




♦ CHART DD ♦ 


* 




*************** 


******** 


******** 



*****H4********** 

♦ GET QTAM ♦ 

♦ ADDRESS FROM ♦ 
♦COMMUNICATIONS ♦ 

♦ REGION ♦ 

♦ * 
***************** 



J4 ♦. 
♦ KEY ♦. 
ADDRESS ♦. 
EQUALS .♦ 

QTAM .♦ 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart NN. $$ANERRB - Disk ERP 
Refer to Chart 11. 



****A1********* 

* * 

* $$ANERRB * 

* * 
*************** 



IJBERB33 

*****Bl********** 
♦LOAD ADDRESSES * 

* OF COMREGt * 
♦ERBLOC.AND PUB * 

* SSM TO ENABLE * 

* INTERRUPTS * 
***************** 



.* MISSING *. NO 
.X*. ADDRESS .♦... 
*. MARKER .* 



* * 

* INSERT X'14» * 

* OVERRUN * 

* MESSAGE CODE * 

* * 
***************** 



*****C3********** 

* INSERT X«13' * 

* MISSING * 
♦ADDRESS MARKER ♦ 

* MESSAGE CODE ♦ 

* * 
***************** 



*****B5********** 

♦ INSERT X«17' ♦ 
.X + FILE PROTECT ♦. 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



*****Q5********** 

♦ INSERT X'18» ♦ 

♦ COMMAND ♦ 
X+ REJECT ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



DTCH 

*****D1********** 

♦ CALCULATE ♦ 

♦ CHANNEL ♦ 

♦ QUEUE ENTRY ♦ 

♦ AND GET ♦ 

♦ CCB ADDRESS ♦ 
***************** 



El ♦. 

.♦ VALID ♦. 

.♦ CHANNEL ♦. 

QUEUE 

♦. POINTER .♦ 



D2 ♦ . 

.♦ USER ♦. 

.♦WANTS DATA ♦. NO 

.X+. CHECKS .♦... 

♦.RETURNED .♦ 

♦ . .♦ 

*. .* 

♦ YES 



**£2******* 

♦ TURN ON ♦ 

PASSBACK 

BIT 2 



**** 

* * 

* 2 ♦ 

* * 
**** 



* 


1 ♦ 




CHAINCH .♦. 


EXITAB X 


* * 




D4 ♦. 


**D5******* 


**** 




.♦ ♦. 


♦ TURN OFF ♦ 






YES .♦ CHAINING ♦. 


♦ ALLOW RETRY ♦ 






♦. CHECK .♦ 


♦AND IGNORE BITS+ 








♦. .♦ 


♦ 3 AND 5 IN ♦ 








♦ . .♦ 


♦ERQUE FLAG ♦ 








♦ . .♦ 


*********** 








♦ NO 










**** . 










* * . 










♦ 2 + .X. 


X 








* ♦ . 


**** 








**** 


* * 


X 




UNKN X 


* 1 * 


***** £3********** 


*****£4********** 


* * 


♦ INSERT X'14' 

♦ CHAINING 


* 


♦ INSERT X'19» ♦ 

♦ UNDETERMINED ♦ 


**** 


* 




♦ CHECK 


* 


♦ ERROR ♦ 




♦ MESSAGE CODE 


* 


♦ MESSAGE CODE ♦ 




* 


* 


* * 




********* 


******** 


***************** 

x! 





♦ INSERT X'll» ♦ 

♦ DATA CHECK ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



.♦ DATA ♦. 
.♦ CHECK IN ♦ 
♦. COUNT 
♦. FIELD .♦ 



**H1******* 
TURN ON DATA^ 

♦ CHECK IN ♦ 
♦COUNT FIELD BIT+ 

♦ IN CCB, ♦ 
BYTE 3.BIT 0* 

*********** 



*****jl********** 

♦ INSERT X'16' ♦ 

♦ DATA CHECK IN ♦ 

♦ COUNT FIELD ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



VERIF 

**G2+++**** 
♦ TURN ON ♦ 

* READ/VERIFY ♦ 
...X^DATA CHECK BIT ♦ 

♦ IN CCB, ♦ 
BYTE 3, BIT 3+ 

*********** 



*****H2 ********** 

♦ CALCULATE ♦ 

♦ ADDRESS ♦ 

♦ OF ♦ 

♦ LAST USED ♦ 

♦ CCW ♦ 
***************** 



.♦. 

J2 ♦. 

.♦ WAS ♦. 

.♦ COMMAND * 

.CODE READ OR 

♦. VERIFY .♦ 



G3 *. 

.* USER ♦. 

.♦ WANTS ♦ 

•X^. DATA CHECKS 

♦.RETURNED .* 

*. .* 

*. .* 



**G4******* 

♦ TURN ON ♦ 
PASSBACK 
BIT 2 IN 

ERQUE FLAG 

* * 
*********** 



.♦. 

H3 ♦. 

.♦ WERE ♦. 

SKIP AND : 

SILI BITS 

ON 

*. .* 

♦ . .♦ 



SKSLI 

**H4******* 

♦ TURN ON ♦ 
♦ DASD VERIFY 

...X+ ERROR BIT IN 
♦CCB, BYTE 3, 

♦ BIT 6 ♦ 
*********** 



♦ INSERT X«12« ♦ 

♦ VERIFY ERROR * 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



****K4********* 

* SVC 3 ♦ 
♦FETCH $$ANERRM * 

* CHART NA ♦ 
*************** 
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Chart PA. $$ANERRD - Phase 1 of Tape ERP (Part 1 of 2) 
Refer to Chart 13. 



****A1********* 

* * 

* SSANERRD * 

* * 

*************** 



*****51********** 



***************** 



***** 
*PB * 
* E4* 



**** 

* * 

* i * 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 

X 

*****Q4********** 

* * 

* SAVE USER * 

* POINTERS TO * 

* CCH AND * 

* RETRY CTR * 
***************** 



***************** 



.* CHANNEL 
*. QUEUE PNTR 
*. VALID . 



****C2********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 



* COMPUTE UNIT * 

* NUMBER AND * 

* SAVE FOR * 

* NEXT PHASE * 
***************** 



*****C5********** 

* * 

* SET FSR * 
X* COMMAND IN * 

* REPCCW * 

* * 
***************** 



*****04********** 

* * 

* INCREMENT * 

* RETRY * 

* COUNTER * 

* * 
***************** 



* READ 
OPPOSITE 

♦.RECOVERY . 
*.{ROR).* 



ERROR 

ON 

.RECOVERY 



*****D3********** 

* * 

* GET RETRY * 

* COUNTER * 

* ADDRESS * 

* FROM PUB * 
***************** 



*****E3********** 

* * 

* GET * 

* TEBVSB * 

* PTR * 

* * 
***************** 



F3 *. *****F4********** 

.* *. * * 

.* TEBV *. YES * GET PTR * 

*. SPECIFIED .* X* TO TEB * 

*. .* * ENTRY AND * 

*. .* * SAVE * 

*. .* ***************** 

* NO 

.*X .* 

X 
ERR120 .*. 

G3 *. *****Q4********** 

.* *. * * 

.* TEB'S *. YES * GET PTR TO * 

*. SPECIFIED .* X* TEB ENTRY * 

*. .* * AND SAVE * 

*. .* * * 

*. .* ***************** 

* NO 



H3 



* TURN OFF * 

* RETRY AND * 

* IGNORE BITS * 

* * 
***************** 



*****jl********** 

* INSERT X'31« * 

* DEVICE NOT * 

* OPERATIONAL * 

* CODE FOR * 

* MSG. WRITER * 
***************** 



ROR 

**. .** 

*. .* 
* NO 



***** 
*PB * 
* J3* 
* * 



*****j 3********** 



***************** 



****«!********* 

* SVC 3 * 

* SSANERRM * 

* CHART NA * 
*************** 
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Chart PB. $$ANERRD - Phase 1 of Tape ERP (Part 2 of 2) 
Refer to Chart 13. 



***** 

*PA * 

* D4* 

* * 



.* RETURN *. 

.FROM $$ANERRF.* 

*. INTV .* 

*. REQ .* 



. . . ERR395 
D2 *. 

• *CMD REJ*. . ****D3********* 

.♦INTERV REQ *. YESX * SVC 3 * 

♦ BUS OUT, EQUIP.* X*FETCH $$ANERRF * 

*. CHECK, .* * CHART PE * 

♦OVERRUN* *************** 
*. .* 
* NO 



.* 
. .* 
* NO 



*. 
DATA *. NO 

CHECK .*... 



****P3********* 

* SVC 3 * 

* $$ANERAM * 

* CHART PJ * 
*************** 



**E4******* 

* CHANGE * 
UNIT CHECK 

TO UNIT 
EXCEPTION 

* * 
*********** 



X 

***** 

*PA * 
* C2* 



*****G2********** 

* SET DATA * 

* CHECK MESSAGE * 

* CODE X'll« * 

* * 
***************** 



.* WRITE 
*. OR CONTROL 
*. COMMAND ." 
*. .* 



****H3********* 

* SVC * 
.X* $$ANERAP * 

* CHART PN * 
*************** 



J2 



***** 

*PA * 

* H3* 

* * 



t. . ****J3********* 

LAST *. YES * SVC 3 * 

RETRY .* X*FETCH $$ANERAS * 

.* * CHART PX * 

. * *************** 

*. .* 
* NO 



****K2 ********* 

* SVC 3 * 

* $$ANERRE * 

* CHART PD * 
*************** 
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Chart QA,. $$ANERRG - Phase 1 of Data Cell ERP (Part 1 of 3) 
Refer to Chart 11. 



**** 

* 2 * 

**** 



****A1********* 

* * 

* $$ANERRG * 

* * 
*************** 



IJBERG20 

*****Bl********** 
♦LOAD ADDRESSES * 

* OF COMREG * 

* ERBLOC, AND * 

* PUB ENTRY * 

* * 
***************** 



*****Ci********** 

* * 

* ADD 1 * 

* TO RETRY * 

* COUNTER * 

* * 
***************** 



*****A2 ********** 
♦GET SEEK ADDR. * 

* FROM 1ST CCH * 

* AND SAVE IN * 

* ERBLOC * 

* * 
***************** 



*****B2********** 

* * 

* SAVE USER'S * 

* DATA CELL * 

* ADDRESS * 

* * 
***************** 



.* CHANNEL *. 
. DATA 
*. CHECK .* 



A02 X 

*****B3********** 

* INSERT X'10« * 

* EQUIP CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



*****B4********** 

* INSERT X«28« ♦ 

* CHANNEL DATA ♦ 

* CHECK MESSAGE * 

* CODE * 

* * 
***************** 



***** 
*QB * 
* E2* 



.* 
*. 



C3 *. 

n * 

EQUIP 

CHECK 



.♦ *• 






.* CCB * 


NO 


*» AVAILABLE 


♦ . 




*. .* 






*. .* 






♦. .* 




X 


♦ YES 




**** 

* 

* 1 
* 
**** 


X 






*****£ I********** 




♦ CALCULATE 


* 




♦ AND SAVE CCB 


* 




* ADDR-SAVE 


* 




♦ CSW STATUS 


* 




♦ BYTES 


* 




***************** 





NO *. YES 
RECORD .*... 
FOUND .* 



BOL 
NO 



***** 

*QB * 

* A3* 

* * 



*****PX********** 

* * 

* SSM * 

* ENABLE I/O ♦ 

* INTERRUPTS ♦ 

* * 
***************** 



VALID *. YES 
CHANNEL .*.... 
. QUEUE .* 
*.PNTR .* 



*****H1********** 

♦OBTAIN ADDRESS ♦ 
♦OF EXIT, IGNORE* 

* FROM ERBLOC * 

* * 
***************** 



*****jl********** 

* * 

* ZERO LAST * 

* BYTE OF ♦ 

* FETCH NAME * 

* * 
***************** 



****Ki********* 

* * 

* SVC 3 * 

* * 
*************** 



*****G2 ********** 

* INSERT X'26' * 

* INVALID SEEK * 

* MESSAGE * 

* CODE ♦ 

* * 
***************** 



**H2******* 

* TURN OFF * 

* RETRY AND * 
♦IGNORE BITS IN ♦ 

♦ ERBLOC FLAG ♦ 

♦ BYTE ♦ 
*********** 



****D5********* 

♦ SVC 3 ♦ 

♦ EXRTY ♦ 

♦ CHART DD ♦ 
*************** 



.♦ MISSING ♦. NO X 
♦. ADDRESS .*. 
*. MARKER .* 



*****H3********** 

* INSERT X'22« * 

* BALLAST CELL * 

* ACCESSED * 

* MESSAGE CODE ♦ 

* * 
***************** 



**J3******* 

♦ TURN ON ♦ 
♦INTERVENTION 

♦ REQ'D BIT IN 
♦ ERBLOC FLG 

♦ BYTE * 
*********** 



****G4********* 

♦ SVC 3 ♦ 
.X+FETCH SSANERRJ ♦ 

♦ CHART QF ♦ 
*************** 



♦QB-E4 
QC-E5 
***** 



****K3********* 

* SVC 3 * 
♦FETCH $$ANERRM ♦ 

♦ CHART RA ♦ 
*************** 
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Chart QB. $$ANERRG - Phase 1 of Data Cell ERP (Part 2 of 3) 
Refer to Chart 11. 



***** 

*QA * 

* E3* 

* * 



F01 X 

*****A3********** 

* INSERT X«08« * 

* INTERVENTION * 

* REQ'D MESSAGE * 

* C0DE * 
***************** 



*****C3********** 

* INSERT X«09« * 

* BUSOUT * 

* MESSAGE * 

* CODE * 

* * 
***************** 



.* 
. .* 
* NO 



YES .* *. 

....*. BUSOUT .* 
*. CHECK .* 



****05********* 

* SVC 3 * 

* EXIGN * 

* CHART DD * 
*************** 





X 




.*. 




E2 *. 




.* IS ♦ . 


YES . 


♦RETRY COUNT* 


• «.*. 


A MULTIPLE 




*. OF 16 .* 




*. , .♦ 


X 


*. .* 


**** 


* NO 


* 




1 * 




* 


X 


**** 


***** 




*QA * 




* 05* 



YES .*' DATA '* 
..*. CHECK 



.* 
* 

OVERRUN 
*. 

*. .* 
*. .* 
* NO 



X 

.*. 
G3 *. 
* *. 
MISSING *. NO 
ADDRESS .*... 
MARKER .* 



**E4******* 

* TURN ON * 
♦INTERVENTION 

* REQ'D BIT IN 
* ERBLOC FLG 

♦ BYTE * 
*********** 



****** * 

*QA * **** 
* K3+ 



♦ . .* 
♦ YES 

X 

F02 „ .♦. 

H3 ♦. 

.♦ IS ♦ . 

.♦ RETRY ♦. 

♦.GREATER THAN . 

♦ . 7 .♦ 



J3 ♦. 

.♦ IS *. 

RETRY 

COUNT 

ODD 

*. .* 

*. .* 

* NO 



****K3********* 

* SVC 3 * 
♦FETCH $$ANERRI ♦ 

♦ CHART QE ♦ 
*************** 



***** 
*QC * 
* A3* 



***** 

*QC * 

* G3* 

* * 



*****H4********** 

* INSERT X'14' * 

* OVERRUN * 

* MESSAGE ♦ 

* CODE ♦ 

* * 
***************** 



.*. 
J4 *. 
.♦ IS ♦. 
.♦RETRY COUNTS. YES 
♦. MULTIPLE OF ...... 

♦. 16 .♦ 

♦ . .* . 
♦ . .* X 
.NO ♦♦♦♦ 
**** * * 

* * * l * 
.* 2 * * * 

* * **** 
**** 



. R01 
X 

***** 

*QA * 

♦ D5+ 

* * 
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C'hart QC. $$ANERRG - Phase 1 of Data Cell ERP (Part 3 of 3) 
Refer to Chart 11. 



*QB * 
* G3* 



*****A3********** 

* INSERT X'18« * 

* COMMAND * 

* REJECT * 

* MESSAGE * 

* CODE * 
***************** 



TRACK 
CONDITION 
. CHECK . 



*X. 



* POST TRACK * 

* OVERRUN * 

* BIT IN CCB 

* BYTE 3, BIT 1 

* * 
***************** 



***** 
*QB * 
* D5* 



**C5******* 

* TURN OFF * 

* RETRY AND = 
IGNORE BITS 

* IN ERBLOC ■ 

* FLAG BYTE * 
*********** 



****04********* 

* SVC 3 * 
♦FETCH $$ANERRH * 

* CHART QD * 
*************** 



N01 
YES 



* PROTECT * 

* MESSAGE * 

* CODE * 
***************** 



*****G2********** 


G3 *. 


* INSERT X«17« * 


.* *• 


* FILE PROTECT * 


.* CHANNEL *. YES 


* MESSAGE * 


*. CHAINING .*.... 


* CODE * 


*. CHECK .* 


* * 


*. .* 


***************** 


*. .* X 




* NO ***** 




*QB * 




* H4* 




* * 
* 




G01 


X 


X 


**H2 ******* 


*****H3********** 


* TURN OFF * 


* INSERT X«19« * 

* UNDET. ERROR * 


* RETRY AND * 


* IGNORE BITS * 


* MESSAGE * 


* IN ERBLOC * 


* CODE * 


* FLAG BYTE * 


* * 


*********** 


***************** 

....xl 




X 

***** 




*QA * 




* K3* 



*****P4********** 

* POST END * 

* OF CYLINDER * 

* IN CCB BYTE * 

* 3, BIT 2 * 

* * 
***************** 



X 

***** 
*QB * 
* D5* 



***** 
*q A * 
* K3* 
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Chart QD. 



$$ANERRH - 
Refer to 



Phase 2 of Data 
Chart 11. 



Cell ERP 



**** 

* * 

* i * 

* * 
**** 



**** 

* * 

* 3 * 

* * 
**** 

.X." 



****A1********* 

* * 

* SSANERRH * 

* * 
*************** 



IJBERH20 X 

*****Bi********** 

* LOAD ADDRESS * 

* OF COMREGt * 

* ERBLOCK, AND * 

* USER CCB * 

* *D2 * 
***************** 



*****Cl********** 

* RELOCATE ADDR * 

* CONSTANTS IN * 
♦CCW'S, MOVE 1ST* 

* CCW TO CCB * 

* * 
***************** 



RDRCD 

*****01********** 

* SAVE CHAN * 

* QUEUE POINTER * 

* AND CHAN * 

* SCHED FLAG * 

* * 
***************** 



*****E1********** 

* * 

* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



.* *. 
.* *. N 

♦.UNRECOVERABLE.*. 
*. I/O .* 
♦ERRORS.* 
*. .* 
* YES 
**** 

* * . 

* 2 *.X. 

* * . 
**** 

MSGWTR X . 

*****B2***4****** 

* PREPARE X'20« * 

* ERROR ON * 

* RECOVERY * 

* MESSAGE * 

* CODE * 
***************** 



****C2********* 

* SVC 3 * 
♦FETCH $$ANERRM * 

* CHART NA * 
*************** 



*D2 
THIS CCB WAS SAVED 
IN PHASE 1 
($$ANERRG). 



*****D3********** 

* * 

* ADD 1 * 

* TO HEAD * 

* NUMBER * 

* * 
***************** 



*****E3********** 

* * 

* COMPUTE * 

* SEEK * 

* ADDRESS * 

•je * 

***************** 



*****D4********** 

* POST END * 

* OF CYLINDER * 

* BIT IN CCB * 

* BYTE 3t BIT 2 * 

* * 
***************** 



****F4********* 

* SVC 3 * 

* EXIGN * 

* CHART DO * 
*************** 



A5 *. 
.* *. 
.YES .* *. 

....*. CHANNEL .* 
*. BUSY .* 



*****B5********** 



***************** 



*****C5********** 

* LOAD ADDRESS * 

* OF CHK, CSW * 

* ROUTINE * 

* (EXWHY) * 

* * 
***************** 



.* SYSTEM * 
.*.HAVE STORAGE 
*. PROTECT .* 
*. .* 



*****E5********** 

* MOVE CHAN AND * 
♦UNIT TO IOOPSW * 

* AND GET * 

* STORAGE * 

* PROTECT KEY * 
***************** 



.* VALID *. NO 
*. CHANQ .♦... 
♦. POINTER .♦ 



*****Gi********** 

* CALC. LUBID, ♦ 

* MOVE LUBID * 

* TO CCB * 

* AND SET * 

* RIK TO * 
***************** 



***Hl************ 

* SVC 15 * 
READ HOME 
* ADDR ♦ 

***************** 



*****F2********** 
*0BTAIN ADDR OF * 

* EXIT, IGNORE * 
.X*FROM ERBLOC AND* 

* LAST BYTE * 

* OF FETCH NAME * 
***************** 



****G2********* 

* * 

* SVC 3 * 

* * 
*************** 



.* FILE *. 

♦PROTECT OPTION. 

♦. IN USE .♦ 



**G3******* 

* * 

♦ SET FILE 
MASK COMMAND 

♦ TO NOP 

* * 
*********** 



****P5********* 

* SVC 3 * 

* EXWHY * 

* CHART DD * 
*************** 



*****H3********** 

* MOVE SEEK CCW * 

* TO CCB AND * 

* SSM TO * 

* DISABLE * 

* INTERRUPTS * 
***************** 



***** j 3********** 

* GET CHANNEL * 

* AND UNIT OF * 

* ERRONEOUS * 

* DEVICE * 

* * 
***************** 



IOERR 

*****«!********** 

* RESTORE CHANQ * 

* POINTER, * 

* RESTORE CHAN * 

* SCHEDULE FLAG * 

* * 
***************** 



RSTQPT X 

*****K2********** 

* RESTORE CHANQ * 

* POINTER, * 

* RESTORE CHAN * 

* SCHEDULE FLAG * 

* * 
***************** 
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Chart QE. $$ANERRI - Phase 3 of Data Cell ERP 
Refer to Chart 11. 



**** 

* * 

* i * 

* * 
**** 



****Bl********* 

* * 

* $$ANERR1 * 

* * 
*************** 



* LOAD ADDRESSES * 

* OF COMREG * 

* AND ERBLOC * 

* * 
***************** 



A3 *. 

.* *. 

* RETRY A 

MULTIPLE 

*. OF 32 • 

*. .* 

*. .* 

* YES 



*****B3********** 

* SET UP SEEK * 

* ADDRESS IN * 

* 1ST SEEK CCW * 

* AND NO-OP 2ND * 

* SEEK CCW * 
***************** 



STRIP 

NUMBER 

00 



X 


E062 X 


*****oi********** 


*****D2 ********** 


* RELOCATE * 


* * 


* CONSTANTS IN * 


* ADD 1 * 


* CCHS AND SET * 


* TO STRIP * 


* R IK TO * 


* NUMBER * 



***************** 



READ 
* HOME * 
ADDR 
***************** 



E050 

*****p !********** 

* MOVE * 

* HOME ADDRESS * 

* TO ERBLOC * 

* SEEK * 

* ADDRESS * 
***************** 



***************** 



*****03********** 

* * 

* SUBTRACT 1 * 

* FROM STRIP * 

* NUMBER * 

* * 
***************** 



*. .* 
*. .* 
* NO 



*****Hi********** 

* INITIALIZE * 

* INTERNAL * 

* RETRY * 

* COUNTER * 

* WITH A 9 * 
***************** 

**** 



***** £3********** 

* INSERT NEW * 

* STRIP NO. * 

* IN SEEK * 

* ADDR IN * 

***************** 



**_*_*_*_*_*_*_** 



***************** 



****G3********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



****A4********* 



*************** 



IORTN X 

*****Q4.********«* 

♦SAVE CHANQ PTR.* 

* AND CHAN. * 
♦SCHLDL, FLAGS, * 

* SSM TO ENABLE * 

* I/OINTERRUPTS * 
***************** 



VALID 

CHANQ 

PTR 



*****Q4********** 

* CALCULATE * 

* LUBID AND * 

* STORE IN * 

* CCB * 

* * 
***************** 



***E4************ 
SVC 15 
* EXECUTE * 

CHANNEL 
* PROGRAM * 

***************** 



*****D5********** 
♦OBTAIN ADDR OF * 

* EXIT, IGNORE * 

* FROM ERBLOC * 
*AND LAST BYTE* 

* OF FETCH NAME ♦ 
***************** 



****£5********* 

* * 

* SVC 3 * 

* * 
*************** 



.* CHANNEL *. YES 
QUEUE 
*. FU' ■ 



**** 

* * . 

* 3 *.X. 

* * . 
**** X 

.* 
G4 



FULL 

. .*" 
* NO 



IOERR 

*****G5********** 

* RESTORE CHANQ * 

* POINTER AND * 
*CHAN SCHEDULER * 

* FLAGS * 

* * 
***************** 



2 *.X 



**** 

E051 X 

*****jl********** 

* SET UP * 
*SEEK ADDRESSES * 

* 1 AND 2 IN * 

* SEEK CCW'S * 

* * 
***************** 



8TH *. N 
INTERNAL .*. 
. RETRY .* 
*. .* 



****H2********* 

* SVC 3 * 
♦FETCH $$ANERRK ♦ 

* CHART QH * 
*************** 



B050 

***** J2 ********** 

* SET UP * 

* CCW IN CCB * 
..X* FOR NEXT * 

* SEEK * 

* * 
***************** 



***K2 ************ 
IORTN QE 
**_*_*_*_*_*_*_** 
SEEK TO 1ST 
* AND LAST * 
TRKS OF STRIP 
***************** 



****H3********* 

* SVC 7 * 

* WAIT * 

* * 
*************** 



* RESTORE * 

* CHANQ * 

* POINTER * 

* * 
***************** 



RSTFLG 

*****j4********** 

* RESTORE * 

* CHANNEL * 

* SCHEDULER * 

* FLAGS * 

* * 
***************** 



****K3********* 

* * 

* RETURN *X. 

* * 
*************** 



MSGWTR 

*****j5********** 

* INSERT X«20« * 

* ERROR ON * 

* RECOVERY * 

* MESSAGE * 

* CODE * 
***************** 



****K5********* 

* SVC 3 * 
♦FETCH $$ANERRM ♦ 

* CHART NA ♦ 
*************** 
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Chart QF. $$ANERRJ - Phase 4 of Data Cell ERP (Part 1 of 2) 
Refer to Chart 11. 



RETRY *. 
COUNTER .*X. 
= 16 .* 



♦♦♦♦ 

* * 

* 5 * 

* * 
♦*** 



****B1********* 



*************** 



IJBERI24 

*****Cl********** 
♦LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOC, AND * 

* USER CCB * 

* *K5 * 
***************** 



*****oi********** 

* RELOCATE * 

* ADDRESS * 

* CONSTANTS * 

* IN * 

* CCWS * 
***************** 



*****B2 ********** 

* INSERT X«21« * 
♦NO-RECORD-FOUND* 

* AND HISSING * 
♦ADDRESS MARKER ♦ 

* MESSAGE CODE ♦ 
***************** 



**** 

* * 

* 6 * 

* * 
**** 



**** 

* * 

* 4 * 



.* 
. .♦ 
* NO 



*****D2 ********** 

* INSERT X'15« * 

* SEEK CHECK * 

* CODE FOR * 

* MESSAGE ♦ 

* WRITER ♦ 
***************** 



.* 
.* 
NO 



.*. 


X 


GO X 


NRFRTY .♦. 


Fl *. 


*****P2********** 


*****P3********** 


F4 *. 


.* *. 


* SET ADDRESS ♦ 

♦ AND COMMAND ♦ 


* INSERT X«23« ♦ 


.♦ ♦. 


YES .* MISSING *. 


♦ BLANK STRIP ♦ 


NO .♦ RETRY * 


...*. ADDRESS .♦ 


* CODE FOR ♦ 


♦ CODE * 


...*. COUNT 


*. MARKER .♦ 


* SEEK IN ♦ 


♦ FOR ♦ 


♦. = 10 


*. .* 


* CCB ♦ 


♦MESSAGE WRITER ♦ 


♦ . .* 


X *. .* 


***************** 


***************** 


X ♦. .♦ 


***♦ * NO 

% * . 


• • 




**** * YES 
* * 


1 * 


" 




* D4 * 


* * . 






♦ ♦ 


**** 


. 




**** 


N01 X 


X 


X 


X 


*****Gi********** 


***G2************ 


***G3************ 


**G4******* 


* MOVE ADDRESS ♦ 


IORTN QG 


IORTN QG 


* POST NO- * 


* OF SEEK CCW * 


**_*-.*_*_*_*_*_** 


**_*_*_*_*_*_*_** 


♦RECORD-FOUND 


♦TO CCB, INSERT * 


PERFORM 


SEEK AND 


♦ BIT IN 


* COMMAND CODE * 


* SEEK ♦ 


* READ HA * 


♦ CCB, BYTE 3 


♦TO READ REC. * 




TRACK 19 


* BIT 4 


***************** 


***************** 


***************** 


*********** 



***Hi************ 
IORTN QG 
**_*_*_*_*_*_*_** 

SEEK AND 
* READ HOME ♦ 
ADDRESS 
***************** 



*****H2********** 

* CHANGE CCHH * 

* IN ADDRESS ♦ 
*FOR SECOND SEEM< 

* ♦ 
***************** 



***j2************ 
IORTN QG 
**_*_*-*_*_*_*_** 

PERFORM 
* SEEK ♦ 

***************** 



A3 ♦. 

.♦ ♦. 

♦ COMPARE ♦. 

RETRY COUNT . 

♦. WITH 3 .♦ 

♦ . .♦ 

♦ . .♦ 



*****B3********** 

♦ * 

♦ MOVE ADDRESS ♦ 

♦ OF SEEK CCW ♦ 

♦ TO CCW ♦ 

♦ ♦ 
***************** 



***C3************ 
IORTN QG 

**_*_*_*-*_*_*_ ** 
SEEK AND 
* READ HA * 

TRACK 
***************** 



NO .♦ ♦. 

...♦.UNRECOVERABLE. 

♦.I/O ERROR.* 



A03 X 

*****E3********** 

♦ SET THE SEEK ♦ 

♦ ADDRESS IN ♦ 

♦ SEEK CCW ♦ 

♦ TO ♦ 

♦ TRACK 19 ♦ 
***************** 



*****A4********** 

* * 

* MOVE ADDRESS ♦ 
.X* OF RELEASE ♦ 

* CCW TO CCB ♦ 

* * 
***************** 



***B4************ 
IORTN QG 

**_*_*_*_*_*_*_** 

RESTORE 
* STRIP ♦ 

***************** 



.♦ ♦. NO 

♦.UNRECOVERABLE. ♦... 
♦ .I/O ERRORS 



BALMSG X 

*****B5********** 

♦ INSERT X , 22« ♦ 

♦ BALLAST CODE ♦ 

♦ AND INTERV ♦. 
♦REQD CODES FOR ♦ 
♦MESSAGE WRITER ♦ 
***************** 



• 3 ♦ 
x * * 
.*. ♦♦♦♦MSGWTR 
C4 *. . *****C5********** 
.* *. . * INSERT X«20' * 
.* *. YES X * ERROR-ON- * 

♦ .UNRECOVERABLE.* X* RECOVERY CODE ♦ 

♦.I/O ERROR. ♦ ♦ FOR MSG ♦ 

♦. .♦ ♦ WRITER ♦ 

***************** 



**** 



* NO 



****04********* 

* SVC 3 * 

* ENTRY * 

* CHART DD ♦ 
*************** 



E4 ♦. 

.♦ ♦. 

.♦ USER ♦ 

. WANTS RETRY 

♦.ON N-R-F .♦ 

♦. .♦ 

♦. .♦ 

♦ YES 



**** 



****05********* 

* SVC 3 ♦ 
♦FETCH SSANERRM ♦ 

♦ CHART NA ♦ 
*************** 



**P5******* 

♦ POST ♦ 
♦ NO-RECORD- 

♦ FOUND BIT IN 
♦CCB, BYTE 3, 

♦ BIT 4 ♦ 
*********** 



****G5********* 

* SVC 3 ♦ 

* EXIGN ♦ 

* CHART DD ♦ 
*************** 



Kl ♦. 
.♦CCH OF ♦. 
.♦ HOME AD- ♦. YES 
♦.DRESS EQUALS ...... 

♦.SEEK ADDR.* 
♦ . .* 

♦ . .♦ X 
* NO ♦♦ 



.♦ ♦. 

». UNRECOVERABLE. 

♦ .I/O ERRORS 



♦ SET ♦ 
.♦ SUBCELL ♦ 

♦ TO ZERO ♦ 

♦ * 
***************** 



***K3************ 
IORTN QG 
**_*_*_*_*_*_*_** 

SEEK 



*****H4********** 

♦ INSERT X'36« ♦ 

♦ NO-RECORD- ♦ 

♦ FOUND CODE ♦ 

♦ FOR ♦ 
♦MESSAGE WRITER * 
***************** 
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Chart QG. $$ANERRJ - Phase 4 of Data Cell ERP (Part 2 of 2) 
Refer to Chart 11. 



****A2********* 

* IORTN * 

*************** 



IORTN 

*****B2********** 
* SAVE CHANQ * 



***************** 



*****02 ********** 

* * 

* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



.* VALID ♦ . 

NO .* CHANNEL *. YES 

...♦.QUEUE POINTER.*.... 



*****C3********** 

♦ CALCULATE * 

♦ LUBID AND ♦ 
.X* STORE IN CCB, * 

* SET RIK TO ♦ 

* ♦ 
***************** 



***D3************ 
SVC 15 
* EXECUTE ♦ 
CHANNEL 
♦ PROGRAM ♦ 

***************** 



*****Ei********** 
♦GET EXIT ADDR, ♦ 

♦ IGNORE FROM ♦ 

♦ ERBLOC AND ♦ 

♦ LAST BYTE ♦ 

♦ OF FETCH NAME ♦ 
***************** 



****P1********* 



*************** 





.♦ CHANQ ♦. YES 
♦. FULL .*.... 








♦ . .♦ 
♦ . .♦ 
♦ . .♦ 
♦ NO 
**** 

* * . 

* 1 *.X. 

* ♦ . 

♦*** x 
.♦. 










F3 ♦. 
.♦ *. 
NO .♦ I/O ♦. 
♦. COMPLETE .♦ 










♦ . .* 
♦ . .♦ 
♦ . .♦ 
♦ YES 




; 

****G2* 
SV 
WA 

******* 


< 

******** 

: 7 ♦ 

[T ♦ 

♦ 
******** 


RSTQPT X 

*****G3********** 

♦ * 

♦ RESTORE ♦ 

♦ CHANQ * 

♦ POINTER ♦ 

♦ * 
***************** 


IOERR 

*****G4* 

♦ RES 

♦ CH/ 

♦ POINT 
♦CHAN SC* 

♦ FL) 
******** 


< 

********* 

roRE ♦ 

\NQ ♦ 
ER AND ♦ 
EDULER ♦ 
*GS ♦ 
********* 



RSTFLG 

*****H3********** 

* RESTORE ♦ 

* CHAN ♦ 

* SCHEDULER ♦ 

* FLAGS * 

* * 
***************** 



X 

.♦. 

J3 ♦. 

.♦ ♦. 

NO .♦ ♦. 

...♦.UNRECOVERABLE.* 

♦. I/O .♦ 

♦.ERROR.* 



****K2 ********* 

♦ RETURN ♦ 

♦ TO LINK ♦ 

♦ ADDR +4 ♦ 
*************** 



****K3********* 

♦ RETURN ♦ 

♦ TO LINK ♦ 

♦ ADDRESS ♦ 
*************** 
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Chart QH. $$ANERRK - Phase 5 of Data Cell ERP 
Refer to Chart 11. 



****A2********* 



*************** 



IJBERK20 X 

*****B2********** 

* SSM TO * 

* ENABLE * 

* INTERRUPTS * 

* ON ALL * 

* CHANNELS * 
***************** 



*****C2********** 
♦LOAD ADDRESSES * 

* OF COMREG, * 

* ERBLOCt AND * 

* USER CCB * 

* *C3 * 
***************** 



*****D2 ********** 

* INSERT X'13 1 * 

* MISSING * 
♦ADDRESS MARKER ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 
***************** 



♦*** 

* * 

* 1 * 

* * 
**** 



**C *♦♦♦♦♦♦♦ 

♦ POST DATA ♦ 
CHECK BIT 

IN CCB 
BYTE 3 

♦ BIT 3 ♦ 
*********** 



D4 ♦. 
.♦ LAST ♦ 
YES .♦ CCW A 
,♦. WRITE 

♦. COMMAND 



♦. 



.♦ USER ♦. YES 

♦.REQUEST DATA ...... 

♦. CHECK .♦ 



**F3******* 

♦ TURN ON ♦ 
PASS BACK 

BIT IN 
ERQUE 

♦ FLAG ♦ 
*********** 



*****G2 ********** 

* INSERT X'll* * 

* DATA CHECK * 

* MESSAGE * 

* CODE ♦ 

* * 
***************** 



.* DATA 
— ECK 01. 
COUNT 



**** 

* * 

* 1 * 

* * 
**** 



*****J2********** 

♦ INSERT X'16' ♦ 

♦ DATA CHECK ♦ 

♦ ON COUNT ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 
***************** 



.♦. 

E4 

.♦ USER 

.♦ WANTS *. 

. VERIFY AND . 

♦READ ERROR. ♦ 

*. .* 

*. .* 



**F4******* 

* TURN ON * 
PASS BACK 

BIT IN 
ERQUE 

♦ FLAG ♦ 
*********** 



SLI 
AND SKIP 
. BIT ON . 
'♦. .♦ 



**H4******* 

♦ TURN ON * 
♦VERIFY ERROR 

* BIT IN CCB 
♦ BYTE 3, 

* BIT 6 ♦ 
*********** 



*****J4********** 

♦ INSERT X«12« * 

♦ VERIFY ERROR ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 

♦ * 
***************** 



****K4********* 

♦ SVC 3 ♦ 
♦FETCH $$ANERRM ♦ 

♦ CHART NA ♦ 
*************** 
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Chart RL. $$ANERRS - Phase 7 of ERP Message Writer (Part 2 of 2) 
Refer to Chart 14, 



CANRTN X 

*****A1********** 

* INSERT X'01 1 * 
*IN LAST BYTE OF* 
*FTCHNM TO SIG- * 
♦NIFY CANCEL ON * 
♦RETURN FROM TRN* 
***************** 



♦.UNCONDITIONAL.*. 

*. CANCEL .* 

*. .* 



*****CL********** 

* INSERT X'59' * 
•IN INSTRUCTION * 

* AT 'CANCOD' * 

* FOR OPERATOR * 

* CNCL DECISION * 
***************** 



WAS *. NO 
CANCEL IN .*... 
LTA .* 



*****£ I********** 

* INSERT X'fO' * 
♦IN INSTRUCTION * 

* AT 'CaICOD' * 
FOR pSflCEL * 

IN" 1TA 



IM'l 

♦atf.** 



******** 



**C3******* 

* SET * 

* ON BIT 4 OF * 
PIB FLAG BYTE 

* 15, CANCEL * 

* BEGUN ♦ 
*********** 



**03******* 

* * 
♦SET ON BIT 1 

♦OF PIB BYTE 1, 
♦ CALL $$BE0J 

* * 
*********** 



SBTDIS 

*****F1********** 

* SET SYSTEM * 

* MASK TO * 

* DISABLE ALL * 

* INTERRUPTS ON ♦ 

* ALL CHANNELS * 
***************** 



*****G1********* 

* ZERO WORK REG ■ 

* 12, INSERT 
♦PROTECTION KEY 

* DATA, AND PIB 

* TABLE ADDR 

****************: 



♦ F2 
THIS WILL BE A 
X'80' OR X'59' 
AS MODIFIED BY 
PRECEDING 
INSTRUCTONS. 



CANCOD 

*****F3*********# 

♦ MOVE CANCEL * 

♦ CODE INTO PIB * 

♦ FOR UNCONDIT ♦ 

♦ CANCEL TEST * 

♦ *F2 * 
***************** 



**** 

* * 

* 2 * 

***♦ 



IGNCAN X 

*****C4********** 

* INSERT X'OO' * 

* IN LAST BYTE * 

* OF FTCHNM * 

* TO SIGNIFY ♦ 

* NON-CANCEL * 
***************** 



**D4******* 

♦ TURN ON ♦ 

♦ UNIT CHECK * 

♦BIT AND TURN 

♦OFF BUSY BIT * 

*IN CSW STAT* 

*********** 



.* PROGRAM *. NO 
.OR PROTECTION.*... 
*. CHECK .* 
♦ . .* 



*****P4********** 

* CALCULATE * 

* LUBID * 

* OF * 

* LOGICAL * 

* UNIT * 
***************** 



HAS *. NO 
CANCEL .♦.. 
. STARTED .* 
♦ . .♦ 



ERROR 
IN AB 
ROUTINE •■ 
*. .* 



**|Q******* 

* SET ON * 
♦BIT 1 IN PIB 

♦ BYTE 1, 

♦ CALL $$BEOJ 

* * 
*********** 



*****G3********** 

* LOAD ADDRESS * 

* OF * 

* CANCEL EXIT * 

* ROUTINE INTO * 

* R15 * 
***************** 



*****H3********** 

* * 

* LOAD ADDRESS * 

* OF PIB TABLE * 

* INTO RIO * 

* * 
***************** 



**** j 3********* 

* SVC 3 * 

* EXCAN * 

* CHART FG * 
*************** 



G4 *. 
* 
SYSRDR 

OR 
SYSIPT 



***** H 4********** 

* * 

* CHANGE LUBID * 

* TO X'06' * 

* FOR SYSRES * 

* * 
***************** 
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Chart SA. $$ANERRT - MICR (1412/1419) ERP 
Refer to Chart 12, 



****Bi********* 

* $$ANERRT * 

* * 
*************** 



IJBERT20 

*****d ********** 

* LOAD ADDRS * 

* OF COMM * 

* REG, ERBLOC * 

* AND PUB ENTRY * 



*****Dl********** 

* CALCULATE * 

* CCB ADDR * 

* FROM CHANNEL * 

* QUEUE * 

* * 
***************** 



*****£ 1********** 

* GET THE CCB * 

* ADDR FROM THE * 

* QUEUE AND * 

* CLEAR HIGH- * 

* ORDER BYTE * 
***************** 



*****P1********** 

* GET ADDR OF * 

* CCW CAUSING * 

* INTERRUPT * 

* AND PUT IN * 

* REG 14 * 
************* **** 



*****Gi********** 

* INSERT X'28» * 

* CHANNEL DATA * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



CHANNEL 
DATA 
CHECK 



.♦. 
Jl *. 
.♦SHOULD-*, 
* NOT-OCCUR 

SENSE— BYTE 
*.0, BIT " 
*. 



.* *. YES 

♦.INTERVENTION ...... 

♦. REQ .♦ 



♦ INSERT X'09' ♦ 

♦ BUSOUT ♦ 

♦ MSG CODE ♦ 

♦ * 
***************** 



UNDTR X 

*****B3********** 

♦ INSERT X'19' ♦ 

♦ UNDETERMINED ♦ 

♦ ERR MSG ♦ 

♦ CODE ♦ 

♦ * 
***************** 



BUSOUT 
*♦. .♦" 



*****E2 ********** 

♦ INSERT X'37' ♦ 

♦ DISENGAGE ♦ 

♦ FAILED MSG ♦ 

♦ CODE ♦ 

♦ * 
***************** 



*****B4********** 

♦ POST ♦ 

♦ INTERVENTION ♦ 

♦ REQUIRED BIT ♦ 
♦IN CCB, BYTE 3,* 

♦ BIT 1 ♦ 
***************** 



**C4******* 
TURN ON PASS+ 
BACK AND INTER- 
♦ VENTION REQ 
♦BITS 1, 2 IN ♦ 
ERBLOC ERR FLG 
*********** 



*****04********** 

♦ SSM TO ♦ 

♦ DISABLE ♦ 

♦ I/O ♦ 

♦ INTERRUPTS ♦ 

♦ * 
***************** 



**E4******* 
♦ TURN ON ♦ 

* OPERATOR ♦ 
INTERVENTION 

♦ BIT IN PUB ♦ 
CHN SCHD FLG + 

*********** 



**F4******* 

* TURN ON ♦ 

♦ CHANNEL END 
* BIT IN CSW 

* STATUS 

* BYTES * 
*********** 



.X+ 



.♦ 



♦ NO 



*****Ki********** 

♦ INSERT X'08' ♦ 

♦ INTERVENTION ♦ 

♦ REQUIRED ♦ 

♦ MSG CODE ♦ 

♦ * 
***************** 



IREXIT 

*****H2 ********** 

♦ POST ♦ 

♦ INTERVENTION ♦ 

♦ REQUIRED ♦ 

♦ SEE B4 ♦ 

♦ * 
***************** 



**J2******* 

* TURN ON ♦ 
♦PASSBACK AND 

♦ INTERVENTION 
♦ REQUIRED 

* SEE C4 ♦ 
*********** 



*****G3********** 

♦ INSERT X'18« ♦ 

♦ COMMAND * 
REJECT MSG ♦ 

CODE ♦ 

♦ * 
***************** 



3 ♦.X 



**** 
PSTERR X 

**H3******* 

♦ TURN ON ♦ 
♦UNRECOVERABLE^ 

♦ I/O ERROR BIT ♦ 
IN CCB BYTE 2,* 

♦ BIT 2 ♦ 
*********** 



**J3******* 

♦ TURN ON ♦ 

♦ PASSBACK * 
BIT IN ERBLOC 

♦ ERROR FLAG ♦ 

♦ BIT 2 ♦ 
*********** 



**H4******* 
♦ TURN OFF ♦ 

♦ OPERATOR ♦ 
INTERVENTION 

♦ BIT IN PUB * 
CHN SCHD FLG^ 

*********** 



**j4******* 
* TURN ON ♦ 

♦ CHANNEL END * 
♦AND DEVICE END 

♦ BITS IN CSW * 
STATUS BYTES+ 

*********** 



♦! 


♦ HAS A 

COMMAND 
*. ADDRESS 
*. .* 
*. .* 
♦ NO 


*. YES 

.* 


*****H5********** . 

♦ INSERT ♦ 

♦ DUMMY ♦ 

♦ ADDRESS ♦ 

♦ X'OOIOOO' ♦ 

♦ IN CSW ♦ 
***************** 




Ik... 





****J5********* 

♦ SVC 3 ♦ 

♦ EXIGN ♦ 

♦ CHART DD ♦ 
*************** 



♦♦♦♦^♦♦♦♦♦♦**+ 

♦ SVC 3 ♦ 
♦FETCH $$ANERRM ♦ 

♦ CHART NA ♦ 
*************** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart SF. $$ANERRW - MICR CU19D) ERP (Part 1 of 3) 
Refer to Chart 12. 



.* *. 

* CHAN 
DATA CHECK 



.♦SHOULD-*. 
.* NOT-OCCUR *. 
.X*. SENSE BITS . 



*****A4********** 

* INSERT X«08' * 
" INTERVENTION * 

REQUIRED * 
MSG CODE * 

* * 
***************** 



.X* 



****B1********* 

* * 

* $$ANERRW * 

* * 
*************** 



*****C 1********** 

* LOAD ADDRESS * 

* OF COMM RGN, * 

* ERBLOC, AND * 

* PUB FOR * 

* DEVICE * 
***************** 



*****Dl********** 

* MOVE X'OO" * 

* INTO A-TRANS * 

* PHASE NAME * 

* FIELD OF * 

* ERBLOC * 
***************** 



*SG-C4 
SG-H4 
SG-J3 
SH-E1 
**** 

* * 

* * *. 



**** 

* * 

* 2 *.. 

* * 
**** 



**** 
*SH * 

* Dl *. 

* * 
**** 

UNDTR 

*****C3********** 

* INSERT X«19« * 

* UNDETERMINED * 

* ERROR MESSAGE * 

* CODE * 

* * 
***************** 



BUSOUT 

*****C4********** 

* INSERT X«09' * 

* BUSOUT * 

* CHECK MSG * 

* CODE * 

* * 
***************** 



**** 
PSTERR 

**D2******* 

* TURN ON * 
* UNRECOV I/O * 

* ERROR IN CCB * 
♦BYTE 2i BIT 2* 

* * 
*********** 



El ♦. 




**E2 ******* 




.♦ ERROR ♦. 




♦ TURN ON ♦ 




.♦ ON *. YES 


♦ PASS BACK ♦ 




♦. SECONDARY .♦. 




♦ BIT 2 IN ♦ 




♦. CONTROL .♦ 




♦ ERBLOC * 




♦.UNIT .♦ 




♦ERROR FLAG ♦ 




*. .♦ 


X 


*********** 




♦ NO 


***** 








*SG * 










♦ AL* 










* * 

* 








X 


MSGNTR 






*****P1********** 




X 




♦ LOAD RETURN ♦ 




****P2********* 




♦ ADDR 'PCURTN' ♦ 




* SVC 3 ♦ 




♦ INTO RETURN ♦ 




♦FETCH $$ANERRM * 




♦ REG ♦ 




♦ CHART NA ♦ 




* * 




*************** 




***************** 






*G3 
THE CCW 


X 






CAUSING 


.♦. 






INTERRUPT IS 


Gl ♦. 






CHECKED WITH 


.* *. 






X' El' t A DUMMY 


.♦ CCB ♦. NO 




COMMAND CODE 


♦ . AVAILABLE • ♦. 








FOR A FAILURE 
TO DISENGAGE. 


♦. .♦ 









*****£ 4********** 

* INSERT X'37' * 

♦ DISENGAGE ♦ 

♦ FAILED MSG ♦ 

* CODE * 

***************** 



NO . 


* 


COMMAND ♦. 


. ..♦. 




REJECT .♦ 


* 


* 


. ♦ 
♦ . .* 


X 

*** 




♦ . .♦ 
* YES 


* 






2 * 






* 
*** 




X 


*****G4********** 


* 




GET ADDR ♦ 


* 




OF CCW ♦ 






CAUSING ♦ 


* 




INTERRUPT * 



*****Hl********** 
♦PLCCB SH* 
*_*_*_*_*_*_*_*_* 

♦ GET CCB * 

♦ FOR POCKET ♦ 

♦ LIGHT * 
***************** 



*****H2 ********** 
♦SSCCB SH+ 
*_*_*_*_*_*_*_*_* 

* GET CCB * 

* FOR STACKER ♦ 

* SELECT ♦ 
***************** 



PCURTN 

*****jl********** 

♦ INSERT X'28' ♦ 

♦ CHAN DATA * 

♦ CHECK MSG ♦ 

♦ CODE ♦ 

♦ * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



***************** 



.♦ FAILED ♦ 
.TO DISENGAGE 
*. *G3 .* 



*****A5 ********** 
♦TURN ON INT REQ+ 

♦ BIT IN CCB, ♦ 
..X^TURN ON ERBLOC ♦ 

♦FLG FOR INT REQ* 

♦ AND PASS BACK ♦ 
***************** 



*****B5********** 

* * 

* SSM TO ♦ 

* DISABLE I/O ♦ 

* INTERRUPTS ♦ 

* * 
***************** 



*****C5 ********** 

* TURN ON * 

* OPERATOR * 

* INTERVENTION ♦ 

* BIT IN PUB ♦ 
♦CHAN SCHED FLG * 
***************** 



*****D5********** 

♦ TURN ON ♦ 

♦ CHAN END ♦ 

♦ BIT IN CSW ♦ 

♦ STATUS BITS * 

♦ * 
***************** 



*****P5********** 

♦ TURN OFF * 

♦ OPERATOR * 

♦ INTERVENTION * 

♦ BIT IN PUB * 
♦CHAN SCHED FLG ♦ 
***************** 



*****G5********** 

♦ MOVE X'OC ♦ 

♦ TO CSW STATUS ♦ 

♦ BYTE FOR ♦ 

♦ CHAN END * 
♦AND DEVICE END ♦ 
***************** 



IREXIT 

*****j3********** 

♦TURN ON INTERV ♦ 
♦ REQ'D BIT IN ♦ 
♦CCB BYTE 3 BIT ♦ 
♦1 AND IN ERBLOC* 
♦ERROR FLG, BIT1+ 
***************** 



*****j4********** 

♦ INSERT X'18' ♦ 

♦ COMMAND ♦ 

♦ REJECT MSG ♦ 

♦ CODE * 

♦ * 
***************** 



CSW HAS 
A COMMAND 
ADDRESS . : 



*****j5 ********** 

* INSERT DUMMY ♦ 

* ADDRESS * 

* X" 00 1000' ♦ 

* IN CSW * 

* * 
***************** 



****K5 ********* 

* SVC 3 ♦ 

* EXIGN * 

* CHART DD * 
*************** 
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Chart SG. $$&NERRW - MICR (1419D) ERP (Part 2 of 3) 
Refer to Chart 12. 



***** 

*SF * 
* El* 



***** A 1********** 

* * 

* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



.* STACKER ♦ . N 
♦SELECT COMMAND.*. 
*. CODE .* 



SSCOM X 

*****Ci********** 
♦SSCCB SH* 
*_*_*_*_*_*_*_*_* 

* GET CCB FOR * 

* STACKER * 

* SELECT * 
***************** 



*****Dl********** 

* LOAD ADDRESS * 

* OF CCB AND * 

* ADD DISPL TO * 

* GET DOCUMENT * 

* BUFFER * 
***************** 



.♦SHOULD-*. 
.* NOT-OCCUR ♦ . YES 
. SENSE— BYTE .*.... 



INRQ 

*****C3********** 

* INSERT X'08' * 

* INTERVENTION * 

* REQUIRED * 

* MSG CODE * 

* * 
***************** 



*****D2 ********** 
*PLCCB SH* 
*_*_*_*_*_*_*_*_* 

* GET CCB FOR * 

* POCKET LIGHT * 

* * 
***************** 



.* STACKER *. YES 
♦SELECT COMMAND.*.... 
*. CODE .* 



X 

***** 
*SF * 
* D2* 



CONT 

*****Ei ********** 

* INSERT X'28« * 

* CHAN DATA CHK * 

* MESSAGE * 

* CODE * 

* * 
***************** 



* INSERT X'09' * 

* BUSOUT CHECK ♦ 

* MSG CODE * 

* * 
***************** 



*****G1********** 

* INSERT X'19' * 

* UNDETERMINED * 

* ERROR MSG * 

* CODE * 

* * 
***************** 



* 1 * 

* * 
**** 



***** 
*SH * 
* Bl* 



.* STACKER *. 

♦SELECT COMMAND. 

*. CODE .♦ 

*. .* 



OPVNT 

**P4******* 

* TURN ON * 

♦INTERVENTION * 

♦REQUIRED BIT 1 

* IN ERBLOC * 

♦ERROR FLAG * 

*********** 



****G4********* 

♦ SVC 3 FETCH ♦ 

♦ $$ANERRM ♦ 

♦ CHART NA * 
*************** 



.* STACKER *. NO 
♦SELECT COMMAND.^..., 
♦. CODE .* 



ALREADY 

RETRIED 

ONCE 

♦ . .♦ 



*****P5********** 
♦POST BITS AND+ 
♦1 IN DOC BUFFERS 
♦BYTE 0. INSERT ♦ 

♦ REJECT DOC ♦ 

♦ X'CF', BYTE 5 ♦ 
***************** 



****Q5********* 

♦ SVC 3 ♦ 

♦ EXIGN ♦ 

♦ CHART DD ♦ 
*************** 



*****H5********** 

♦ INCREMENT ♦ 

* RETRY COUNTER ♦ 
X* PUB BYTE 3 ♦ 

♦ BY ONE ♦ 

* * 
***************** 



2 *.X 



X.* SH * 



**** 
PSTBUF X 

*****J3********** 

* POST BITS ♦ 

* AND 1 IN * 
♦DOCUMENT BUFFERS. 

* BYTE * 

* * 
***************** 



****j5********* 

♦ SVC 3 ♦ 

♦ ENTRY ♦ 

♦ CHART DD ♦ 
*************** 



***** 
*SF * 
* D2* 
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Chart SH. $$ANERRW - MICR (1419D) ERP (Part 3 of 3) 
Refer to Chart 12. 



***** 

*SG * 
* F3* 

* * 



.* BATCH 
. NUMBERING 
*. SWITCH . 



COMRJ 

*****C1********** 

* INSERT X«18« * 

* COMMAND * 

* REJECT MSG * 

* CODE * 

* * 
***************** 



*****C2********** 



***************** 



*****D2********** 
♦POST BITS AND* 
" DOC BUFFER " 
INS"* 



0, INSER 
ECT DOC 



* YES 


***** 

*SF ♦ 

♦ C3+ 

* * 

* 




X 


UNDTR 




.*. 




X 


El *. 




**E2******* 


.* *. 




* TURN OFF * 


.* STACKER ♦ « 


YES 


* ALLOW RETRY ♦ 


♦SELECT COMMAND, 


♦ .... 


♦BIT 5, TURN ON * 


*. CODE .* 




♦ALLOW IGN BIT* 


*. .* 




*3 IN ERBLOC* 


*. .♦ 


X 


*********** 


* NO 


*♦♦** 
*SG ♦ 






♦ J3* 




X 


* * 




***** 


* 




*SF ♦ 


PSTBUF 




* D2* 


MSGWTR 



****P2 ********* 

* SVC 3 FETCH * 
♦FETCH $$ANERRM ♦ 

♦ CHART NA ♦ 
*************** 



****A3********* 

* * 

* SSCCB * 

* * 
*************** 



*****B3********** 

* GET EXTERNAL * 

* INTERRUPT * 

* STATUS FROM * 

* PUB BYTE 5 * 

* * 
***************** 



*****C3********** 

* SSM TO * 

* ENABLE I/O ♦ 

* INTERRUPTS * 

* * 
***************** 



*A DISPLACEMENT * 

* WITHIN THE ♦ 

♦ DTF TABLE ♦ 
***************** 



*****E3********** 

* ADD THIS * 

* DISPLACEMENT * 

* TO THE START * 

* ADDRESS OF * 

* THE TABLE * 
***************** 



***** F 3********** 

* GET ADDRESS * 

* OF DTF (CCB) ♦ 

* FROM THIS * 

* LOCATION AND * 

* SAVE *H3 * 
***************** 



****G3********* 

* RETURN TO * 

* PCURTN * 

* VIA REG 'RET' * 
*************** 



****A4********* 

* * 

* PLCCB * 

* * 
*************** 



*****B4********** 

* LOAD POINTER * 

* TO CHAN * 

* QUEUE FROM * 

* PUB BYTE 2 * 

* * 
***************** 



*****C4********** 

* * 

* SSM TO ♦ 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



.* VALID *. 
.* CHANNEL *. 
*. QUEUE 

*. PNTR .♦ 



*****E4********** 

* MULTIPLY THIS ♦ 

* VALUE BY 4 * 

* AND ADD TO * 

* THE ADDR OF ♦ 
♦THE CHAN QUEUE ♦ 
***************** 



*****P4********** 

♦ GET THE CCB * 

* ADDR FROM THE ♦ 



****G4********* 

♦ RETURN TO ♦ 

♦ PCURTN ♦ 

♦ VIA REG 'RET* ♦ 
*************** 



***** £5 ********** 

* * 
♦GET EXIT ADDR, * 

* IGNORE FROM * 

♦ ERBLOC ♦ 

♦ * 
***************** 



*****F5********** 



***************** 



****G5********* 

* * 

* SVC 3 * 

* * 
*************** 



Charts 331 



Page of GZ24-5151-2, revised October 2 8, 1971, by TNL GN33-8692 



Chart SJ. $$ANERRX - 2671 Paper Tape ERP (Part 1 of 2) 
Refer to Chart 12. 



****A1********* 
* $$ANERRX * 
*************** 



END, 
END, 
END 



***************** 



*****Ci********** 

* MOVE STATUS * 

* BYTE DATA * 

* FROM CSW * 

* INTO SAVE * 

* AREA CCSW1 * 
***************** 



*****D1********** 

* LOAD ADDRESS * 

* OF PUB AND * 

* GET ADDRESS * 

* OF CHANNEL * 

* QUEUE POINTER * 
***************** 



*****El********** 



***************** 



Fl *. 
.* VALID *. 
.* CHANNEL *. YES 
♦.QUEUE POINTER.*.... 



B2 *. 




*****B3********** 




.* *. 




* 


INSERT X'19« * 




.* CHANNEL *. NO 


* 


UNUSUAL * 




*. DATA .* 




<* 


SENSE MESSAGE * 




*. CHECK .* 




* 


CODE * 




*. .* 




* 


* 




*. .* 




***************** 




* YES 










X 






X 




CHDTCK .*. 






.*. 




C2 *. 






C3 *. 




.* *. 






.* *. 




.* INITIAL *. YES 




.* BUSOUT *. NO 




*. SELECTION .* 




* 


CHECK .* 




*. *H3 .* 






*. .* 




*. .* 






*. .* 




*. .* 


X 




*. .* 




* NO 


***** 




* YES 




**** 


*SK * 








* * . 


* C5* 








* 2 *.X. 


* * 








* * . 


-* 








**** . CANCON 




X 




SETFLE X 






.*. 


.*. 


**D2 ******* 






D3 *. 


D4 *. 


* TURN OFF * 






.* *. 


.* *. 


* ALLOW RETRY * 






.* CHANNEL *. NO X .* INVALID 


♦AND IGNORE BITS* 




* 


OR DEVICE .* 


...X*. BITS 


* 3 AND 5 IN * 






*. END .* 


*. 


♦ ERR FLAG * 






*. .* 


*. .* 


*********** 






*. .* 


*. •* 








* YES 


* YES 


**** . **** 


♦SK-D2 








* * . * * 


SK-D4 








* 4 *.X.X.* * * 


SK-D5 




X 


X 


* * . * * 


SK-H2 




**** 


**** 


**** . **** 


SK-J3 




* * 


* * 


CALLMW 






* 2 * 


* 2 ♦ 


X 






* * 


* * 


****E2********* 






**** 


**** 


* SVC 3 * 










♦FETCH $$ANERRM * 










* CHART NA * 










*************** 






**** 





*****q$ ********** 

* INSERT'10 1 ♦ 

* EQUIPMENT * 
.X* CHK MSG CODE * 

* * 

* * 
***************** 



*****G1********** 

* GET EXIT * 

* ADDR, IGNORE * 

* FROM ERBLOC ♦ 

* * 
***************** 



*****Hl********** 

* * 

* ZERO LAST ♦ 

* BYTE OF ♦ 

* FETCH NAME * 

* * 
***************** 



****JX********* 

* * 

* SVC 3 * 

* * 
*************** 



*****P2********** 

* * 

* CALCULATE AND * 
•X* LOAD ADDRESS * 

* OF CCB * 

* * 
***************** 



*****G2 ********** 

♦ INSERT X'28« * 

♦ CHAN DATA * 

♦ CHECK MSG * 

♦ CODE * 

♦ * 
***************** 



* 3 * 

* * 
**** 



X 

.*. 

F3 *. 

.* *. 

.* BUSOUT *. 

CHECK 

*. .* 

*. .* 





.* *. 




YES . 


* * 




...*, 


EQUIPMENT 


!* 




*. CHECK .* 






*. .♦ 




X 


*. .♦ 




***** 


♦ NO 




*SK * 






* F3* 






* * 






* 






EQUCHK 


X 




****#F5 ********** 


* 


INSERT X'08» 


* 


* 


INTERVENTION 


* 


* 


REQ MSG CODE 


* 



***** 

*SK * 
* C4* 



***************** 



* INSERT X'18' * 

* CMND REJECT * 

* MESSAGE CODE * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*. .* 
*. .* 
* NO 



***** j 3********** 

* INSERT X'19« * 

* UNUSUAL ♦ 

* SENSE MSG * 

* CODE * 

* * 
***************** 



*****G4********** 

* INSERT X'll' ♦ 

* DATA CHK * 
X* MESSAGE * 

* CODE * 

* * 
***************** 



**H4******* 

* TURN ON * 

* INT REQ 
BIT 1 IN 

* ERBLOC 

* ERR FLAG * 
*********** 



**** 

* * 

* 3 * 

* * 
**** 



***** 
*SK * 
* H2* 



USER 


*. 


NO 


WANTS 




*. .. . 


RETURN . 


* 


• 


*. .* 




X 


* YES 




***** 






*SK * 

* El* 


X 




* * 


***** 




* 


*SK * 




MODCC! 


* Bl* 
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Chart UA. $$ANERR9 - Optical Reader ERP (Part 1 of 2) 
Refer to Chart 11. 



* * 

* SSANERR9 * 

* * 
*************** 



IJBER932 

*****B1********** 

* LOAD ADDRESS * 

* OF COMREG, * 

* ERBLOC. PUB * 
♦ENTRY, CCB, AND* 

* LAST USED CCW * 
***************** 



*****d********** 

* * 

* SSH TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



Dl *. 

.* VALID ♦ . 

.* CHANNEL *. 

♦.QUEUE POINTER. 



.*. 
EL *. 
.♦INVALID*. 
.♦SENSE BITS ♦. YES 
. FOR 1285 ...... 

*. OR 1287 .* 
*. .* 



*****C2********** 

* * 

* GET. EXIT * 
.X* ADDR, IGNORE * 

* FROM ERBLOC ♦ 

* * 
***************** 



*****D2++^+^+++** 

* * 

* ZERO LAST * 

* BYTE OF * 

* FETCH NAME * 

* * 
f **************** 



#***E2 ********* 

* * 

* SVC 3 * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 



NONRECOVERY 



**C4******* 

* TURN ON * 
* NONRECOVERY * 

* BIT IN CCB, * 
*BYTE 3, BIT 4* 

* - * 
*********** 



* NO 



***** 
*UB * 
* H5* 



CDATACK 

*****F3********** 

* INSERT X«28' * 

* CHANNEL * 
...X* DATA CHECK * 

* MESSAGE * 

* CODE * 
***************** 



**E5******* 

* TURN ON * 
* DATA CHECK * 

* BIT IN CCB * 
*BYTE 3, BIT 0* 

* * 
*********** 



***** 
♦UB ♦ 

* B2* 



* INSERT X'09' * 

* BUSOUT * 

* MESSAGE CODE * 

* * 
***************** 

**** 



**H1******* 

* TURN ON * 
* EQUIPMENT 

* CHECK BIT IN 
♦CCB, BYTE 3, 

♦ BIT 3 * 
*********** 



.♦ ♦. YES 

♦.INTERVENTION ...... 

♦.REQUIRED .♦ 



,.X*. NONRECOVERY .*. 



*****H2 ********** 

* INSERT X«08« * 

* INTERVENTION * 

* REQUIRED * 

* MESSAGE CODE * 

* * 
***************** 



NONREC 

**G3******* 

* TURN ON * 
* NONRECOVERY * 

...X* BIT IN CCB, * 
♦BYTE 3, BIT 4* 

* * 
*********** 



**H3******* 

* TURN ON * 
*PASSBACK BIT 

* IN ERQUE 
* FLAG BYTE : 

* * 
*********** 



***** j 3********** 

* * 

* INSERT X'35' * 

* NONRECOVERY * 

* MESSAGE CODE * 

* * 
***************** 



EQUIPXIT 

*#H4******* 

* TURN ON * 
♦INTERVENTION 

♦ REQUIRED 
♦BIT IN ERQUE 

* FLAG BYTE * 
*********** 



*****H5 ********** 

* * 

* INSERT 1 * 

* IN RETRY * 

* COUNTER * 

* * 
***************** 



X 

***** 

*UB * 

* F3* 

* * 



RETRY 



***** 
*UB * 
* K4* 
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Chart UB. $$ANERR9 - Optical Reader ERP (Part 2 of 2) 
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***** 

*UA * 

* E5* 

* * 



*. .* 

*. .* 
* NO 



CMNDREJ 

*****Cl********** 

* INSERT X'18' * 

* COMMAND 

* REJECT 

* MESSAGE CODE 

* * 
***************** 



*X. 



**Dl******* 

* TURN OFF * 
* ALLOW RETRY * 

* AND IGNORE * 
*BITS IN ERQUE* 

* FLAG BYTE * 
*********** 



X .* RETRIED *. YES 

....X*. 9 .*.... 

*. TIMES .♦ 



*****£3********** 



.* 
. .* 
* YES 



**Gl******* 
* TURN ON * 

* KEYBOARD 
CORRECTION 

* BIT IN CCB, 
BYTE 3, BIT 1 

*********** 



IS 


*. 


* ADD 


L TO 


DEVICE 


.* 


* PUB RETRY 


A 1287 


* 


* COUNTER 


.* 




* 


*. .* 




**************** 


* YES 










**** 




• 




*UA * 
* H5 *.X 








* * 




X 




**** 




.♦. 




RCTRY 




F2 *. 




X 


IS * 




****P3********* 


1287 


*. 


* SVC 3 


IN TAPE 


.* 


* EXRTY 


MODE 


* 


* CHART DD 


. .♦ 




******** 


******** 



* INSERT X'14 1 * 
X* OVERRUN * 

* MESSAGE CODE * 

* * 
***************** 



**E4******* 

* TURN ON * 
♦INTERVENTION 

* REQUIRED BIT 
♦ IN ERQUE 

* FLAG BYTE * 
*********** 



*. .* 




*************** 


**** 


***** 


*. .* 






* * 


*UA ♦ 


* NO 






* 3 ♦ 


♦ El* 








* * 


* * 


• 






**** 


* 


X 






X 






.♦. 




.♦. 


NOEMP .♦. 






G2 *. 




G3 ♦. 


G4 ♦. 






.* *. 




.* *. 


.♦INVALIDS. 






.* INVALID * 


. NO 


.♦ LATE ♦. NO 


.♦ SENSE BIT ♦. YES 






*. FONT 


.*.... 


....X*. STACKER •♦... 


♦. 7 FOR 1287 .♦... 
♦. SET .♦ 


,X 




*. .* 




♦. SELECT .♦ 




*. .* 




*. .* 


♦ . .♦ 




*. .* 




♦ . .♦ 


*. .* 




* YES 




♦ YES 


* NO 




FONTERR X 




X 


X 

.♦. 


UNSUPTD 


*****H2********** 


**H3******* 


H4 ♦. 


*****H5********** 


* 


* 


♦ SET CCB ♦ 


.♦ ANY ♦. 


* INSERT X'19' ♦ 


* INSERT X'38« 


* 


♦BYTE 3, BIT 6+ 
♦ FOR LATE ♦ 


.♦ ERRORS ♦. NO X ♦ UNKNOWN ♦ 


* INVALID FONT 


* 


*. POSTED IN .♦... 


....X* SENSE BIT ♦ 


* MESSAGE CODE 


* 


♦ STACKER ♦ 


♦. CCB .♦ 


♦ MESSAGE ♦ 


* 


* 


♦ SELECT ♦ 


♦ . .♦ 


♦ CODE ♦ 


***************** 


*********** 


♦ . .♦ 


***************** 








♦ YES 












**** 








*x 




♦UA ♦ 
♦ J3 ♦.X 


















* * 








X 




**** 




X 




NOLSS .♦. 


CONTINUE X 


X 


**J2******* 




J3 ♦. 


**J4******* 


**J5******* 


* TURN OFF * 




.* ♦. 


* TURN ON ♦ 


* TURN OFF * 


* ALLOW RETRY * 


.♦ IS ♦. NO 


♦ALLOW IGNORE ♦ 


♦ ALLOW RETRY ♦ 
♦ AND IGNORE ♦ 


* AND IGNORE 


* 


♦ . HOPPER ...... 


♦ BIT IN ERQUE ♦ 
♦ FLAG BYTE ♦ 


♦BITS IN ERQUE+ 


♦. EMPTY .♦ 


♦BITS IN ERQUE+ 


* FLAG BYTE ♦ 




*. .* 


* * 


♦ FLAG BYTE ♦ 


*********** 




♦ . .♦ 
♦ YES 


, *********** 


*********** 

**** 
**** * * 










* * ,x.+ ♦ ♦ 


X 








♦ 1 ♦.X. ♦ ♦ 


**** 








* * . **** 


* * 








**** . 


* 1 * 




X 




FETMSGW . *UA-H4,J3 


* * 




**K3******* 


X 


X 


**** 




♦ SET CCB ♦ 


****K4********* 


****K5********* 






♦BYTE 3t BIT 2+ 
♦ FOR EMPTY ♦ 


♦ SVC 3 ♦ 


♦ SVC 3 ♦ 






♦ EXIGN ♦ 

♦ CHART DD ♦ 


♦ $$ANERRM ♦ 






♦ HOPPER ♦ 


* CHART RA ♦ 






* * 


*************** 


*************** 






*********** 

*x..... 




C 






X 

**** 
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****A1********* 

* * 

* $$ANERR6 * 

* * 
*************** 



*****Q J,********** 

* LOAD ADDR OF * 

* COMREG, ERROR * 

* BLKt PUB TBL * 

* CCH, + RETRY * 

* CTR * 
***************** 



*****C1********** 

* * 

* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



.*. 

Dl *. 

.* VALID *. 

CHANNEL *. 

QUEUE .* X, 

. POINTER .* 

*. .* 



**** 

* * 

* 1 * 

* * 
**** 



* YES 



*****C2********** 

* INSERT X«25' * 

* MSG CODE FOR * 

* PROTECTION * 

* CHECK * 

* * 
***************** 





**** 

* * 

* 2 * 

* * 
**** 

x! 


5 OR 7 "♦. YES 
BIT .*.... 


luNDETR X 

. *****B4********** 

* * 

* INSERT X«19« * 
. . * MSG CODE FOR * 


•♦ 
.* 
*. .* 
* NO 


* UNDETR ERR * 

* * 
***************** 



* INSERT X'10» * 

* MSG CODE FOR * 

* EQUIP CHECK * 

* * 
***************** 



* 3 * 

* * 
**** 



.* CCW 

ADDRESS 
*. STORED 



* LIMIT *. 

OF RETRIES . 

♦.EXCEEDED .* 



***** 
*UD * 
* G4* 



***** 

*UD *RETOFF 

* G4* 



.* 
.* 
NO 



***** 
*UD * 
* G4* 



*****E3********** 

* INSERT X«28' * 

* MSG CODE FOR * 

* CHAN DATA * 

* CHECK * 

* * 
***************** 



* GET ENTRY * 

* ADDR FOR * 

* FETCH ROUTINE * 

* * 
***************** 



*****pi********** 

* * 

* INSERT X'31« * 

* MSG CODE FOR * 

* DEV NOT OP * 

* * 
***************** 



***** 

*UD * 

* H4* 

* * 



*****H2 ********** 

* GET TEBS PNTR * 

* COMPUTE TEB * 
.X* ADDR + GET * 

♦RETRY CTR ADDR * 

* * 
***************** 



.* ♦. 




****P4********* 


.♦ CHAN * 


. YES 


* SVC 3 ♦ 


. DATA CHK 


.* 


* EXRTY * 


♦ . .♦ 




* CHART DD ♦ 


♦ . .♦ 




*************** 


♦ . .♦ 






* NO 










X 


X 




.♦. 


****63********** 


G4 ♦. 


INSERT X'09« 


* 


.♦ *. 


MSG CODE FOR 


* 


.* READ *. NO 


BUSOUT 


* 


♦. COMMAND ...... 


CHECK 


* 


♦ . .* . 


************** 


* 
** 


*. .♦ 

♦ . .♦ X 
* YES ***** 
*UD * 
* G4* 
X ♦ ♦ 
**** * 


X 




* ♦ RETOFF 


.*- 




* 3 * 


H3 *. 




* * 


.* *. 




**** 


.* BUSOUT ♦ 


. YES 




CHECK 


...... 





*****P5********** 

* * 

* GET ADDR OF ♦ 

* USERS CCB + * 

* STARTING CCW ♦ 

* * 
***************** 



***** 

*UD * 

* Bl* 

* * 



* INCREMENT ♦ 

♦ RETRY ♦ 

♦ COUNTER ♦ 

* * 
***************** 



*****Ki ********** 

* * 

* INSERT X'24« * 

* MSG CODE FOR ♦ 

* PROGRAM CHECK ♦ 

* * 
***************** 



****J3********* 

* SVC 3 ♦ 
♦FETCH $$ANERR7 ♦ 

♦ CHART UE ♦ 
*************** 



*****H5********** 

* * 

* GET EXIT ADDR * 

* IGNORE FROM ♦ 

* ERBLOC ♦ 

* * 
***************** 



*****J5********** 

♦ * 

♦ ZERO LAST ♦ 

♦ BYTE OF ♦ 

♦ PHASE NAME ♦ 

♦ * 
***************** 



****K5****+**** 

* * 

* SVC 3 ♦ 

* * 
*************** 
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***** 

*uc * 

* F5* 
* * 



**** 












* * 


* * 


* * 












**** 


**** 


* 1 *.x 












. 


. 


* * 
















**** 
















ZEROCT X 










X 


RCHAN X 


*****B1********** 










*****B3********** 


*****B4********** 


* * 










* * 


* MOVE 1 BYTE * 


* ZERO OUT * 










* STORE REPO * 


* INTO CHANQ * 


* REPOSITION * 










* CNT IN * 


* AREA TO * 


* COUNT * 










* BKSP CCW * 


* RESTORE * 


* * 










* * 


* CHANQ * 


***************** 










***************** 


***************** 


**** ' 














* * . 














* 2 *.X. 














* * 














**** X 














ADDTOCT .*. 










DOSVC X 


X 


CI *. 


*****C2 ********** 


*****C3********** 


*****C4********** 


.* *. 


* 






* 


* MOVE PNTR TO * 


* MOVE 1 BYTE * 


.* NEXT *. YES 


* 


GET 


ADDR 


* 


*CHANQ INTO SAVE* 


* INTO CHAN * 


*. COMMAND .* 


..X* 


OF NEXT CCW 


* 


♦STATEMENT + PUT* 


* SCHED FLAG * 


*. A TIC .* 


* 


FROM 


TIC 


* 


*X«FF' INTO PNTR* 


* AREA TO * 


*. .* 


* 






* 


* IN PUB * 


* RESTORE FLAGS * 
***************** 


*. 


.* 


***************** 


***************** 



* ADD CCW * 

* COUNT TO * 

* REPO CNT * 

* * 
***************** 



* CCW *. 
ADDR = *. 
FAILED 
ADDR .* 



*****F1********** 

* * 

* SAVE CCW * 

* FLAG + ADD * 

* 8 TO CCW ADDR * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*****03********** 

* MOVE CHAN * 

* SCHED FLAGS * 

* TO RESTORE * 

* INSTR FOR * 

* SAVING * 
***************** 



**E3******* 

* TURN OFF * 
QUEUED ERR 

+ DEV BUSY 
IND IN PUB 

* FLAG * 
*********** 



*****F3********** 

* SET RIK TO * 

* X'OO', LOAD * 

* R15 WITH ADDR * 

* OF BLD CCB * 

* * 
***************** 



***G3************ 



***************** 



.* UNIT 
CHECK 
♦.OCCURRED 



*****jl********** 

* SAVE CCW * 

* ADDR FOR * 

* USER CCB * 

* RESTART * 

* * 
***************** 



FINUP 

*****j2 ********** 

* STORE * 

* STARTING * 

* CCW ADDR IN * 

* USERS CCB * 

* * 
***************** 



*****K2 ********** 

* * 

* SUBT RESIDUAL * 

* CNT FROM * 

* REPO COUNT * 

* * 
***************** 



* 


.* 
"* 


CHANQ 
OVERFLOW 


*. YES 

.*... 
* 






*. .* 

* NO 










....x! 


* 




NO 
..* 


.* 


X 

.*. 

J3 *. 

.* * 

I/O 

COMPLETED 


* 



*****F4********** 

* EXECUTE MOVE * 

* INSTR TO * 

* RESTORE CHANQ * 

* + CHAN SCHED * 

* FLAGS * 
***************** 



*****F4********** 

* INSERT X'20' * 

* ERROR ON * 

* RECOVERY * 

* MESSAGE * 

* * 
***************** 



****D5 ********* 

* SVC 3 * 

* EXRTY * 

* CHART DD * 
*************** 



*UC-B2,B4,B5iC5t 
D2,D3,E1,G4 
***** 



**G4******* 

* TURN OFF * 

RETRY + 
IGNORE BIT 
IN ERR BLK 

* FLAG BYTE * 
*********** 



****H4********* 

* SVC 3 * 
*FETCH $$ANERRM * 

* CHART NA * 



**** 

* * 

* 4 * 

* * 
**** 
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****A1********* 

* * 

* $$ANERR7 * 

* * 
*************** 



*****Ql********** 

* LOAD ADDR OF * 

* COMREG ERROR * 

* BLKt PUB TBL, * 

* ccw + . * 

* RETRY CNTRL * 
***************** 



*****C1********** 

* * 

* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



.*• 

Dl *. 

.* VALID *. 

.* CHANNEL *. NO 

*. QUEUE .*... 

*. POINTER .* 



♦♦♦♦A5********* 



*************** 



*****Q2********** 

* * 
♦GET EXIT ADDR, * 

,.X* IGNORE FROM * 

* ERBLOC * 

* * 
***************** 



*****C2 ********** 

* * 

* ZERO LAST * 

* BYTE OF * 

* PHASE NAME * 

* * 
***************** 



****Q2********* 



*************** 



*****E2 ********** 

♦ GET TEB PNTR, * 
- COMPUTE TEB * 

ADDR + GET * 
RETRY CNTR * 

* ADDR * 
***************** 



*****B4********** 

♦CNTRTN UE* 
*-*-*-*-*-*-*-*-.* 
X* INCREMENT * 

* RD ERROR * 

* ENTRY CNT * 
***************** 



.X* 



TEST 

POSITION 

CHK 

*. .* 



*****F2********** 

* TURN ON INTV * 

* REQ'D BIT * 
.X* IN ERRBLK *.. 

* SET X«08« * 

* MSG CODE * 
***************** 



SETPSN 

*****G2 ********** 

* INSERT X«39« * 
. YES * MSG CODE * 
.* X* FOR POSITION * 

* CHK * 



.* RETRY *. NO 
*. CNT LIMIT .♦... 
*. EXCEEDED .♦ 



*****D3********** 
♦CNTRTN UE* 

*_*_*_*_*_*_*_*_* 

* INCREMENT * 

* PERMNT RD * 

* ERR CNT * 
***************** 



*****E3********** 

♦ ♦ 

♦ INSERT X»ll« ♦ 

♦ DATA CHK ♦ 

♦ MSG CODE * 

♦ * 
***************** 



♦ GET ADDR ♦ 

♦ OF USER'S ♦ 

♦ CCB IN CCWREG ♦ 

♦ * 
***************** 



*****D4********** 

* * 

* INSERT X«18' * 

* CMDREJ * 

* MSG CODE * 

* * 
***************** 



TEBS 
PECIFI 



.SPECIFIED.* 
♦ . .* 

*. .♦ 
♦ YES 



*****C5********** 



***************** 



*****£5********** 

* * 

* INCREMENT ♦ 

* + STORE ♦ 

* TEB CNTR * 

* * 
***************** 



****P5********* 

♦ RETURN TO * 

♦ ADDR IN * 

♦ LNKREG * 
*************** 



.♦ USER ♦ 
♦. ACCEPT DATA 
♦. CHK .♦ 



***************** 



.♦ DATA ♦. 

CHK 

♦ . .♦ 



R 


rN 


.♦. 










.ii 


*. 










♦ 


♦ . 








.♦ 






*. 




* 


'♦. 


RD 

♦ . 


CMD 
• * 


♦* 


* 






♦. .♦ 












♦ NO 












X 










**** 










* 


* 










* 


4 * 










* 


* 










**** 







.* RETRY *. YES 
*. CNTR LIMIT .*..X 
♦.EXCEEDED .* 



**** 

* * 

* 5 * 

* * 
**** 



*****H3********** 

* INSERT X'10« * 

* POST DATA * 

* CHK IN CCB * 

* * 
***************** 



***** j 3********** 

* * 

* TURN ON * 

* PASSBACK IN * 

* ERROR FLAG * 

* * 
***************** 



EXITA 

*****H4********** 

* TURN OFF * 

* RETRY BIT ♦ 

* IN ERROR * 

* FLAG ♦ 

* * 
***************** 



*****J4********** 

♦ TURN ON ♦ 

♦ IGNORE BIT ♦ 

♦ IN ERROR ♦ 

♦ FLAG ♦ 

♦ * 
***************** 



****K2 ********* 

* SVC 3 * 
♦FETCH $$ANERR8 * 

* CHART OF * 
*************** 



**** 

* * 

* 1 * 

* * 
♦ *♦* 



UNDETR X 

*****H5********** 

* INSERT X'19' ♦ 

* MSG CODE FOR ♦ 

* UNDETR ♦ 

* ERROR ♦ 

* * 
***************** 



**** 
RETOFF X 

*****j5********** 

* TURN OFF * 
♦RETRY + IGNORE ♦ 
♦BITS IN ERRBLK * 

* FLAG BYTE ♦ 

* * 
***************** 



****K5 ********* 

♦ SVC 3 * 
♦FETCH $$ANERRM ♦ 

* CHART NA * 
*************** 
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****A1********* 



*************** 



*****B1********** 

* LOAD ADDR * 

* OF COMREG, * 

* ERROR BLK. * 

* PUB TBLt CCW, * 

* + RETRY CNTR * 
***************** 



*****Ci********** 

* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



MOVE 1 BYTE INTO 
CHANQ AREA AND CHAN 
SCHED FLAG AREA TO 
RESTORE THESE AREAS. 



**** 

* * 

* 1 * 

* * 
**** 



****A5********* 

* * 

* DOSVC * 
******* ******** 



B2 ♦ . 

.* *. 

.* ANY *. YES 

. CHAINING .*.... 

♦. .* 

*. . * 

*. .* X 
♦ NO **** 


B3 *. 
.* ♦ . 
.* UNIT *. NO 

*. CHECK .* 

*. .* 
*. .♦ 
*. .* 
* YES 


*****Q4********** 

* UPDATE STATUS * 

* + RESIDUAL * 
...X* CT IN * 

* ERQUE * 

* * 
***************** 


*****B5 ********** 

* SAVE PTR TO * 

* CHANQ + PUT * 

* X'FF' INTO * 

* PNTR IN * 

* PUB * 
***************** 




* 3 
* 


* 
* 










**** 




X 

.*. 

C4 *. 

.* *. 

.* RESIDUAL *. YES 

*. CT = ...... 

*. .* • 
*. .* 

*. .* X 




X 

****C2********* 
SVC 3 * 
EXIGN * 
CHART DD * 

*************** 




REFAIL X 

*****C3********** 

* TURN OFF * 

* DEVICE END * 

* IN LATEST * 

* STATUS * 

* * 
***************** 


X 

*****C5********** 

* MOVE CHAN * 

* SCHED FLAGS * 

* TO RESTORE * 

* INST FOR * 

* SAVING * 
***************** 



Dl *. 












D3 *. 








X 


.* VALID * 












.* * 








****D4********* 


.♦ CHANNEL 


*. 


NO 








.* SENSE 


'*« 


NO 




* SVC 3 * 


. QUEUE PNTR 




*.... 








♦ . EQUAL 




*.... 




* EXIGN * 


*. 


** 










*. 


■ * 






* CHART DD * 


*. . ♦ 












*. .* 








*************** 


*. .* 




X 








*. .♦ 




X 






* YES 




**** 








* YES 




**** 








* * 

* 5 * 

* * 








• 




* 

* 4 
* 


* 
* 
* 




. 




**** 








. 




**** 




X 












X 

.*. 






SETEBL 


El ♦. 






*****E2 ********** 


E3 ♦ . 








*****E4********** 
* SET UP ERR * 


.* * 






* 


GET TEB PNTR 


* 


.* * 








.* TEBS 


*. 


YES 


* 


COMPUTE TEB 


* 


.♦ RESIDUAL 


'* 


NO 




* BLK AS IF * 


. SPECIFIED 




* 


X* 


ADDR + GET 


* 


*. COUNT 




* 




X* AN INITIAL * 




** 




* 


RETRY CNTR 


* 


*. EQUAL 


.*' 






* ERR HAS * 


**. .*' 






* 


ADDR 


* 


*. .* 








* OCCURRED * 


*. .* 






***************** 


*. .* 








***************** 



MAINTR 

*****P1********** 

* SAVE ERROR * 

* QUEUE ENTRY * 

* FOR ORIGINAL * 

* ERROR * 

* * 
***************** 



*****Gl********** 
♦DOSVC UF* 
*_*_*_*_*_*_*_*_* 

* PERFORM * 

* BACKSPACE * 

* * 
***************** 



RECVERR X 

*****G2 ♦♦♦♦♦♦♦♦♦♦ 

* INSERT X'20' * 

* RECOVERY * 

* ATTEMPT ERR * 

* MSG CODE * 

* * 
***************** 



*****P3********** 

* RESTORE ORIG * 

* ERROR + * 

* INCREMENT * 

* ERROR RETRY * 

* COUNT * 
***************** 



****G3********# 

* SVC 3 ♦ 
♦FETCH SSANERR7 * 

* CHART UE ♦ 
*************** 



****P4********* 

♦ SVC 3 ♦ 
♦FETCH SSANERR7 ♦ 

♦ CHART UE ♦ 
*************** 



**D5******* 

♦ TURN OFF ♦ 

♦ Q ERR + ♦ 
♦ DEV BUSY INDS 

♦ IN PUB ♦ 

* FLAG ♦ 
*********** 



*****E5********** 

♦ SET RIK TO ♦ 

♦ X»00«, LOAD ♦ 

♦ R15 WITH ADDR ♦ 

♦ OF BLD CCB ♦ 

♦ MAKE RO NON-0 * 
***************** 



***F5+***** ♦***♦* 



***************** 



.* 
. .* 
♦ NO 



HI ♦. 
.♦ ♦. 
.♦ *. YES 

♦. UNIT CHECK .♦ 

♦ . .* 
♦ . .* 
*. .* 
♦ NO 


****H2********* 

♦ SVC 3 ♦ 
♦FETCH SSANERRM ♦ 

♦ CHART NA ♦ 
*************** 




**** 

* * 

* 3 ♦ 
, * • * 

**** 


SETRD X 

*****jl********** 

♦ COMPUTE ♦ 

♦ START PT + ♦ 

♦ LGTH TO ♦ 

♦ FINISH USER'S ♦ 

♦ READ ♦ 
***************** 


.♦. 

J2 ♦. 

.♦ ♦. 

.♦ CHAN ♦ . YES 

..X+. FAILURE .*.... 

*. .♦ 

♦ . .♦ 

♦ . .♦ X 
* NO ♦♦♦♦ 
• . * * 


> 
*****j3*X 

♦ FIND 

♦ CCW + 

♦ ITS At 

♦ USER' 
* 
********* 


C 
******** 

NEXT ♦ 
PLACE ♦ 
)DR IN ♦ 
> CCB ♦ 
* 
******** 






* 4 ♦ 

* * 
**** 






X 
*****K1********** 
♦DOSVC UF^ 
*_ *_ *_ *- *_ *_ *-*_ * 

♦ PERFORM ♦ 

♦ READ ♦ 

♦ * 
***************** 


X 
*****«2 ********** 

♦ SAVE ♦ 

♦ STATUS ♦ 

♦ SAVE CNT * 

♦ FROM LATEST ♦ 

♦ READ ♦ 
***************** 




) 
****K3+=f 

♦ SVC 

♦ EXF 

♦ CHART 
******** 


( 
******** 

, 3 ♦ 
ITY ♦ 

r dd ♦ 
******** 



*****H4********** 

* * 
♦GET EXIT ADDR, ♦ 

♦ IGNORE FROM ♦ 

♦ ERBLOC ♦ 

* * 
***************** 



*****J4********** 

♦ * 

♦ ZERO LAST ♦ 

♦ BYTE OF ♦ 

♦ PHASE NAME ♦ 

♦ * 
***************** 



****K4********* 

* * 

* SVC 3 ♦ 

* * 
*************** 



*****J5********** 



***************** 



****K5*+**++*+* 

♦ RETURN ♦ 

* * 
*************** 
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****A1********* 

* * 

* *$ANERAI * 

* * 
*************** 



*****B1 ********** 

* LOAD COMREG, * 

* ERROR BLOCK * 
*AND PUB ADDRS, * 

* GET CHANQ * 

* POINTER ADDR * 
***************** 



*****ci********** 

* * 

* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



Dl *. 
.♦ VALID *. 
.* CHANNEL ♦. NO 
*. QUEUE PNTR .*... 



.* *. 

*. 
EQUIPMENT . 
. CHECK .♦ 
*. .♦ 
*. .* 
* YES 



EQPCHK 

*****B2 ********** 

* INSERT X«10« * 

* EQUIPMENT * 

* CHECK * 

* MESSAGE CODE * 

***************** 



*****E L********** 



***************** 



*****02 ********** 
♦GET EXIT ADDR, * 

* IGNORE FROM * 
.X+ERBLOC AND LAST* 

* BYTE OF * 

* PHASE NAME * 
***************** 



****E2 ********* 

* * 

* SVC 3 * 

* * 
*************** 



**** 

* * 

* 5 * 

* * 
**** 



. * 
***YES 



* 5* 

* * 
**** 



INTREQD 

**B3******* 

* SET ON * 
♦INTERVENTION 

* REQUIRED BIT 
♦ IN ERR FLG 

* * 
*********** 



.♦. 


BUSRETRY .♦. 


C3 ♦. 


C4 ♦. 


.♦ ♦. 


.* *. 


YES .♦ INITIAL ♦ . 


YES .♦ INITIAL * 


...*. SELECTION .* 


...*. SELECTION 


♦ . .♦ 


♦. . 


♦ . .♦ 


♦ . .* 


♦ . .♦ 


X ♦. .♦ 


♦ NO 


**** * NO 




* * 




♦ 4 ♦ 




* * 


Ix.... 


.. **** 


UPDATCCW X 


X 

.♦. 


*****03********** 


D4 *. 


* * 


.* ♦. 


* UPDATE ♦ 


. YES .♦ WRITE * 


* INTERRUPTED * 


♦. COMMAND 


♦ CCW ♦ 


♦. m* 


* * 


♦. .♦ 


***************** 


♦. .♦ 




* NO 


**** ' 




* * . 


!x.... 


♦ 4 ♦.X. 




♦ * 




**** 




X 

****E3********* 


BSOUTMSG X 

*****cA******* 


* 


♦ SVC 3 ♦ 


♦ INSERT X'09« 


* EXRTY * 


* BUSOUT CHECK 


♦ CHART DD * 


♦ MESSAGE CODE 


*************** 


* 



***************** 



.♦ 
'♦*YES 



**C5******* 

♦ TURN ON ♦ 
ALLOW RETRY ■ 
AND IGNORE 

BITS IN 

♦ ERR FLAG ♦ 
*********** 



**D5******* 

* SET ON ♦ 
BROKEN TAPE * 
BIT IN BYTE * 

3 OF CCB * 

* * 
*********** 



*****£5 ********** 

* * 

* INSERT X«40« * 

* BROKEN TAPE * 

* MESSAGE CODE ♦ 

* * 
***************** 



**** 

* * 

* 6 * 

* * 
**** 



.* 
.* 
NO 



*****H1********** 

♦ * 
♦GET SENSE DATA ♦ 

♦ FOR 1017 OR ♦ 

♦ 1018 AND ♦ 

♦ SAVE IT ♦ 
***************** 



INVALID ♦. YES, 
SENSE .♦. " 
DATA .♦ 
*. .* 
♦ . .♦ 



****G2********* 

* SVC 3 ♦ 
♦FETCH JSANERAJ ♦ 

♦ CHART UH ♦ 
*************** 



*****G3********** 

♦ INSERT X«08« ♦ 

♦ INTERVENTION ♦ 

♦ REQUIRED ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



♦ NO 



* 1 * 

* * 
**** 



* 2 ♦ 

♦ * 
**** 



*K1 

GET CCB ADDR AND SAVE IT 
FOR NEXT PHASE, GET INTERRUPTING 
CCW ADDR AND PUT INTO CCB 



♦ INSERT X«19» ♦ 

♦ UNDETERMINED ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



**** 

X 
**j4******* 

♦ TURN OFF ♦ 

♦ ALLOW RETRY ♦ 
♦ AND IGNORE ♦ 

♦ BITS IN ♦ 

♦ ERR. FLG ♦ 
*********** 

**** 



****K4********* 

♦ SVC 3 ♦ 
♦FETCH $$ANERRH ♦ 

♦ CHART NA ♦ 
*************** 



*****H5 ********** 

* * 

♦ INSERT X'18« ♦ 
♦COMMAND REJECT ♦ 

♦ MESSAGE CODE ♦ 

* * 
***************** 
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****B2 ********* 

* * 

* $$ANERAJ * 

* * 

*************** 



*****C2********** 

* LOAD ADDRESS * 

* OF COMREG. * 

* ERRBLOC, CCB * 

* AND PUB TABLE * 

* * 
***************** 



.* *. 
.* CHANNEL * 
*. DATA 

*. CHECK .* 



YES .♦ RETRIES *. 


YES .* RETRIES 


...♦.GREATER THAN .* 


......GREATER THAN 


*. THREE .* 


*. TWO 


*. .* 


*. .* 


X *. .* 


*. .* 



DTEXIT X 

*****£5********** 

* INSERT X'll* * 

* DATA CHECK * 

* MESSAGE * 

* CODE * 

* * 
***************** 





9 


.*. 


.*. 








.*. 




F2 *. 


F3 *. 






F5 *. 




.* *. 


.* *. 






.* ALLOW *. 




NO .* DEVICE *. 


.* INITIAL *. YES 




NC 


.♦IGNORE BIT *. 






...••••*. = 1018 .* 


*. SELECTION .* 








*. IN BYTE 2 . 






*. PUNCH .* 


*. .* 






*. OF CCB .* 






*. .* 


*. .* 








*. .* 






*. .* 


*. .* 






X 


*. .* 






* YES 


* NO 






***4 
* 
* 2 


* YES 

* '. 








' x! 


















* 


* 














***4 




X 


DV1018 X 


CHNDTEX X 








X 


**Gl******* 


**G2******* 


*****G3********** 


X 




**G5******* 


* BUILD * 


* * 


* INSERT X % 28* * 


****G4********* 




* SET ON * 


* CHANNEL * 


* SET ON * 


* CHANNEL * 


* SVC ♦ 




* DATA CHECK * 


PROGRAMS * 


* DATA CHECK * 


* DATA CHECK * 


♦ EXRTY * 




* BIT IN BYTE 


* BACKSPACE 1 * 


* BIT IN CCB * 


* MESSAGE * 


* CHART DD * 




* 3 OF CCB * 


* * 


* * 


* CODE * 


*************** 




* * 


*********** 


*********** 


***************** 






*********** 


*. 




**** I 
* * . 








X 




* 2 *.X. 








***** 




* * . 








*UJ * 


X 


**** 








* Al* 


.*. 


X 






X 


* * 


H2 *. 


**H3******* 






**H5******* 


* 


.* *. 


* TURN OFF * 






* TURN ON * 




NO .* DOES *. 


* ALLOW RETRY * 






♦ALLOW IGNORE ♦ 




...*. USER WANT .* 


* AND IGNORE * 






♦ BIT IN 




*. RETURN .* 


* BITS IN * 






♦ ERR FLG ♦ 




*. .* 


* ERR FLG * 






♦ * 




X *. .* 


*********** 






*********** 




**** * YES 












* * . 












* 1 * 








" 




* * 












**** 

X 


lx 










X 










****J2********* 


****j3********* 










* SVC 3 * 


* SVC 3 * 










* EXIGN * 


♦FETCH $$ANERRM * 










* CHART DD * 


* CHART NA * 












*************** 


*************** 











348 DOS Supervisor and Related Transients 



Page of GY24-5151-2,, revised October 28, 1971 # by TNL GN33-8692 



Chart UJ. $$ANERAJ - Phase 2 of 1017/1018 Paper Tape ERP (Part 2 of 2 ) 
Refer to Chart 12. 



***** 

*UM * 
* GL* 



* AND CHANNEL * 

* SCHEDULER * 

* FLAGS * 
***************** 



*****Bl********** 



* SSM TO * 

* ENABLE I/O * 

* INTERRUPTS * 

* * 
***************** 



.♦. 
CI ♦ . 
.* VALID *. 
.* CHANNEL *. YES 
*. QUEUE .*.... 
*. PNTR .* 
*. .* 
*. .* 
* NO 



**** 

* * 

* 1 * 

* * 
**** 



*****D1********** 

* * 
♦GET EXIT ADDR, * 

* IGNORE FROM * 

* ERBLOC * 

* * 
***************** 



*****£].********** 

* * 

* ZERO LAST * 

* BYTE OF * 

* PHASE NAME * 

* * 
***************** 



****pi********* 

* * 

* SVC 3 * 

* * 
*************** 



**C2******* 

* TURN OFF * 

♦QUEUED ERRORS* 

♦ AND DEVICE ♦ 

♦BUSY BITS IN ♦ 

CHAN SCHD FLGS 

*********** 



*****D2***#****** 

♦ SET RIK TO ♦ 

♦ X'OO' AND ♦ 

♦ STORE ADDRESS ♦ 

♦ OF CCW IN CCB ♦ 

♦ * 
***************** 



***££♦♦♦♦♦♦♦♦♦**♦ 



***************** 



NO .* CHAN 

...*. QUEUE 

♦.OVERFLOW 

♦. .♦ 

X ♦. .♦ 

**** * YES 

* * 

* 1 * 

* * 
**** 

ERROR 

*****G2+***++**** 

♦ RESTORE ♦ 

♦ INDEX TO ♦ 

♦ CHANQ AND ♦ 

♦ CHAN SCHD ♦ 

♦ FLAGS ♦ 
***************** 



.♦ I/O ♦. NO 
♦. COMPLETE .♦... 
♦ . .* 



****C5***+++*** 

* SVC 7 * 
.X+ WAIT ♦ 

♦ ♦ 
*************** 



RCHAN 

*****04********** 

♦ RESTORE ♦ 

♦ INDEX ♦ 



***************** 



RCHS X 

*****E4********** 

* RESTORE * 

* CHANNEL ♦ 

* SCHEDULER ♦ 

* FLAGS ♦ 

* * 
***************** 



F4 * 
♦ 

CHECK 



♦. 
*. 

.♦* 



*****H2****++*+** 

♦ INSERT X«20« ♦ 

♦ ERROR ON ♦ 

♦ RECOVERY ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



**J2******* 

* TURN OFF ♦ 

* ALLOW RETRY : 
AND IGNORE 

♦ BITS IN 

♦ ERR FLG ♦ 
*********** 



****K2 ********* 

♦ SVC 2 * 
♦FETCH $$ANERRM ♦ 

♦ CHART NA ♦ 
*************** 



*****G4********** 

♦ UPDATE ♦ 

♦ THE ♦ 

♦ INTERRUPTED ♦ 

♦ CCW ♦ 

♦ * 
***************** 



♦♦♦♦^♦♦♦♦♦♦♦♦* 

♦ SVC 3 ♦ 

♦ EXRTY ♦ 

♦ CHART DD ♦ 
*************** 
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****A1********* 



*************** 



**Bl******* 

* * 
ALLOW I/O, 

EXTERNAL 
INTERRUPTS 

* * 
*********** 



*****£ 1********** 

* GET ADDRESS * 

* OF COMREG * 

* AND ERROR * 

* RECOVERY * 

* BLOCK * 
***************** 



*****oi********** 

* * 

* GET USERS * 

* CCB * 

* ADDRESS * 

* * 
***************** 



.♦ CHANNEL 
*. DATA 
*. CHECK 



B2 *. 
.* *. 

*'. EQUIPMENT 
*. CHECK . 



.* BUS 
OUT 
*. CHECK 

*. . : 



***** 

*UL * 

* C3* 

* * 



***** 
*UN * 
* Bl* 



***** 
*UM * 
* Bl* 



.* 




DATA 
CHECK 


* 


YES 
*.... 


*• 






.* 






* 


. .* 
*• •* 
* NO 




X 

***** 
*UM * 
* A4* 





X 








.*. 








A4 *. 








.* *. 






* 


LOAD 


*. 


YES 




CHECK 




*. ... 


* 




** 






■*. .*' 








*. .* 




X 




* NO 




***** 
♦UN * 




• 




* B5* 



* * 
* 

X LOADCK 

.*. INTREQ „ 

B4 *. **B5******* 

.* *. * SET * 

.* *. YES * MESSAGE 

*. INTERVENTION .* X* CODE TO 

*. REQUIRED .* * INTERV 

*. .* * REQ *H4 * 

*. .* *********** 

* NO 



**C4******* 

* SET * 
MESSAGE 
CODE TO 

UNDETR ERR : 

* *H4 * 
*********** 



ACTION2 ,. X 

**C5******* 

* SET * 

♦ INTERVENTION-* 
* REQUIRED TN * 

* ERQUE * 

* FLAGS * 
*********** 



****04********* 

* EXIT TO OBR * 
♦RECORD BUILDER * 

* $$ANERRM * 
*************** 

CHART NA 



.. E1 *•.. 

.* CHANNEL *• NO 
*. 9 OVERFLOW . *. . . 
*. .* 



.♦ USER CCB *. NO 
*. AVAILABLE .*..X 
*. .* 
♦ . .♦ 



**G1******* 

* POST ♦ 
CHANNEL 

9 OVERFLOW 
IN CCB 

* * 
*********** 



.* BUFFER *. 


YES 


*. PARITY .♦ 




*. CHECK .* 




*. .* 




*. .* 


X 


* NO 


***** 




*UL * 




* Bl* 




* * 




♦ 


X 


BUFPA 


**P2******* 




* SET * 




* MESSAGE ♦ 




♦ CODE TO COMM * 




* REJCT ♦ 





*********** 



.* COMMAND *. 

REJECT 

*. .* 



**H2 ******* 

* SET * 

* MESSAGE 

♦ CODE TO LOAD 

* CHECK *H4 • 

* * 
*********** 



***** 
*UL * 
* HI* 



♦H4 
0P08 INTERV REQ 
0P18 COMM REJCT 
0P19 UNDETR ERR 
0P41 LOAD CHECK 
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APPENDIX A: 



LABEL LIST 





Phase or 




Label 


Macro 


Cha 


AACT 


$$ANERRU 


SC 


AACTION 


$$ANERRP 


RF 


ABTRANS 


SGDFCH 


EC 


ACT I ON A 


$$ANERRP 


RE 


ACTION1 


$$ANERSA 


UL 


ACTION1C 


$$RAST04 


XB 


ACTION1C 


$$RAST05 


XF 


ACTION2 


$$ANERSA 


UK 


ACTION3 


$$ANERSA 


UM 


ACTION3 


$$RAST04 


XB 


ACTION3 


$$RAST05 


XF 


ACTIONS 


$$ANERSA 


UN 


ACTION4 


$$RAST04 


XC 


ACTION4 


$$RAST05 


XF 


ACTION4A 


$$ANERSA 


UM 


ACTION4B 


$$ANERSA 


UN 


ACTION 5 


$$ANERSA 


UL 


ACTION5 


$$RAST04 


XB 


ACTION5 


$$RAST05 


XF 


ACTION6 


$$ANERSA 


UL 


ACTION6 


$$ANERR6 


uc 


ACTION7 


$$ANERSA 


UM 


ACTION7 


$$ANERR7 


UE 


ACTION7A 


$$ANERSA 


UM 


ACTION7B 


$$ANERSA 


UL 


ACTION8 


$$ANERSA 


UM 


ACTION 8 A 


$$ANERSA 


UM 


ACTNRTN 


$$RAST10 


XL 


ADDTOCT 


$$ANERR6 


UD 


AFTTIO 


SGUNCK 


DF 


ALLBND 


FOPT 


BCA 


ALLBND1 


FOPT 


BCA 


ANNUL 


$$ANERR9 


UB 


APTEST 


$$ANERAE 


RC 


ARETURN 


$$RAST0U 


XB 


ARETURN 


$$RAST05 


XF 


ARND1 


$$ANERRU 


SC 


ASCEND 


$$RAST09 


XJB 


ATNCNL 


SGSVC 


FG 


ATNRTN 


SGTCON 


GD 


ATYPE 


$$ANERRV 


SE 


ATYPE 


$$ANERRX 


SK 


ATYPE 


$$ANERRN 


RB 


A01 


$$ANERRG 


QA 


A02 


$$ANERRG 


QA 


A03 


$$ANERRJ 


QF 


A05 


$$ANERRJ 


QF 


A06 


$$ANERRJ 


QF 


A2321 


SGTCHS 


CH 


BALMSG 


$$ANERRJ 


QF 


BALSTCHK 


$$ANERRJ 


QF 


BEGIN 


$$ANERSA 


UK 


BEGIN 


$$ANERSA 


UP 


BEGIN 


$$ANERSA 


UQ 


BEGIN 


$$RAST04 


XA 


BEGIN 


$$RAST05 


XE 


BGBAD 


$$RAST09 


XJA 



BJFTST 


$$ANERR1 


TG 


BKNTAP 


$$ANERAI 


UG 


BLDERPIB 


$$RAST00 


VD 


BLDLAST 


$$RAST01 


VK 


BLDREC 


$$RAST01 


VF 


BLDREC 


$$RAST02 


WC 


BLDREC1 


$$RAST02 


WC 


BSOUT 


$$ANERRW 


SG 


BSOUTMSG 


$$ANERAI 


UG 


BSTTST 


SGUNCK 


DA 


BTAM 


$$ANERRC 


NM 


BUFPAR 


$$ANERSA 


UL 


BUS 


$$ANERRX 


SK 


BUSOUT 


$$ANERRA 


NLA 


BUSOUT 


$$ANERRV 


SE 


BUSOUT 


$$ANERRW 


SF 


BUSOUT 


$$ANERR9 


UA 


BUSOUT 


$$ANERAI 


UG 


BUSOUT 


$$ANERSA 


UM 


BUSRETRY 


$$ANERAI 


UG 


BUS1 


$$ANERRV 


SE 


BUS2 


$$ANERRV 


SE 


BYCNL 


$$ANERRZ 


TD 


BY1 


$$ANERRM 


NB 


BZYTEST 


$$RAST00 


VE 


B01 


$$ANERRG 


QA 


B02 


$$ANERRG 


QA 


CALFET 


SGSVC 


FF 


CALLMW 


$$ANERRX 


SJ 


CALLRTA 


MCRAS 


HB 


CALLSEC2 


$$ANERRZ 


TC 


CALLSEC3 


$$ANERRY 


TB 


CALLO 


MCRAS 


HB 


CALPH4 


$$ANERRO 


RD 


CALPH5 


$$ANERRP 


RF 


CAN ALL 


SGTHAP 


MM 


CANCEL 


$$ANERR1 


TG 


CANCEL 


$$RAST02 


WB 


CANCOD 


$$ANERRS 


RL 


CANCON 


$$ANERRX 


SK 


CANJOB 


$$RAST10 


XM 


CANRTN 


$$ANERRS 


RL 


CANTASK 


$$RAST10 


XK 


CANTLP 


$$ANERRY 


TA 


CANXIT 


FOPT 


BE 


CBGOA 


SGSVC 


FQ 


CBMOV 


SGSVC 


FP 


CBNON1 


SGTCHS 


CCA 


CBNON2 


SGTCHS 


CCA 


CBOK 


SGSVC 


FP 


CBRET 


SGTCHS 


CC 


CCBQED 


SGUNCK 


DB 


CCBSTR 


$$ANERAB 


RA 


CCBUNAV 


$$ANERAE 


RC 


CCDADI 


MCRAS 


HH 


CCDAMAGE 


MCRAS 


HD 


CCDASDCK 


MCRAS 


HH 


CCDASDI 


MCRAS 


HH 


CCDASDLT 


MCRAS 


HH 


CCDASDTC 


MCRAS 


HH 
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CGDEVTST 


MCRAS 


HE 


CCDEXIT 


MCRAS 


HD 


CCENTRY1 


MCRAS 


HD 


CCENTRY2 


MCRAS 


HE 


CCENTRY3 


MCRAS 


HE 


CCEREXIT 


MCRAS 


HD 


CCEXIT1 


MCRAS 


HD 


CCEXIT1 


$$RAST00 


VD 


CCEXIT2 


MCRAS 


HE 


CCEXIT3 


MCRAS 


HF 


CCEXIT4 


MCRAS 


HF 


CCNOT10 


MCRAS 


HF 


CCRECRTN 


$$RAST01 


VK 


CCRTYTST 


MCRAS 


HE 


CCSETDMC 


MCRAS 


HD 


CCT155 


MCRAS 


HF 


CCWTEST 


$$RAST11 


XN 


CDATACK 


$$ANERR9 


UA 


CDC 


$$ANERRW 


SG 


CEDETST 


SGTCHS 


CL 


CHAINCH 


$$ANERRB 


NN 


CHDTCK 


$$ANERRX 


SJ 


CHECK 


$$ANERRA 


NL 


CHECKLST 


$$RAST00 


VB 


CHECKMC 


$$RAST00 


VB 


CHEND 


SGTCHS 


CL 


CHEND 1 


SGTCHS 


CL 


CHFAIL 


SGUNCK 


DF 


CHFAIL1 


SGUNCK 


DF 


CHKACTN 


$$RAST10 


XM 


CHKADR 


$$ANERRT 


SA 


CHKADR 


$$ANERRW 


SF 


CHKADR 


$$ANERRS 


RK 


CHKAM 


$$ANERRB 


NN 


CHKCNT 


$$&NERRV 


SE 


CHKDEV 


$$ANERRP 


RF 


CHKDISK 


$$ANERRA 


NL 


CHKERQ 


$$RAST10 


XK 


CHKERR 


$$ANERSA 


UK 


CHKLTA 


$$ANERRS 


RL 


CHKMPS 


$$RAST10 


XM 


CHKMSG 


$$RAST01 


VJ 


CHKMSG 


$$RAST10 


XK 


CHKOCREC 


$$RAST01 


VJ 


CHKSNS 


$$ANERSC 


UQ 


CHKSN1 


$$ANERSC 


UQ 


CHKTABLE 


$$RAST01 


VJ 


CHNDAT 


$$ANERSA 


UL 


CHNDRT 


SGTCHS 


CP 


CHNDTEX 


$$ANERAJ 


UH 


CHNERROR 


SMCRR 


KA 


CHNOK1 


SGTCHS 


CK 


CHNTST 


SGTCHS 


CP 


CKCHST 


SGTCHS 


CE 


CLBPRG 


SGTCHS 


CA 


CLBPTR 


SGTCHS 


CAA 


CLBSUP 


SGTCHS 


CAA 


CLCEX 


SGDFCH 


EC 


CLCINS 


SGTCHS 


CH 


CLEAR 


$$RAST02 


WC 


CLKDMG 


$$RAST03 


WJ 


CMDCHN 


SGUNCK 


DA 


CMDREJ 


$$ANERRV 


SE 


CMDSEQ 


$$ANERRV 


SD 



CMNDREJ 


$$ANERR9 


UB 


CMR 


$$ANERRV 


SE 


CNCEL 


SGTHAP 


MK 


CNCELL 


SGTHAP 


MK 


CNCELO 


SGTHAP 


MK 


CNCEL1 


SGTHAP 


ML 


CNCEL1A 


SGTHAP 


ML 


CNCEL1B 


SGTHAP 


ML 


CNCEL2 


SGTHAP 


MK 


CNCEL2AA 


SGTHAP 


MK 


CNCEL3 


SGTHAP 


ML 


CNCEL4 


SGTHAP 


ML 


CNCEL5 


SGTHAP 


ML 


CNCL 


FOPT 


BE 


CNCL 


$$ANERRU 


SC 


CNCLLOOP 


$$ANERRZ 


TD 


CNCLSW 


$$ANERRY 


TB 


CNERPIB 


$$RAST02 


WB 


CNLSVE 


FOPT 


BA 


CNO 


$$ANERRU 


SB 


CNTEXT 


$$ANERRP 


RE 


CNTRTN 


$$ANERR7 


UE 


CNTST 


$$ANERRV 


SD 


CNTST 


$$ANERRN 


RB 


COMBIN 


$$ANERRA 


NL 


COMMENCE 


$$ANERAD 


NK 


COMPCLC 


SGTCHS 


CA 


COMR 


$$ANERRX 


SJ 


COMREJ 


$$ANERRB 


NN 


COMR J 


$$ANERRW 


SH 


COMRJT 


$$ANERAI 


UG 


CONBUF 


SGS7C 


FP 


CONBUF2 


SGSVC 


FP 


CONT 


$$ANERRV 


SE 


CONT 


$$ANERRW 


SG 


CONTINU 


SEND 


LA 


CONTINU 


$$ANERAF 


NG 


CONTINUE 


$$ANERR9 


UB 


CONTINUE 


$$ANERRM 


NB 


CONTROL 


$$RAST03 


WF 


CORCIN 


SGTCHS 


CK 


CORPUB 


SGTCHS 


CK 


CORPUB 


SGTCHS 


CK 


CORREC 


SGTCHS 


CJ 


COUNT 


SGTCHS 


CG 


COUNTRG 


$$ANERRP 


RE 


COUNTRG 


$$ANERRQ 


RG 


CQDSP 


SGTCHS 


CR 


CSBY2 


FOPT 


BE 


CSCAN 


$$RAST04 


XA 


CSCAN 


$$R&ST05 


XE 


CSRST 


FOPT 


BE 


CSWCHK 


SGUNCK 


DF 


CSWLOST 


$$RAST00 


VD 


CUPDATE 


$$R^ST04 


XA 


C UPDATE 


$$R&ST05 


XE 


CUU 


$$ANERRO 


RD 


CYLEND 


SGDSK 


GB 


C01 


$$ANERRG 


QB 


C01 


$$ANERRH 


QD 


C01 


$$ANERRJ 


QF 


C0100 


$$ANERRV 


SE 


C02 


$$ANERRV 


SD 
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DASD 


$$RAST02 


WA 


DASD 2311 


SGTCHS 


CH 


DAT 


$$ANERRX 


SJ 


DATAADDR 


SGDFCH 


EE 


DATACHK 


$$ANERRB 


NN 


DATACHK 


$$ANERAJ 


UH 


DATACHK 


$$ANERSA 


UM 


DATACHK1 


$$ANERSA 


UM 


DATCHK 


$$ANERRV 


SE 


DCERP 


$$ANERRA 


NL 


DEAL SO 


SGTCHS 


CQ 


DECCTR 


$$ANERRQ 


RH 


DELKOTCK 


SGTCHS 


CN 


DEQUE 


SGSVC 


FF 


DEQUER 


SGUNCK 


DE 


DEQUERl 


SGUNCK 


DE 


DEQUER1A 


SGDNCK 


DE 


DESCEND 


$$RAST09 


XJA 


DETFRE 


SGTHAP 


MB 


DEV2311 


$$RAST01 


VH 


DISWHY 


SGTCHS 


CK 


DMCTEST 


$$RAST02 


WA 


DOSVC 


$$ANERR6 


UD 


DOSVC 


$$ANERR8 


UF 


DOTCH 


SGTCHS 


CF 


DRAPIO 


$$RAST09 


XJA 


DSKTST 


SGDSK 


GA 


DTCH 


$$ANERRB 


NN 


DTCRTN 


$$ANERR7 


UE 


DTEXIT 


$$ANERAJ 


UH 


DV1017 


$$ANERAI 


UG 


DV1018 


$$ANERAJ 


UH 


DYNAMIC 


$$RAST09 


XJA 


DYNREALO 


$$RAST09 


XJA 


EDRDHA 


SGDSK 


GB 


EDRDHA1 


SGDSK 


GB 


EDTIC 


SGDSK 


GB 


EDTIC1 


SGDSK 


GB 


EMGENT 


MCRAS 


HB 


EMGIORTN 


$$RAST01 


VK 


EMGWAIT 


MCRAS 


HC 


END 


$$ANERR0 


TF 


END 


$$ANERR1 


TG 


ENDPUBS1 


$$ANERRZ 


TC 


ENDPUBS3 


$$ANERRZ 


TD 


ENTEXT 


FOPT 


BG 


ENTEXT 


SGSVC 


FL 


ENTIO 


FOPT 


BF 


ENTPCK 


FOPT 


BA 


ENTPCK 


SGSVC 


FJ 


ENTPCK 


SGSVC 


FK 


ENTSVC 


FOPT 


BH 


EPIBSCAN 


$$£AST10 


XL 


EQPCHK 


$$ANERRU 


SC 


EQPCHK 


$$ANERRV 


SD 


EQPCHK 


$$ANERAI 


UG 


EQUCHK 


$$ANERRX 


SK 


EQPCHK 


$$ANERSA 


UN 


EQPCHKl 


$$ANERSA 


UN 


EQUIP 


$$ANERRA 


NL 


EQUIPXIT 


$$ANERR9 


UA 


ERPIBCER 


MCRAS 


HF 


ERPIBCK 


$$RAST10 


XK 


ERPIBFIL 


MCRAS 


HF 



ERPIBLUP 


MCRAS 


HG 


ERPIBLUP 


$$RASTOO 


VD 


ERPIBU 


$$RA$T02 


WD 


ERPMSG 


$$RAST10 


XK 


ERPUBUPD 


MCRAS 


HG 


ERQSDR 


$$ANERAC 


NF 


ERQUECK 


$$RAST10 


XK 


ERR 


$$ANERR6 


UD 


ERRGO 


FOPT 


BB 


ERROR 


$$ANERAJ 


UJ 


ERRORQED 


$$ANERAA 


NC 


ERRQUED 


$$ANERAF 


NH 


ERRQUED1 


$$ANERAG 


NJ 


ERRSEN 


SGUNCK 


DB 


ERRSET 


FOPT 


BB 


ERRSET 


FOPT 


BB 


ERRSET 


FOPT 


BB 


ERRSET1 


FOPT 


BB 


ERRS 10 


SGUNCK 


DF 


ERRSI02 


SGUNCK 


DF 


ERRTYP 


$$ANERRP 


RE 


ERR010 


$$ANERRE 


PC 


ERR010 


$$RAST07 


XH 


ERR015 


$$RAST07 


XH 


ERR020 


$$RAST07 


XH 


ERR030 


$$RAST07 


XH 


ERR040 


$$RAST07 


XH 


ERR05 


$$RAST07 


XH 


ERR070 


$$RAST07 


XJ 


ERR080 


$$ANERRL 


PG 


ERR080 


$$RAST07 


XJ 1 


ERR090 


$$ANERRL 


PG ! 


ERR090 


$$RAST07 


XJ 


ERR093 


$$RAST07 


XJ 


ERR094 


$$ANERRL 


PG 


ERR095 


$$ANERRF 


PE 


ERR095 


$$ANERRL 


PG 


ERR095 


$$ANERAP 


PN 


ERR095 


$$ANERAS 


PX 


ERR096 


$$ANERRL 


PG 


ERR100 


$$ANERRB 


NN 


ERR102 


$$ANERRF 


PE 


ERR105 


$$ANERRB 


NN 


ERR105 


$$ANERRF 


PE 


ERR105 


$$ANERAS 


PX 


ERR110 


$$ANERRD 


PA 


ERR110 


$$ANERRF 


PE 


ERR110 


$$RAST07 


XJ 


ERR110 


$$ANERAS 


PX 


ERR120 


$$ANERRD 


PA 


ERR120 


$$ANERRF 


PF 


ERR120 


$$RAST07 


XJ 


ERR140 


$$ANERRE 


PC 


ERR145 


$$RAST07 


XJ 


ERR150 


$$RAST07 


XJ 


ERR150 


$$ANERAP 


PN 


ERR150 


$$ANERAQ 


PQ 


ERR152 


$$ANERAP 


PN 


ERR153 


$$RAST07 


XJ 


ERR155 


$$ANERAP 


PN 


ERR160 


$$RAST07 


XH 


ERR170 


$$RAST07 


XH 


ERR175 


$$ANERAP 


PN 


ERR180 


$$ANERAP 


PN 


ERR2 


$$ANERRA 


NL 
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ERR200 


$$AtiERRF 


PE 


ERR201 


$$ANERAQ 


PQ 


ERR205 


$$ANERAQ 


PQ 


ERR205 


$$ANERAL 


PU 


ERR208 


$$ANERRF 


PE 


ERR210 


$$RAST07 


XH 


ERR210 


$$ANERAQ 


PQ 


ERR215 


$$ANERAQ 


PQ 


ERR220 


$$ANERRF 


PE 


ERR220 


$$ANERAQ 


PQ 


ERR2U0 


$$ANERAM 


PJ 


ERR250 


$$ANERRF 


PE 


ERR250 


$$ANERAQ 


PQ 


ERR251 


$$ANERAQ 


PQ 


ERR252 


$$ANERAQ 


PR 


ERR255 


$$ANERAM 


PK 


ERR255 


$$ANERAQ 


PR 


ERR260 


$$ANERAQ 


PR 


ERR2 65 


$$ANERRF 


PE 


ERR265 


$$ANERAL 


PU 


ERR270 


$$ANERAL 


PU 


ERR275 


$$ANERAM 


PJ 


ERR300 


$$ANERAK 


PS 


ERR301 


$$ANERRE 


PC 


ERR305 


$$ANERAK 


PS 


ERR309 


$$ANERAK 


PS 


ERR310 


$$ANERAM 


PJ 


ERR310 


$$ANERAK 


PS 


ERR312 


$$ANERAK 


PS 


ERR314 


$$ANERAK 


PS 


ERR315 


$$ANERAM 


PJ 


ERR318 


$$ANERAM 


PJ 


ERR320 


$$ANERAK 


PS 


ERR325 


$$ANERAK 


PS 


ERR326 


$$ANERAK 


PS 


ERR335 


$$ANERRE 


PC 


ERR340 


$$ANERRE 


PC 


ERR340 


$$ANERAN 


PM 


ERR340 


$$ANERAK 


PS 


ERR341 


$$ANERAN 


PM 


ERR350 


$$ANERRE 


PC 


ERR350 


$$ANERRL 


PG 


ERR350 


$$ANERAM 


PJ 


ERR350 


$$ANERAN 


PM 


ERR350 


$$ANERAS 


PX 


ERR351 


$$ANERAK 


PS 


ERR355 


$$ANERRL 


PG 


ERR355 


$$ANERAM 


PJ 


ERR355 


$$ANERAN 


PM 


ERR3 60 


$$ANERRL 


PG 


ERR390 


$$ANERAP 


PN 


ERR3 95 


$$ANERRD 


PB 


ERR396 


$$ANERRD 


PB 


ERR4 00 


$$ANERAS 


PX 


ERR4 01 


$$ANERAS 


PX 


ERR402 


$$ANERAS 


PX 


ERR405 


$$ANERRD 


PA 


ERR405 


$$ANERAP 


PN 


ERRU06 


$$ANERAN 


PL 


ERR408 


$$ANERAN 


PL 


ERR410 


$$ANERAS 


PX 


ERR412 


$$ANERRL 


PG 


ERRU12 


$$ANERAN 


PL 


ERR600 


$$ANERRE 


PC 


ERR6 00 


$$ANERAP 


PP 



ERR605 


$$ANERAP 


PP 


ERR610 


$$ANERAP 


PP 


ERR640 


$$ANERRF 


PF 


ERR650 


$$ANERRE 


PC 


ERR650 


$$ANERRF 


PF 


ERR650 


$$ANERRL 


PG 


ERR655 


$$ANERRL 


PG 


ERR655 


$$ANERAN 


PL 


ERR658 


$$ANERRF 


PE 


ERR65 8 


$$ANERRL 


PG 


ERR660 


$$ANERRF 


PE 


ERR660 


$$ANERAM 


PK 


ERR665 


$$ANERRF 


PE 


ERR665 


$$ANERAM 


PK 


ERR6 95 


$$ANERAN 


PL 


ERR6 95 


$$ANERAQ 


PR 


ERR6 95 


$$ANERAK 


PS 


ERR6 95 


$$ANERAL 


PU 


ERR6 96 


$$ANERAQ 


PR 


ERR6 96 


$$ANERAK 


PT 


ERR700 


$$ANERRE 


PD 


ERR700 


$$ANERRF 


PF 


ERR700 


$$ANERRL 


PH 


ERR700 


$$ANERAM 


PK 


ERR700 


$$ANERAN 


PM 


ERR700 


$$ANERAP 


PP 


ERR700 


$$ANERAQ 


PR 


ERR700 


$$ANERAK 


PT 


ERR700 


$$ANERAR 


PW 


ERR700 


$$ANERAS 


PX 


ERR702 


$$ANERAR 


PW 


ERR703 


$$ANERRE 


PD 


ERR703 


$$ANERAP 


PP 


ERR703 


$$ANERAQ 


PR 


ERR703 


$$ANERAK 


PT 


ERR704 


$$ANERAR 


PW 


ERR705 


$$ANERRL 


PH 


ERR705 


$$ANERRL 


PH 


ERR705 


$$ANERAM 


PK 


ERR705 


$$ANERAN 


PM 


ERR705 
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PW 


ERR706 


$$ANERRE 


PD 


ERR706 
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PP 


ERR707 
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PM 


ERR710 


$$ANERRE 


PD 


ERR710 


$$ANERRF 


PF 


ERR710 


$$ANERRL 


PH 


ERR710 


$$ANERAM 


PK 


ERR710 
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PR 


ERR711 


$$ANERAP 


PP 


ERR713 


$$ANERAP 


PP 


ERR715 


$$ANERRF 


PF 


ERR715 


$$ANERAR 


PW 


ERR720 


$$ANERRF 


PF 


ERR72 


$$ANERRL 


PH 


ERR720 


$$ANERAM 


PK 


ERR720 


$$ANERAQ 


PR 


ERR722 


$$ANERRE 


PC 


ERR722 


$$ANERRL 


PG 


ERR755 


$$ANERAN 


PL 


ERR760 


$$ANERAQ 


PQ 


ERR760 


$$ANERAK 


PS 


ERR76 


$$ANERAL 


PU 


ERR805 


$$ANERAL 


PU 


ERR82 


$$ANERAL 


PV 
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ERR825 


$$ANERAL 


PV 


ERR8 40 


$$ANERAL 


PV 


ERR842 


$$ANERAL 


PV 


ERR870 


$$ANERAL 


PU 


ESTVOUT 


SGTCHS 


CG 


ESTVOUT1 


SGTCHS 


CG 


EXCPIGN 


SGTCHS 


CAA 


EXCPIGN 


SGTCHS 


CB 


EXCP10 


SGTCHS 


CA 


EXCP2 


SGTCHS 


CB 


EXCP3 


SGTCHS 


CC 


EXCP5 


SGTCHS 


CA 


EXCP5 


SGTCHS 


CB 


EXCP6P 


SGTCHS 


CAA 


EXCP7 


SGTCHS 


CA 


EXINTR 


$$ANERRR 


RJ 


EXIT 


SGTCHS 


CG 


EXIT 


$$ANERRC 


NM 


EXIT 


$$ANERRS 


RK 


EXIT 


$$ANERRZ 


TC 


EXIT 


$$ANERR1 


TG 


EXIT 


$$ANERR6 


UD 


EXIT 


$$RAST02 


WD 


EXIT A 


$$ANERRA 


NLA 


EXITA 


$$ANERRS 


RL 


EXITA 


$$ANERR7 


UE 


EXITAB 


$$ANERRB 


NN 


EXITB 


$$ANERRA 


NLA 


EXITB 


$$ANERRS 


RL 


EXITBB 


$$ANERRB 


NN 


EXITC 


$$ANERRA 


NLA 


EXITRTN 


$$RAST09 


XJA 


EXITRTN 


$$RAST10 


XL 


EXITRTN 


$$RAST00 


VC 


EXITRTN 


$$RAST01 


VJ 


EXITRTN 


$$RAST03 


WH 


EXITRTN 


$$RAST11 


XN 


EXIT1 


SGDFCH 


EH 


EXIT1 


$$ANERR0 


TF 


EXITl 


$$RAST03 


WH 


EXIT1 


$$RAST10 


XL 


EXIT2 


$$ANERR0 


TF 


EXPAND 


SGDFCH 


EE 


EXTEOJ 


FOPT 


BE 


EXTRAN 


SGUNCK 


DC 


EXTRT1 


SGSVC 


FJ 


EXTRT1 


SGSVC 


FN 


EXT01 


FOPT 


BD 


EXT 02 


FOPT 


BC 


EXT03 


FOPT 


BC 


EXT 4 


FOPT 


BD 


EXT1 


SGSVC 


FL 


EXT2 


SGSVC 


FM 


E050 


$$ANERRI 


QE 


E051 


$$ANERRI 


QE 


E06 


$$ANERRI 


QE 


E062 


$$ANERRI 


QE 


FCHRT1 


SGDFCH 


EA 


FCHRT2 


SGDFCH 


EA 


FCHRT3 


SGDFCH 


EA 


FCHRT4 


SGDFCH 


EA 


FCH2260L 


$$ANERRC 


NM 


FCH3 


SGSVC 


FF 


FETCH 


$$RAST01 


VJ 



FETCH 


$$RAST10 


XL 


FETMSGW 


$$ANERR9 


UB 


FGP 


SGDFCH 


EC 


FILEPR 


$$ANERRB 


NN 


FINDPUBL 


$$ANERRZ 


TC 


FINDTASK 


$$RAST02 


WB 


FINDTOD 


$$RAST01 


VF 


FINUP 


$$ANERR6 


UD 


FIODONE 


SGDFCH 


EH 


FLPTR 


SGTCHS 


CC 


FNDQUE 


SGTCHS 


CCA 


FNDQUE1 


SGTCHS 


CD 


FONTERR 


$$ANERR9 


UB 


FREDEV 


SGTCHS 


CP 


FREDEV1 


SGTCHS 


CP 


FREE 


$$RAST10 


XK 


FSAVALID 


$$RAST03 


WG 


FTCH2 


$$ANERR6 


UC 


FTHMSGW 


$$ANERRU 


SC 


F01 


$$ANERRG 


QB 


F010 


$$ANERRG 


QB 


F02 


$$ANERRG 


QB 


F03 


$$ANERRG 


QB 


F1EUTEST 


SGUNCK 


DB 


F2EUTEST 


SGUNCK 


DB 


GELNGTH 


$$RAST01 


VF 


GENENT 


FOPT 


BF 


GENENT 


FOPT 


BF 


GEN1 


FOPT 


BF 


GEN1 


FOPT 


BG 


GETBND 


$$RAST03 


WH 


GETCCB 


$$ANERR7 


UE 


GETCHQ 


SGTCHS 


CK 


GETCMD 


$$RAST02 


WC 


GETCOM 


$$RAST02 


WD 


GETENTRY 


SGDFCH 


EE 


GETJIB 


SGTCHS 


CH 


GETMSG 


$$ANERRV 


SE 


GETPIB 


SGTCHS 


CR 


GETPIB1 


SGTCHS 


CR 


GETSEN 


SGUNCK 


DB 


GIDCK1 


$$ANERRZ 


TD 


GIOADR 


SGTCHS 


CE 


G 10 ADR 


SGTCHS 


CF 


GO 


$$ANERRJ 


QF 


GO 


$$ANERRJ 


QF 


GO 


$$ANERRP 


RE 


GO 


$$ANERRQ 


RG 


GOMCRR 


SEND 


LA 


GOQUIET 


$$RAST03 


WJ 


GOTCDMR 


$$RAST01 


VG 


GOTCLB 


SGTCHS 


CH 


GOTREQID 


$$RAST02 


WD 


GTSEN1 


SGUNCK 


DB 


G01 


$$ANERRG 


QB 


HALT 


SGTCHS 


CD 


HALTLOOP 


SGTCHS 


CD 


HANDLECC 


$$RAST00 


VB 


HANDLEMC 


$$RAST00 


VB 


HANDLEMC 


$$RAST03 


WE 


HARDCHAN 


SGUNCK 


DG 


HARDWAIT 


$$RAST00 


VB 
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HEAD QUE 


$$ANERAA 


NC 


HEADQUE1 


$$ANERAC 


NF 


HEADQUE2 


$$ANERAF 


NH 


HEAD QUE 3 


$$ANERAG 


NJ 


HOLDQUE 


$$ANERRY 


TA 


HRDWAIT 


$$RAST00 


VA 


HOI 


$$ANERRV 


SE 


HOI 


$$ANERRG 


QB 


H1RRTN 


$$RAST03 


WE 


IDRAEXT 


FOPT 


BD 


IDRAFCH 


SGDFCH 


EB 


IDRAOK 


SGDFCH 


EDC 


IDRANOPQ 


SGDFCH 


EA 


IDRAST1 


SGDFCH 


EA 


IDRAST2 


SGDFCH 


EF 


IDRAST3 


SGDFCH 


EF 


IGEXIT 


$$ANERRS 


RK 


IGEXIT 


$$ANERRW 


SF 


IGEXIT 


$$ANERRW 


SG 


IGNCAN 


$$ANERRS 


RL 


IGON 


$$ANERRU 


SB 


IJBERA35 


$$ANERRA 


NL 


IJBERB33 


$$ANERRB 


NN 


IJBERB35 


$$ANERAB 


RA 


IJBERC35 


$$ANERRC 


NM 


IJBERG20 


$$ANERRG 


QA 


IJBERH20 


$$ANERRH 


QD 


IJBERI20 


$$ANERRI 


QE 


IJBERJ24 


$$ANERRJ 


QF 


IJBERK20 


$$ANERRK 


QH 


IJBERN33 


$$ANERRN 


RB 


IJBER035 


$$ANERRO 


RD 


IJBERP33 


$$ANERRP 


RE 


IJBERQ33 


$$ANERRQ 


RG 


IJBERR20 


$$ANERRR 


RJ 


IJBERS34 


$$ANERRS 


RK 


IJBERT20 


$$ANERRT 


SA 


IJBERU33 


$$ANERRU 


SB 


IJBERV20 


$$ANERRV 


SD 


IJBERX20 


$$ANERRX 


SJ 


IJBER535 


$$ANERAF 


NG 


IJBER635 


$$ANERAG 


NJ 


IJBER932 


$$ANERR9 


UA 


IJBMVC33 


$$ANERR1 


TG 


IJBPA134 


$$ANERRZ 


TC 


IJBPA233 


$$ANERRY 


TA 


IJBPA333 


$$ANERR0 


TE 


INBIB 


SGTCHS 


CJ 


INERRCNT 


$$ANERAI 


UG 


INHWRITE 


SGTCHS 


CH 


INITCHN1 


SGTCHS 


CP 


INITRG 


SGTCHS 


CP 


INITSIO 


SGTCHS 


CN 


INRQ 


$$ANERRW 


SG 


INSERT 


$$ANERRB 


NN 


INST 


SEND 


LD 


INTERRCC 


SGTHAP 


MK 


INTERV 


$$ANERR9 


UA 


INTPUBSC 


SGTCHS 


CK 


INTREQ 


$$ANERRU 


SC 


INTREQ 


$$ANERRV 


SD 


INTREQ 


$$ANERSA 


UK 


INTREQD 


$$ANERAI 


UG 


INTRTN 


SGTCHS 


CK 


INTVEN 


$$ANERRA 


NLA 



INVAL 


$$ANERRY 


TB 


INVALID 


$$RAST10 


XM 


IOCOMP 


$$ANERRQ 


RH 


IODONE 


$$ANERRP 


RF 


IOERR 


$$ANERRH 


QD 


IOERR 


$$ANERRI 


QE 


IOERR 


$$ANERRJ 


QG 


IOERR 


$$ANERRP 


RF 


IOINTR 


$$ANERRR 


RJ 


IONOP 


SGUNCK 


DA 


IOPSET 


SGSVC 


FF 


IORTN 


$$ANERRI 


QE 


IORTN 


$$ANERRJ 


QG 


IOWAIT 


$$ANERSB 


UP 


IOWAIT 


$$ANERSC 


UR 


IPLEXIT 


$$RAST00 


VC 


IREXIT 


$$ANERRT 


SA 


IREXIT 


$$ANERRW 


SF 


ISSVC51 


SGDFCH 


EDB 


ISSVC51 


SGDFCH 


EDC 


JAENTRY 


FOPT 


BK 


JAISBND 


FOPT 


BK 


JAISPP 


FOPT 


BK 


JANOTSUP 


FOPT 


BK 


JASETSP 


FOPT 


BC 


JAXIT 


FOPT 


BL 


JAXITBR 


FOPT 


BC 


JIBTYP 


SGTCHS 


CJ 


KEYINT 


$$ANERRR 


RJ 


KRTY 


$$ANERRS 


RK 


KOI 


$$ANERRG 


QB 


LACSW 


$$ANERRO 


RD 


LASPH 


$$ANERRA 


NL 


LASPHAS 


$$ANERRC 


NM 


LASTRACK 


$$RAST01 


VH 


LASTREC 


$$RAST01 


VH 


LCIDAR 


SGDFCH 


EC 


LDPSW 


$$ANERRR 


RJ 


LDRASTOO 


$$RAST01 


VJ 


LDRAST02 


$$RAST00 


VD 


LDRAST02 


$$RAST01 


VJ 


LDREGS 


SGTCHS 


CK 


LGD 


SGTCHS 


CH 


LGDD 


SGTCHS 


CH 


LGDD1 


SGTCHS 


CH 


LGD1 


SGTCHS 


CH 


LMERA 


FOPT 


BCA 


LOADCK 


$$ANERSA 


UN 


LOADMOD 


$$RAST00 


VC 


LOADMOD 


$$RAST01 


VJ 


LOADMOD 


$$RAST03 


WH 


LOAD PS W 


$$ANERRR 


RJ 


LOADTEST 


$$RAST00 


VC 


LOADTEST 


$$RAST01 


VJ 


LOADTEST 


$$RAST03 


WH 


LOAD 00 


$$RAST00 


VA 


LOAD01 


$$RAST01 


VF 


LOAD 03 


$$RAST03 


WE 


LOAD 09 


$$RAST09 


XJA 


LOGBAD 


$$RAST10 


XK 
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LOGENT 


$$ANERRP 


RE 


LOGENT 


$$ANERRQ 


RG 


LOGERP 


$$ANERRU 


SC 


LOGLOOP 


$$RAST09 


XJA 


LOGLOOP 


$$RAST11 


XN 


LOGPRC 


SGTCHS 


CFA 


LOGPRC1 


SGTCHS 


CG 


LOGPRC 2 


SGTCHS 


CG 


LOGRTN 


$$ANERRY 


TA 


LOGTST 


$$ANERRU 


SC 


LOGTST 


$$ANERRY 


TA 


LOG WAIT 


$$ANERRY 


TA 


LOG1 


$$ANERRY 


TA 


LOG 2 


$$ANERRY 


TA 


LOOKUP 


SGDFCH 


ED 


LOOP1 


$$ANERAE 


RC 


LOWBITON 


$$RAST11 


XN 


LSTDIB 


SGTCHS 


CJ 


LTA 


SEND 


LH 


LTABSY 


SGSVC 


FD 


LTACCB 


$$ANERRM 


NB 


LTACNL 


FOPT 


BB 


LTARTRN 


FOPT 


BE 


LTKHLD 


$$ANERRZ 


TD 


L01 


$$ANERRG 


QC 


L01 


$$ANERRI 


QE 


MACHEK 


SGUNCK 


DG 


MACHEK 


SGUNCK 


DG 


MACHEK 


SGUNCK 


DG 


MACHEK1 


SGUNCK 


DG 


MAINRT 


$$ANERR6 


UC 


MAI NT ASK 


$$ANERR1 


TG 


MAINTR 


$$ANERR7 


UE 


MAINTR 


$$ANERR8 


UF 


MCCPUEX1 


SMCRR 


KG 


MCMVLGOT 


SMCRR 


KE 


MCNOTSP 


SMCRR 


KC 


MCPDCOND 


MCRAS 


HA 


MCRBUMP 


SMCRR 


KE 


MCRCHDMG 


SMCRR 


KA 


MCRCHMVN 


SMCRR 


KD 


MCRCHNBC 


SMCRR 


KD 


MCRCHNDM 


$$A$SUP1 


KB 


MCRCNCOD 


SMCRR 


KE 


MCRCPUEX 


SMCRR 


KG 


MCRDVDMG 


SMCRR 


KD 


MCREND01 


SMCRR 


KD 


MCREND02 


SMCRR 


KE 


MCREND03 


SMCRR 


KG 


MCREND04 


SMCRR 


KH 


MCRENTER 


SGUNCK 


DG 


MCRETURN 


SMCRR 


KC 


MCRFULL 


SMCRR 


KF 


MCRGTFDV 


$$A$SUP1 


KB 


MCRGTLST 


SMCRR 


KD 


MCRGTPIB 


SMCRR 


KE 


MCRLOOP1 


SMCRR 


KA 


MCRLOOP2 


$$A$SUP1 


KB 


MCRLOOP3 


SMCRR 


KG 


MCRMPX 


SMCRR 


KA 


MCRMPXST 


$$A$SUP1 


KB 


MCRNEQLD 


SMCRR 


KF 


MCRNLTA 


SMCRR 


KG 


MCRNODMG 


SMCRR 


KD 



MCRNTBSY 


SMCRR 


KC 


MCRNTCIB 


SMCRR 


KF 


MCRNTLTA 


SMCRR 


KG 


MCRNTSUP 


SMCRR 


KE 


MCROBRRT 


SMCRR 


KJ 


MCRPARIT 


SGUNCK 


DG 


MCRRBST 


SMCRR 


KG 


MCRRCHER 


SMCRR 


KA 


MCRRCPU 


SMCRR 


KG 


MCRRDIAG 


$$A$SUP1 


KB 


MCRRRTN 


SMCRR 


KA 


MCRRTSTQ 


$$A$SUP1 


KB 


MCRSAFTR 


SMCRR 


KG 


MCRSCNCH 


SMCRR 


KA 


MCRSCPHM 


SMCRR 


KH 


MCRSEL1 


$$A$SUP1 


KB 


MCRSEL2 


$$A$SUP1 


KB 


MCRSENDD 


SGUNCK 


DG 


MCRSPSW2 


SMCRR 


KH 


MCRSUPIK 


SMCRR 


KJ 


MCRSUPSW 


SMCRR 


KE 


MCSCHDL 


MCRAS 


HA 


MCSELECT 


SMCRR 


KF 


MCSOFT 


MCRAS 


HA 


MCTASK 


MCRAS 


HA 


MESG 


$$ANERRB 


NN 


MESSWTR 


$$RAST11 


XN 


MODCCW 


$$ANERRX 


SK 


MODESTAT 


$$RAST03 


WJ 


MODIFY 


SEND 


LF 


MOVELIST 


$$ANERAD 


NK 


MOVENAME 


$$ANERRM 


NB 


MOVIDRA 


SGDFCH 


EDC 


MOVNAM 


$$ANERRM 


NA 


MOVRIK 


SGDFCH 


EDB 


MOVRIK 


SGDFCH 


EDC 


MPSTASK 


$$RAST01 


VG 


MPSTST 


$$ANERRN 


RB 


MPSTST 


$$ANERRQ 


RG 


MPSYES 


SGTCHS 


CN 


MSGNTR 


$$ANERRW 


SF 


MSGWTR 


$$ANERRT 


SA 


MSGWTR 


$$ANERRV 


SE 


MSGWTR 


$$ANERRW 


SG 


MSGWTR 


$$ANERRW 


SH 


MSGWTR 


$$ANERR7 


UE 


MSGWTR 


$$ANERRG 


QA 


MSGWTR 


$$ANERRH 


QD 


MSGWTR 


$$ANERRI 


QE 


MSGWTR 


$$ANERRJ 


QF 


MSGWTR 


$$ANERRK 


QH 


MSG2 


$$ANERAB 


RA 


MSG3 


$$ANERAB 


RA 


MSG4 


$$ANERAB 


RA 


MVC 


$$ANERR1 


TG 


MVCCW 


SGTCHS 


CCA 


MVEPSW 


SGUNCK 


DF 


MVMSG 


$$ANERRV 


SD 


MVZEX 


SGUNCK 


DB 


M01 


$$ANERRG 


QC 


M01 


$$ANERRI 


QE 


M01 


$$ANERRK 


QH 
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NDEQUE 


$$ANERRC 


NM 


NEXTCYL 


$$RAST01 


VH 


NEXTPH 


$$ANERAE 


RC 


NGTMBP 


SGSVC 


FG 


NOAP 


$$ANERRZ 


TD 


NOAP1 


$$ANERRZ 


TC 


NOCANCEL 


$$RAST02 


WB 


NOCB 


SGTCHS 


CN 


NOCCB 


$$ANERRX 


SK 


NOCCB 


$$RAST02 


WC 


NOCCB 


$$ANERRO 


RD 


NOCCB1 


SGUNCK 


DA 


NODE QUE 


$$ANERRC 


NM 


NODEQUE 


$$ANERAB 


RA 


NOEMP 


$$ANERR9 


UB 


NOLOADAD 


SGDFCH 


EE 


NOLOG 


$$ANERAE 


RC 


NOLOG 


$$ANERRP 


RF 


NOLOG 


$$ANERRQ 


RH 


NOLSS 


$$ANERR9 


UB 


NOLTA 


$$ANERAE 


RC 


NOLTH 


$$ANERRM 


NB 


NOMSG 


$$RAST10 


XL 


NONREC 


$$ANERR9 


UA 


NOPBR 


$$ANERRQ 


RG 


NOPINS 


SGTCHS 


CH 


NOPINSTR 


SGTCHS 


CH 


NOPRNAME 


$$RAST01 


VG 


NOPUBRS 


$$ANERAA 


NC 


NORELOC 


SGUNCK 


DAA 


NOQUIS 


SGUNCK 


DH 


NORCD 


SGDSK 


GA 


NORCFND 


$$ANERRA 


NL 


NOSO 


SGTCHS 


CCA 


NOSTART 


SGUNCK 


DA 


NOSTATUS 


$$ANERRV 


SE 


NOSWP 


SGSVC 


FG 


NOS01 


SGTCHS 


CM 


NOTBONLY 


SGDFCH 


EG 


NOTBSY 


SGTCHS 


CL 


NOTCLB 


SGTCHS 


CH 


NOTDMCl 


$$RAST02 


WC 


NOTFCH 


SGSVC 


FE 


NOTFIRST 


$$RAST03 


WJ 


NOTFOUND 


SGDFCH 


ED 


NOTFULL 


$$RAST01 


VJ 


NOTIC 


SGTCHS 


CH 


NOTIC 


$$ANERR6 


UD 


NOTMPS 


$$RAST11 


XN 


NOTPD 


FOPT 


BH 


NOTPD1 


FOPT 


BH 


NOTRIA 


SGTCHS 


CK 


NOT2314 


SEND 


LE 


NRFRTY 


$$ANERRJ 


QF 


NRTASTO 


SGTCHS 


CE 


NTFTCH 


SGUNCK 


DC 


NXTERPIB 


$$RAST10 


XK 


NXT1 


SGTCHS 


CG 


N01 


$$ANERRG 


QC 


N01 


$$ANERRJ 


QF 


N1114 


SGTCHS 


CQ 


OBRAREL 


$$ANERAA 


NC 



OBRBYPS 


$$ANERRM 


NA 


OBREXIT 


$$ANERAA 


ND 


OBRIOE 


$$ANERAA 


NC 


OBRIOE1 


$$ANERAA 


ND 


OBRI02 


$$ANERAA 


NC 


OBRI03 


$$ANERAA 


NC 


OBRNOCCB 


$$ANERRM 


NB 


OBRNOKEY 


$$ANERRM 


NB 


OBRREL 


$$ANERAA 


ND 


OBRREL1 


$$ANERAA 


ND 


OBRSPR 


$$ANERRM 


NA 


OBRSPR1 


$$ANERRM 


NA 


OFFLINE 


SGTCHS 


CR 


OK 


$$ANERR1 


TG 


OLTPCOMP 


SGTCHS 


CD 


ONERET 


$$ANERRG 


QA 


ONERTRY 


$$ANERR9 


UA 


OPCLOSE 


SGDFCH 


EC 


OPFLAG 


$$ANERRN 


RB 


OPTRT1 


SGSVC 


FM 


OPTRT2 


SGSVC 


FM 


OPVNT 


$$ANERRW 


SG 


ORERP 


$$ANERRA 


NL 


OURSIO 


SGUNCK 


DF 


OVERRUN 


$$ANERR9 


UB 


OVERUN 


$$ANERRB 


NN 


OVRUN 


$$ANERRV 


SE 


PARTNOK 


$$RAST09 


XJB 


PAR40 


$$ANERR0 


TE 


PAR41 


$$ANERR0 


TE 


PAR42 


$$ANERR0 


TE 


PAR43 


$$ANERR0 


TE 


PAR44 


$$ANERR0 


TE 


PAR45 


$$ANERR0 


TE 


PAT 


$$ANERRC 


NM 


PCHDIB 


SGTCHS 


CJ 


PCHKSW 


FOPT 


BA 


PCHKSW 


SGSVC 


FJ 


PCHKSW 


SGSVC 


FK 


PCIL1 


SGDFCH 


EB 


PCIL2 


SGDFCH 


EB 


PCITRT 


SGSVC 


FM 


PCURTN 


$$ANERRW 


SF 


PDABEX 


SMICR 


JH 


PDAGN 


SMICR 


JF 


PDAID 


SGDFCH 


EE 


PDBOCK 


SMICR 


JF 


PDBUFL 


SMICR 


JB 


PDCCBPT 


SGSVC 


FB 


PDCCBT 


SGSVC 


FB 


PDCHAN 


SMICR 


JE 


PDCHAN 


SMICR 


JF 


PDCOMP 


SMICR 


JJE 


PDCSWST 


SMICR 


JD 


PDCSWST 


SMICR 


JF 


PDDEQUE 


SMICR 


JG 


PDDEQUE1 


SMICR 


JG 


PDDEQUE2 


SMICR 


JG 


PDDFLT 


SMICR 


JF 


PDEDLT 


SGSVC 


FB 


PDERXT1 


SMICR 


JE 


PDERXT1 


SMICR 


JF 


PDERXT2 


SMICR 


JE 
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PDERXT2 


SMICR 


JF 


PDERXT3 


SMICR 


JF 


PDETIO 


SMICR 


JD 


PDETIO 


SMICR 


JF 


PDEXT1 


SMICR 


JH 


PDFSTM 


SMICR 


JB 



SMICR 


JC 


SMICR 


JB 


SMICR 


JC 


SMICR 


JA 


SMICR 


JH 
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PDMOV 


SMICR 


JE 


PDMPI 


SMICR 


JA 


PDMVCSW 


SMICR 


JE 


PDNF 


SMICR 


JB 


PDNOB 


SMICR 


JC 


PDNONOP 


SMICR 


JB 


PDNOPCK 


FOPT 


BA 


PDNOPCK 


SGSVC 


FJ 


PDNOPCK 


SGSVC 


FK 


PDNOSS 


SMICR 


JB 


PDNOTSS 


SMICR 


JG 


PDNOTZR 


SMICR 


JC 


PDPDEQ 


SMICR 


JE 


PDPRCAN 


SMICR 


JG 


PDPROGCK 


SMICR 


JG 


PDREJDC 


SMICR 


JF 


PDREJT 
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JH 
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FL 
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PDSWBP 
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PDTIMER 
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FL 
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JB 
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JE 
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EC 


PHASEH 


$$ANERRG 


QC 


PHASEJ 
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QA 


PHASES 
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RF 


PHASES 
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RH 


PHASES 
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QB 
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RH 
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EC 
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UR 
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TB 


POSTCE 
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CP 


POSTPIB 


$$RAST02 


WB 


PREFERED 


SGDFCH 


EC 



PREPSBR 
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UQ 


PROC 
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SA 


PROTCHK 
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NL 


PROTECT 
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CH 


PRTPRG 
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DA 


PSTBUF 
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SG 
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CQ 


PSTERR 
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SA 


PSTERR 
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SF 
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NL 
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PG 
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TF 
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FF 
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VE 
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TD 
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CM 
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SC 
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TD 
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DH 
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DH 
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DH 


QUETEST 
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RE 
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RG 


QUEUP 


SGTCHS 


CC 
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$$RAST03 


WJ 


QUISIO 


SGUNCK 


DH 


Q01 
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QC 


RADLDS 


SGTCHS 


CA 


RASDEQ 


MCRAS 


HG 


RASIO 


$$RAST01 


VH 


RASIO 


$$RAST10 


XM 


RASIO 


$$RAST11 


XN 


RASIOE 


MCRAS 


HC 


RASMEXT 


MCRAS 


HB 


RASQOK 
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HC 


RAST02 


$$RAST00 


VD 


RBBY12 


SEND 


LA 


RCHAN 


$$ANERR6 


UD 


RCHAN 


$$ANERAJ 


UJ 


RCHS 


$$ANERAJ 


UJ 


RCOMMONA 


$$RAST05 


XG 


RCOMMONB 
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XD 


RCOMMONB 
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XG 
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DC 
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SGDFCH 


ED 
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SGDSK 


GA 


RDRCD 
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QD 


RDTXT 


SGDFCH 


EE 


RDVER 
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SGTHAP 


MK 
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MM 
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MM 
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SGTHAP 


MM 
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SGTHAP 


MK 


READUPDT 


SGDFCH 


EG 


RECAL 


SGDSK 


GA 


RECFULL 


$$RAST01 


VF 
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RECSBLT 


$$RAST01 


VJ 


RECVERR 


$$ANERR8 


UF 


REFAIL 


$$ANERR8 


UF 


REGZERO 


$$RAST11 


XN 


RELOC 
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RE 


RELOCATE 


$$RAST10 


XL 


REPERR 


$$ANERRQ 


RH 


REQUEST 


$$RAST10 


XM 


RERASIO 


MCRAS 


HC 


RESCHK 


SGUNCK 


DB 


RESERR 


SGDSK 


GA 


RESET 


$$ANERAE 


RC 


RESPNS 


$$ANERRR 


RJ 


RESPTYP 


$$RAST10 


XL 


RESTART 


$$RAST00 


VC 


RESTCQP 


$$ANERSC 


UR 


RESTORE 


$$RAST03 


WG 


RESTUSE 


$$ANERSB 


UP 


RE SVC 


SGSVC 


FC 


RESVC1 


SGSVC 


FE 


RETOFF 


$$ANERR6 


UD 


RETOFF 
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UE 
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SE 


RETRY 
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SK 


RETRY 
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UB 


RETRY 


$$ANERR6 


uc 


RETRY 


$$ANERRR 


RJ 


RETURN 


$$RAST01 


VE 


RETURN 


$$RAST03 


WH 


RETXIT 


$$ANERRX 


SK 


RINGBELL 


$$RAST00 


VA 


RINGTIO 


$$RAST00 


VA 


RLOG 


$$RAST04 


XA 


RMESSAGE 


$$RAST00 


VA 


RPRNTR 


$$RAST04 


XC 


RSETWAIT 


SGTCHS 


CM 


RSTCHPT 


$$ANERRY 


TA 


RSTCHQ 


$$ANERRY 


TA 


RSTFLG 


$$ANERRU 


SC 


RSTFLG 


$$ANERRI 


QE 
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QG 
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RF 
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RG 
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SC 
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RG 


RSTREG 
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DE 
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VA 
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SD 
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SE 


RTYONE 
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SC 


RTYRTN 
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RF 


R01 
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QA 


R01 


$$ANERRI 


QE 


R01 


$$ANERRJ 


QF 


R1442 


$$RAST04 


XC 


R1442A 


$$RAST0U 


XC 


R1442B 


$$RAST04 


XC 


R2501 


$$RAST04 


XB 



R2501A 


$$RAST04 


XB 


R2501B 


$$RAST04 


XB 


R2520 


$$RAST05 


XE 


R2520B 


$$RAST05 


XE 


R2540 


$$RAST04 


XB 
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$$RAST00 


VE 
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$$RAST02 


WC 


SCHREC2 


$$RAST02 


WD 
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SGDFCH 


EB 


SCIL2 


SGDFCH 


EB 


SDM'01 
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NG 
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NE 
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NE 
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NE 
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$$ANERAC 


NE 
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$$ANERAC 


NE 


SDRAW1 
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NE 


SDRAW2 
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NE 


SDRERAC 
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NE 


SDREXIT 


$$ANERAC 


NF 


SDRIO 
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NH 


SDRIOE 
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NF 
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NH 
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NJ 


SDRI02 
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NF 


SDRMM 


SEND 


LA 
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NJ 


SDRM012 


$$ANERAF 


NG 


SDRM02 


$$ANERAF 


NG 


SDRM03 
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NG 
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SEND 


LG 


SDRNO 


SEND 


LB 
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$$ANERAC 


NE 


SDROBR 


SEND 


LF 
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SEND 


LF 
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SEND 
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DH 
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SGUNCK 


DH 
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NF 
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NF 
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SEND 


LF 
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SEND 
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SEND 
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SEND 
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NG 
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SEND 


LA 
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SEND 


LB 
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SEND 


LB 
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SEND 


LB 
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SEND 


LB 
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SEND 


LD 


SDR1 


SEND 
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SEND 
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SDR1B 


SEND 
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SEND 
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SEND 


LE 


SDR1B3 


SEND 


LE 


SDR1B4 


SEND 


LE 
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SEND 


LE 


SDR1RES 


SEND 


LE 


SDR1RESX 


SGUNCK 


DE 


SDR1RES1 


SEND 


LE 


SDR2A3 


SEND 


LC 


SDR2A4 


SEND 


LC 
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SDR2A5 


SEND 


LC 


SDR2QT 


SEND 


LB 


SDR2QT1 


SEND 


LB 


SDR2QT2 


SEND 


LB 


SDR23 


SEND 


LD 


SECTIONl 


$$ANERRZ 


TC 


SECTION3 


$$ANERRZ 


TD 


SEEKTEST 


SGTCHS 


CH 


SEKCH 


$$ANERRA 


NL 


SEKCHK 


SGDSK 


GA 


SEKCHK1 


SGDSK 


GA 


SELBMX 


SGTCHS 


CN 


SELBMX 


SGTCHS 


CN 


SELECT 


SGTCHS 


CN 


SELERR 


$$ANERRV 


SD 


SENSTSTS 


$$ANERR9 


UA 


SETARON 


$$ANERRY 


TB 


SETCNCL 


$$ANERR0 


TF 


SETCNCL 
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RG 


SETDIS 
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RL 


SETEBL 
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UF 


SETFCPU 
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HA 


SETFLE 
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SJ 


SETKEY 


$$RAST03 


WH 


SETLNK 
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NC 
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FD 


SETLT2 


SGSVC 


FD 


SETLT2A 


SGSVC 


FD 


SETOP1 


SGSVC 


FJ 


SETOP1 


SGSVC 


FN 


SETOP2 


SGSVC 


FJ 


SETOP2 


SGSVC 


FN 


SETPOSTL 


$$ANERRZ 


TD 


SETPSN 


$$ANERR7 


UE 


SETRD 


$$ANERR8 


UF 


SETRTRY 


$$ANERRQ 


RH 


SETSK 


SGDFCH 


EC 


SETSKAD 


SGDFCH 


EC 


SETSVAR 


SGDFCH 


EF 


SETUP 


$$RAST00 


VC 
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CFA 
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NL 
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NN 
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WH 
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SG 
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TD 
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WG 
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WH 
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CG 
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NL 
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MC 
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MD 
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MD 
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MD 
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MD 
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SGTHAP 


ME 
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SGTHAP 


ME 
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SVC39E 


SGTHAP 


MF 


SVC39E1 


SGTHAP 


MF 


SVC39F 


SGTHAP 


MF 


SVC39G 


SGTHAP 


ME 


SVC39H 


SGTHAP 


MD 


SVC3 9H 


SGTHAP 


ME 


SVC39H1 
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ME 
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SGTHAP 


MF 
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MF 
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SGTHAP 


MF 


SVC39M 


SGTHAP 


ME 


SVC3 9P 


SGTHAP 


ME 


SVC39P1 


SGTHAP 


ME 


SVC39Q 


SGTHAP 


MF 


SVC40 


SGTHAP 


MG 


SVC40A 


SGTHAP 


MG 


SVC40B 


SGTHAP 


MG 


SVC4 0C 


SGTHAP 


MG 


SVC4 0D 


SGTHAP 


MG 


SVC4 0E 


SGTHAP 


MG 


SVC41 


SGTHAP 


MH 


SVC41A 


SGTHAP 


MH 


SVC41A1 


SGTHAP 


MH 


SVC 41 A 2 


SGTHAP 


MH 


SVC41B 


SGTHAP 


MH 


SVC41C 


SGTHAP 


MH 


SVC42 


SGTHAP 


MG 


SVC42A 


SGTHAP 


MG 


SVC42B 


SGTHAP 


MG 


SVC 4 3 


SGSVC 


FR 


SVCU5 


SGSVC 


FR 


svc a 6 


SGSVC 


FR 


SVC51 


SGSVC 


FS 


SVC 5 2 


SGSVC 


FS 


SVEREG 


FOPT 


BAA 


SVEREG 


SGTCON 


GC 


SVNWAD 


SGTCHS 


CCA 


SWITCH 


$$ANERRO 


RD 


SXPC1 


SGSVC 


FN 


SXPC2 


SGSVC 


FN 


SXTRT1 


SGSVC 


FJ 


SXTRT1 


SGSVC 


FN 


SYCLAS 


$$ANERRO 


RD 


SYSFILE 


SGTCHS 


CJ 


SYSFILEl 


SGTCHS 


CJ 


SYSFILE2 


SGTCHS 


CJ 


SYSFILE3 


SGTCHS 


CQ 


SYSFILE 4 


SGTCHS 


CJ 


SYSFILE5 


SGTCHS 


CE 


SYSINOUT 


SGTCHS 


CE 


SYSSIN 


SGTCHS 


CJ 


SOI 


$$ANERRJ 


QF 


TAPMODE2 


$$ANERR9 


UB 


TCAN2 


$$ANERRY 


TB 


TCAN2A 


$$ANERRY 


TB 


TEST 


$$ANERRH 


QD 


TESTBUSY 


$$ANERRP 


RE 


TESTDMC 


$$RAST02 


WA 


TESTEOJ 


SGTCHS 


CF 


TESTER 


$$ANERAD 


NK 


TESTFE 


$$RAST02 


WD 


TESTIGN 


$$ANERRQ 


RG 



TESTLTA 


FOPT 


BE 


TESTSUB 


$$ANERR1 


TG 


TESTSVC 


SGDFCH 


EDA 


THCHK 


SGTHAP 


MC 


THDLTl 


SGTHAP 


MB 


THDLT2 


SGTHAP 


MB 


THDLT2 


SGTHAP 


MB 


THFREE 


SGTHAP 


MB 


THFREE1 


SGTHAP 


MB 


THRETRY 


SGTHAP 


MC 


THSETUP 


SGTHAP 


MA 


THWAIT1 


SGTHAP 


MA 


THWAIT2 


SGTHAP 


MA 


TKDLET 


SGTHAP 


MB 


TKHDADD 


SGTHAP 


MA 


TKHDQUE 


SGTHAP 


MA 


TKHDRTN 


SGTHAP 


MA 


TKHD1 


SGTHAP 


MA 


TKHELD 
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MA 


TKPRTY 


SGTHAP 


MJ 


TKPRT1 


SGTHAP 


MJ 


TMEKEY 


SGSVC 


FG 


TMERT1 


SGSVC 


FL 


TMRBPS 


SGSVC 


FL 


TMRSW 


SGSVC 


FL 


TPBUSYO 


SGTCHS 


CD 


TPBUSY1 


SGTCHS 


CD 


TPBUSY2 


SGTCHS 


CD 


TPBUSY3 


SGTCHS 


CD 


TPBUSY4 


SGTCHS 


CD 


TPIGNOR 


$$ANERRC 


NM 


TPRETRN 


SEND 


LA 


TPSDR1 


SEND 


LA 


TRKCHK 


SGDSK 


GB 


TRKEOC 


SGDSK 


GB 


TRNOFF 


SGTCHS 


CL 


TRYNXT 


SGTCHS 


CH 


TSTATD 


$$ANERRR 


RJ 


TSTATTN 


SGTCHS 


CL 


TSTBMX 


SGTCHS 


CQ 


TSTCAN 


$$ANERRR 


RJ 


TSTCCB 


$$ANERRN 


RB 


TSTCCC 


$$ANERRU 


SB 


TSTCDC 


$$ANERRU 


SB 


TSTDEV 


SGTCHS 


CCA 


TSTDEV1 


SGTCHS 


CCA 


TSTDEV2 


SGTCHS 


CD 


TSTEOJ 


SGTCHS 


CE 


TSTEQCK 


$$ANERR6 


UC 


TSTERF 


SGTCHS 


CL 


TSTNXT 


SGTCHS 


CJ 


TSTPSN 


$$ANERR7 


UE 


TSTQEF 


SGTCHS 


CP 


TSTRESIO 


SGTCHS 


CN 


TSTRTY 


$$ANERRN 


RB 


TSTSNS 


$$ANERAI 


UG 


TSTSSL 


$$ANERRB 


NN 


TSTSVC 


SGDFCH 


EDA 


TSTTRG 


$$ANERRS 


RK 


TSTUCK 


SGTCHS 


CKA 


TST03U 


$$ANERRU 


SB 


TST2311 


$$ANERAA 


NC 


T01 


$$ANERRG 


QB 


T03 


$$ANERRH 


QD 
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T06 


$$ANERRH 


QD 


T145RTN 


$$RAST03 


WF 


T155RTN 


$$RAST03 


WE 


UCBPAR 


$$ANERRV 


SD 


UCSTST 


$$ANERRV 


SE 


UNBUSY 


$$RAST0 2 


WA 


UNCOMMON 


SGTCHS 


CE 


UNDETERR 


$$ANERAI 


UG 


UNDETR 


$$ANERR6 


UC 


UNDETR 


$$ANERR7 


UE 


UNDTR 


$$ANERRT 


SA 


UNDTR 


$$ANERRW 


SF 


UNKN 


$$ANERRB 


NN 


UNPACK 


$$RAST11 


XN 


UNPCH 


$$ANERRO 


RD 


UNPKSEN 


$$ANERRO 


RD 


UNRCERP 


$$ANERRA 


NL 


UNSUPTD 


$$ANERR9 


UB 


UNTCK1 


SGUNCK 


DA 


UNTCK2 


SGUNCK 


DA 


UNUSENS 


$$ANERRU 


SC 


UNWAIT 


SGTHAP 


MJ 


UNW001 


SGTHAP 


MJ 


UNW002 


SGTHAP 


MJ 


UNW003 


SGTHAP 


MJ 


UNW004 


SGTHAP 


MJ 


UNW005 


SGTHAP 


MJ 


UPDATCCW 


$$ANERAI 


UG 


UPDATE 


$$RAST03 


WF 


UPDATE 


$$RAST11 


XN 


UPDPUB 


$$RAST0O 


VE 


UPDPUB 


$$RAST02 


WA 


UPDSCAN 


$$RAST02 


WC 


USRAPPEN 


SGTCHS 


CKA 


USREXT 


SGUNCK 


DA 



USRSEN 


SGUNCK 


DB 


USRUCK 


SGUNCK 


DA 


VERIF 


$$ANERRB 


NN 


VLDADR1 


SGTCON 


GC 


VLDADR2 


SGTCON 


GC 


VLDADR3 


SGTCON 


GC 


WAIT 


$$ANERRY 


TA 


WAITLOOP 


SGDFCH 


EH 


WAITSVC 


$$ANERRP 


RF 


WRITEREC 


$$RAST01 


VH 


XEXIT 


$$RAST04 


XA 


XEXIT 


$$RAST05 


XE 


XFETCH 


$$RAST04 


XA 


XFETCH 


$$RAST05 


XE 


XIOERR 


$$ANERSB 


UP 


XLDMOD 


$$RAST05 


XE 


XLDTST 


$$RAST04 


XA 


XLDTST 


$$RAST05 


XE 


XMSG 


$$RAST04 


XA 


XMSG 


$$RAST05 


XE 


XNOMSG 


$$RAST04 


XA 


XNOMSG 


$$RAST05 


XE 


XNORMAL 


$$ANERSC 


UR 


XQFULL 


$$ANERSB 


UP 


XTOERR 


$$ANERSC 


UR 


ZEROCT 


$$ANERR6 


UD 


ZERTEB 


$$ANERRS 


RK 


ZERTEBV 


$$ANERRS 


RK 


ZROREG 


SGTCHS 


CR 
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APPENDIX B: ERROR MESSAGE CROSS REFERENCE 



-*-— 




— — — 


0P08 $$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERRA 


(Disk) 


NM 


$$ANERRF 


(Tape) 


PF 


$$ANERRG 


(Data Cell) 


QB 


$$ANERRT 


(MICR Type) 


SA 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SD 


$$ANERRW 


(MICR Type) 


SF f SG 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERR9 


(Optical Reader) 


UA 


$$ANERSA 


(3211 Printer) 


UK 


0P09 $$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERAM 


(Tape) 


PJ 


$$ANERRA 


(Disk) 


NM 


$$&NERRF 


(Tape) 


PF 


$$ANERRG 


(Data Cell) 


QB 


$$ANERRT 


(MICR Type) 


SA 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SE 


$$ANERRW 


(MICR Type) 


SF # SG 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR6 


(Tape Cartridge 
Reader) 


UC r UD 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERR9 


(Optical Reader) 


UA 


$$ANERSA 


(3211 Printer) 


UK 


0P10 $$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERAM 


(Tape) 


PJ 


$$ANERRA 


(Disk) 


NL 


$$ANERRF 


(Tape) 


PE 


$$ANERRG 


(Data Cell) 


QA 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SD 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR6 


(Tape Cartridge 
Reader) 


uc 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERSA 


(3211 Printer) 


UK 


0P11 $$A$SUPl 


(Disk) 


GA 


$$ANERAJ 


(Paper Tape) 


UH 


$$ANERAP 


(Tape) 


PN 


$$ANERAS 


(Tape) 


PX 


$$ANERRB 


(Disk) 


NN 



0P12 



0P13 



0P14 



0P15 



0P16 



0P17 



0P18 



$$ANERRD 


(Tape) 


Pk 


$$ANERRK 


(Data Cell) 


QH 


$$ANERRV 


(Unit Record) 


SE 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERSA 


(3211 Printer) 


UK 


$$ANERRB 


(Disk) 


NN 


$$ANERRK 


(Data Cell) 


QH 


$$ANERRB 


(Disk) 


NN 


$$ANERRK 


(Data Cell) 


QH 


$$RAST10 




XL 


$$A$SUP1 


(Disk) 


G£ 


$$ANERRB 


(Disk) 


NN 


$$ANERRF 


(Tape) 


PE,PF 


$$ANERRG 


(Data Cell) 


QB 


$$ANERRV 


(Unit Record) 


SE 


$$ANERR9 


(Optical Reader) 


UB 


$$A$SUP1 


(Disk) 


Gk 


$$ANERRA 


(Disk) 


NL 


$$ANERRJ 


(Data Cell) 


QF 


$$ANERRB 


(Disk) 


NN 


$$ANERRK 


(Data Cell) 


QH 


$$ANERAM 


(Tape) 


PK 


$$ANERRB 


(Disk) 


NN 


$$ANERRG 


(Data Cell) 


QC 


$$A$SUP1 


(Disk) 


GA 


$$ANERAI 


(Paper Tape) 


UG 


$$ANERAM 


(Tape) 


PK 


$$ANERRB 


(Disk) 


NN 


$$ANERRG 


(Data Cell) 


QC 


$$ANERRT 


(MICR Type) 


Sh 


$$ANERRU 


(Unit Record) 


SC 


$$ANERRV 


(Unit Record) 


SE 


$$ANERRW 


(MICR Type) 


SF,SH 


$$ANERRX 


(Paper Tape) 


SJ 


$$ANERR7 


(Tape Cartridge 
Reader) 


UE 


$$ANERR9 


(Optical Reader) 


UB 


$$ANERSA 


(3211 Printer) 


UK 
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RIK (Requestor I/ O Key)_ Physical transients put a X f 01* into the 

RIK when they are doing a SYSLOG I/O. The 

IPIK for physical transients has a value of 
X^O', therefore the channel scheduler 
j-^j^u.^* ^i^.^^w^w -i.^v.v-~ ^x* ^w. w v^o. ^v- would type "SP* (supervisor ID) as the 
15, the routine puts the value to be used SYSLOG ID. The physical transients put the 
in the CAW storage protect key into the ID of the program referred to by the 
high-order digit of the second byte of the message into the message. 
RIK half word. When this value is zero, the 
low order digit has these special meanings: 

RIK Meaning; FIK (Fetch I /O Key) 

X'01' This is a SYSLOG I/O request. 

The channel scheduler is not to 

type a SYSLOG ID prefix. Used by the fetch to validate the phase 

name address and load address. FIK has the 

X , 02' This has been a fetch I/O following values: 

request. This special code is 

required by ERP to recognize SVC C onte nts 

fetch requests. 

1 Key of the problem program 
Fetch always sets a X , 02 f in the RIK. requestor. 

ERP transients put the key of the program 2 

requiring ERP into the RIK, when the ERP is 3 

a retry of a user EXCP and the ERP 4 if the transient issued the SVC 4. 
transient requires control to return to Key of the problem program if not a 

itself. transient. 
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APPENDIX F: EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



*****A1********** 



* PROCESSING 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL* IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



♦♦REFERENCES** 
**TO BMB4; ** 
**BBD4, BCB2** 
**BLJ1 ** 



IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



***************** 



*****Ql********** 

♦LABEL1 BW* 

* * 

* SUBROUTINE * 

* * 
***************** 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE START LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



.* *. 

* * 

ERROR 



*ERRTN BG* 

X* * 

* ERROR ROUTINE * 

* * 
***************** 



**D1******* 



*********** 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



*****D4********** 



***************** 



*****£!********** 



*****£5********** 



***************** 



***************** 



***F 1************ 

INPUT/OUTPUT 

* * 

***************** 



.* *. 
.* DECISION *. 



****Hl********* 

* * 

* TERMINAL * 

* * 
*************** 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONCITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



THE BEGINNING, END, OR POINT OF 
INTERRUPTION IN A PROGRAM. 



**f$******* 



.* RECORD *. YES 


♦MODIFY PRINT 


*. ALTERED .* 


.X* INSTRUCTIONS 


*. .* 


* 


*. .* 


* 


*. .* 


*********** 


* NO 


I 


I X. ............. 


' 


X 




RECPRO .*. 




G4 ** 




.* *. 




.* ALL *. NO 




*. RECORDS .*.... 




*. PROCESSED.* . 




*. .* 




*. .* X 




* YES ***** 




*BL * 




* Al* 




. * * 




. * 




PRINT 




X 




****H4********* 




* * 




* END OF JOB * 




* * 




*************** 





**** 

* * 

* B4 * 

* * 
**** 



ON-PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



***** 
*BD * 
* DA* 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR AN EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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INDEX 



Indexes to systems reference library 
manuals are consolidated in the 
publication, DOS Master Index , GC24-5063. 
For additional information about any 
subject listed below, refer to other 
publications listed for the same subject 
in the Master Index. 



A (physical) transients 22,91 
AB (abnormal termination) table 21,45 
abnormal termination (AB) table 21,45 
Am* Nat. Std. Code for Info. Interchange 

(see ASCII) 
ASCII 

address pointer 41 

CCB indicators 83 

COMREG indicator 36 

definition 415 

global setting 33 

storage location 17 

SYSGEN option 23 

text 22 

translation tables 61 
asynchronous processing 15 
attention interrupts 

physical 91 



B (logical) transients 22 
background save area 22 
background vs foreground programs 
batch job support 68 
buffer 415 



14 



cancel codes and messages 79 
CAW (channel address word) 87 

(console buffering) table 21 
(command control block) 81,83 



CBF 
CCB 
CCH 



CCW 
CE 



CCH/ERP 125 

channel check record format (Model 

155) 124 
definition 415 
function of RMS 121 
general charts (08,09) 140,141 
severity routine results 122 
(channel command word) 84 



accessing serviceability routines 65 

area 22 

table 21 
channel address word (CAW) 87 
channel check handler, see CCH 
channel command word (CCW) 84 
channel inboard error 415 
channel queue (CHANQ) table 20,35,49 



channel queue table operation 75 

channel status word (CSW) 88 

CHANQ (channel queue) table 20,35,49 

CHANQ table operation 75 

charts 

detail (see phases) 

general (see phases) 
chronological area of the recorder file 

415 
command control block (CCB) 81,83 
communications region 36 

additional 41,45 

extensions 41,45 

low core pointer 17 

SDR 21,59 
console buffering (CBF) table 21 
core image library 415 
core wrap mode 415 
CSW (channel status word) 88 



data cell error recovery 113 

data set secuirty 415 

density data 67 

detail charts (see phases) 

device error recovery sense information 

94 
device type codes 66 
diagnostic scan-out area 24 
DIB (disk information block) table 21,44 
disk error recovery 91,111 
disk information block (DIB) table 20,44 
DOS (Disk Operating System) 415 
DOS Volume Statistics 415 
DTF addresses and pointers. 



(MICR) 22,42 



ECB (event control block) 78 
emulator 

chart BH (SVC interrupt handler) 

chart DB (tape error) 185 

chart FR (SVC 45) 218 

charts BC-BE (general exit) 153 

EU parameter (SUPVR macro) 23 

globals (BG50, BG51) 32 

SYSGEN option 23 

use of SVC45 83 
ERBLOC (error recovery block) 90 
EREP 415 
ERP 

(1017,1018) 117 

(1052) 108 

(1285,1287,1288) 115 



159 



(1403,1443) 109 
(1412,1419) 115 
(1442) 110 
(2311,2314) 111 
(2321) 113 
(2400) 106 
(2495) 117 
(2501,2520,2540) 110 
(2671) 110 
(3211) 109 
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ERP (CONT.) 

System/370 CCH 121,125 
ERRLOG 

also see RDE 

definition 415 

effect of RMS 98 

function 98 

SYSGEN option 23 
error bytes 19 

error message cross reference 404 
error queue entry 90 
error recovery block (ERBLOC) 90 
error recovery message codes 95 
error recovery procedures (see ERP) 91 
error volume analysis , see EVA 
EU, see emulator 
EVA 

definition 415 

global settings (AG31,AG32) 34 

supervisor macro options 24 
event control block (ECB) 78 
external interrupt 68,69 



F/L trace (Fetch/Load Trace) 415 

FAVP (first available pointer) 35 

fetch 415 

fetch I/O key (FIK) 411 

FICL (first-in-class-list) table 35,56 

FIK (fetch I/O key) 411 

first available pointer (FAVP) 35 

first-in-class-list (FICL) table 31,56 

first^on-channel list (FOCL) 35 

flowcharts 

detail 149 

general 133 

symbol explanation 412 
FLPTR (free list pointer) 35 
FOCL (first-on-channel list) 35 
FOFT macro 

detail chart 150 

general chart 134 
free list pointer (FLPTR) 35 



general charts (see phases) 
global settings 30. 
glossary 415 
GSVC (Generalized SVC Trace) 



415 



hard wait error codes 18,19 



I/O error logging (see ERRLOG) 

I/O error recovery procedures and sense 

data 96 
I/O interrupt 68 

I/O request-I/O interrupt sequence 407 
I/O table interrelationship 35 
I/O tables and information blocks 21 
I/O trace (Input/Output Trace) 416 
IDRA 

definition 415 

description 22 

SYSGEN options 25 



Independent Directory Read-in Area, see 

IDRA 
information blocks 21 
interphase communication area (for $$ANERRZ 

Y,0) 96 
interrupts 

external 68,69 

I/O 68,68 

machine check 68,68 

physical attention 91 

program check 68,68 

supervisor call (SVC) 68 
interval timer (IT) table 21,45 
introduction 1 3 

IOCS (Input/Output Control System) 416 
IT (interval timer) table 21,45 



JA 

common table (ACCTCOMN) 43 
COMREG support 39 
definition 416 
partition table (ACCTXX) 58 
SYSGEN options 25 
table address pointers 41 
user's table (job accounting table) 
58 
JIB (job information block) table 21,35, 

51 
job information block (JIB) table 21,35, 
51 



label information format on SYSRES 

DASD 409 

tape 408 
label list 391 
LID (logical transient identification) 

410 
load list of R-transients 127,128 
logical ($$B) transients area 22 
logical transient identification (LID) 

410 
logical transient key (LTK) 410 
logical unit block (LUB) table 20,35,50 
low core 

diagnostic scan-out area 20 

error bytes 19 

permanently allocated low core 20 

text 1 8 
LTK (logical transient key) 410 
LUB (logical unit block) table 20,35,56 
LUBDSP table 49 
LUBID table 35,49 



machine check analysis and recovery, see 

MCAR 
machine check interrupt, see MCI 416 
machine check recording and recovery (see 

MCRR) 
macro 

functions 28 
relationships 1 8 
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macro (CONT.) 

system generation 23 
macros 23 

FOPT, detail chart 150 

FOPT, general chart 134 

MAPLOWC, general chart 29 

MCRAS, detail chart 224 

MCRAS, functional flow 120 

MCRAS , general chart 140 

SEND, detail chart 249 

SEND, general chart 142 

SGDFCH, detail chart 192 

SGDFCH, general chart 135 

SGDSK, detail chart 220 

SGDSK, general chart 138 

SGSVC, detail chart 203 

SGSVC, general chart 135 

SGTCHS, detail chart 163 

SGTCHS, general chart 136 

SGTCON, detail chart 222 

SGTCON, general chart 134 

SGTHAP, detail chart 257 

SGTHAP, general chart 135 

SGUNCK, detail chart 183 

SGUNCK, general chart 139 

SMCRR, detail chart 240 

SMCRR, general chart 142 

SMICR, detail chart 232 

SMICR, general chart 137 

SUPVR, detail chart 147 

SUPVR, general chart 133 

TRTAB, detail chart 61 

TRTAB, general chart 29 

TRTAB, text 22 
main storage map, supervisor 17,20 
main storage organization, multiprogramming 

13 
MAPLOWC macro 

general chart 29 
MCAR 

definition 416 

effect on ERRLOG 98 

function of RMS 119 

general chart 140 

machine check record format (Model 
155) 123 
MCI 

definition 416 

description 69 

supervisor interrupt processors 68 
MCRAS macro 

detail chart 224 

functional flow 120 

general chart 140 
MCRR 

definition 416 

linkage table 41,102 

record format 103 

record formats tables 103-106 

routine 101 

SYSGEN option 23 

valid for System/360 101 
message writer, ERP 91 
MICR 

DTF addresses and pointers tables 22 
MICR (CONTo) 



error recovery 117 
microfiche cross-reference index 413 
MODE command 121 
multiprogramming 13,68 
multitasking 1 3 



next-in-class list (NICL) table 35,56 
NICL (next-in-class-list) table 35,56 
nucleus code 20 



object module 416 
OBR/SDR 

error messages 98 

list passer 92,98 

message writer 92,98 

record builder 91,98 
OBR 

definition 416 

record format 101 

routine 98 

SYSGEN option 23 
OC (operator communications) table 21,45 
OLTEP 

linkage address 41 

SYSGEN option 27 

use of SVC25 72 

use of SVC46 74 

use of SVC51 75 
On Line Testing Executive Program, see 

OLTEP 
operator communications (OC) table 21,45 
optical reader error recovery 117 
option tables 

AB (abnormal termination) 21,45 

IT (interval timer) 21,45 

OC (operator communications) 21,45 

PC (program check) 21,45 
organization 

I/O tables and information blocks 21 

low core 18 

nucleus code 20 
outboard recorder (see OBR) 
overlay 416 



paper tape error recovery 117 
partition identifier (PID) 410 
PC (program check) table 21,45 
PCIL 

COMREG support 39,40 

definition 416 

fetching from private CIL 69 

modification to DIB 21,44 

SYSCLB as symbolic unit reference 21 

SYSCLB use in LUB 56 

SYSGEN option 25 
PDAID 

accessing routines 65 

definition 416 
permanently allocated low core 24 
phases 

$$A$SUP1, detail chart 149 
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phases (CONT.i 






phases (CONT.] 






$$A$SUP1 


r general chart 


133 


$$ANERRD 4 


general chart 


145 


$$A$SUP1, 


, text 68 




$$ANERRD 4 


r text 106 




$$ANERAA, 


f detail chart 


271 


$$ANERRE 4 


f detail chart 


285 


$$ANERAA, 


r general chart 


145 


$$ANERRE, 


general chart 


145 


$$ANERAA, 


, text 98 




$$ANERRE 4 


text 106 




$$ANERAB 


, detail chart 


313 


$$ANERRF 4 


detail chart 


287 


$$ANERAB, 


, general chart 


146 


$$ANERRF 4 


general chart 


145 


$$ANERAB, 


, text 91 




$$ANERRF, 


text 106 




$$ANERAC, 


r detail chart 


273 


$$ANERRG, 


detail chart 


305 


$$ANERAC, 


, general chart 


145 


$$ANERRG, 


general chart 


143 


$$ANERAC, 


, text 98 




$$ANERRG 4 


text 1 1 3 




$$ANERAD, 


, detail chart 


278 


$$ANERRH| 


detail chart 


308 


$$ANERAD, 


, general chart 


143 


$$ANERRH, 


general chart 


143 


$$ANERAD, 


, text 91,98 




$$ANERRH 4 


text 1 1 3 




$$ANERAE, 


, detail chart 


315 


$$ANERRI, 


f detail chart 


309 


$$ANERAE, 


r general chart 


146 


$$ANERRI, 


general chart 


143 


$$ANERAE, 


, text 91 




$$ANERRI 4 


text 1 1 3 




$$ANERAF, 


f detail chart 


275 


$$ANERRJ, 


t detail chart 


310 


$$ANERAF, 


, general chart 


145 


$$ANERRJ, 


, general chart 


143 


$$ANERAF, 


, text 91 




$$ANERRJ 4 


, text 113 




$$ANERAG, 


, detail chart 


277 


$$ANERRK 4 


f detail chart 


312 


$$ANERAG, 


t general chart 


145 


$$ANERRK 4 


t general chart 


143 


$$ANERAG, 


, text 91 




$$ANERRK 4 


, text 113 




$$ANERAI < 


, detail chart 


347 


$$ANERRL 4 


r detail chart 


289 


$$ANERAI, 


f general chart 


144 


$$ANERRL 4 


r general chart 


145 


$$ANERAI, 


, text 117 




$$ANERRL 4 


text 106 




$$ANERAJ, 


, detail chart 


348 


$$ANERRM 4 


f detail chart 


269 


$$ANERAJ, 


t general chart 


144 


$$ANERRM 4 


r general chart 


145 


$$ANERAJ, 


, text 117 




$$ANERRM 4 


, text 91,98 




$$ANERAK, 


r detail chart 


300 


$$ANERRN 4 


f detail chart 


314 


$$ANERAK, 


r general chart 


145 


$$ANERRN 4 


general chart 


146 


$$ANERAK, 


, text 106 




$$ANERRN 4 


text 9 1 




$$ANERAL, 


f detail chart 


301 


$$ANERR0 4 


f detail chart 


316 


$$ANERAL 4 


f general chart 


145 


$$ANERR0 4 


, general chart 


146 


$$ANERAL 4 


f text 91 




$$ANERR0 4 


r text 91 




$$ANERAM 4 


r detail chart 


291 


$$ANERRP 4 


t detail chart 


317 


$$ANERAM 4 


f general chart 


145 


$$ANERRP, 


t general chart 


146 


$$ANERAM 4 


r text 106 




$$ANERRP 4 


, text 91 




$$ANERAN 4 


r detail chart 


293 


$$ANERRQ 4 


t detail chart 


319 


$$ANERAN 4 


r general chart 


145 


$$ANERRQ, 


, general chart 


146 


$$ANERAN 4 


, text 106 




$$ANERRQ 4 


f text 91 




$$ANERAP 4 


, detail chart 


295 


$$ANERRR, 


, detail chart 


321 


$$ANERAP 4 


r general chart 


145 


$$ANERRR 4 


f general chart 


146 


$$ANERAP 4 


r text 106 




$$ANERRR 4 


r text 91 




$$ANERAQ 4 


, detail chart 


297 


$$ANERRS 4 


f detail chart 


322 


$$ANERAQ 4 


, general chart 


145 


$$ANERRS 4 


f general chart 


146 


$$ANERAQ, 


f text 106 




$$ANERRS, 


f text 91 




$$ANERAR 4 


, detail chart 


303 


$$ANERRT, 


f detail chart 


324 


$$ANERAR, 


f general chart 


145 


$$ANERRT, 


f general chart 


146 


$$ANERAR 4 






$$ANERRT, 


f text 117 




$$ANERAS, 


f detail chart 


304 


$$ANERRU, 


f detail chart 


325 


$$ANERAS, 


, general chart 


145 


$$ANERRU 


r general chart 


143 


$$ANERAS, 


r text 91 




$$ANERRU, 


f text 109 




$$ANERRA, 


r detail chart 


279 


$$ANERRV 


r detail chart 


327 


$$ANERRA 


, general chart 


143 


$$ANERRV 


f general chart 


143 


$$ANERRA I 


f text 91 




$$ANERRV 


r text 109 




$$ANERRB, 


r detail chart 


282 


$$ANERRW 


r detail chart 


329 


$$ANERRB, 


f general chart 


143 


$$ANERRW 


f general chart 


144 


$$ANERRB j 


r text 91 




$$ANERRW 


r text 117 




$$ANERRC, 


f detail chart 


281 


$$ANERRX 


f detail chart 


332 


$$ANERRC, 


f general chart 


143 


$$ANERRX 


f general chart 


144 


$$ANERRC, 


f text 91 




$$ANERRX 


, text 110 




$$ANERRD, 


f detail chart 


283 


$$ANERRY 


r detail chart 


334 
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f general chart 


147 


$$ANERRY 


r text 91 




$$ANERRZ, 


, detail chart 


336 


$$ANERRZ, 


r general chart 


147 


$$ANERRZ, 


r text 91 




$$ANERR0, 


f detail chart 


338 


$$ANERR0, 


f general chart 


147 


$$ANERR0 


r text 91 




$$ANERR1 t 


f detail chart 


339 


$$ANERR1, 


r text 91 




$$ANERR6, 


f detail chart 


343 


$$ANERR6, 


f general chart 


143 


$$ANERR6, 


, text 117 




$$ANERR7, 


f detail chart 


345 


$$ANERR7, 


f general chart 


143 


$$ANERR7, 


f text 117 




$$ANERR8, 


f detail chart 


346 


$$ANERR8, 


f general chart 


143 


$$ANERR8, 


r text 117 




$$ANERR9, 


f detail chart 


341 


$$ANERR9, 


f general chart 


143 
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physical ($$A) transients (CONT.) 

attention routines 91 

error messages 95 

error recovery 91 

message writer 91 

overlap option 91 

programs 92 
physical input/output control system 

(PIOCS) 81 
physical transient overlap (PTO) 91 
physical unit block (PUB) table 21,35,50 
PIB (program information block) 21,47 

flag expansions 48 

table 46,47 
PID (partition identifier) 410 
PIK (program interrupt key) 410 
PIOCS (physical input/output control 

system) 81 
PORT, SYSGEN option 23 
private library 416 
problem determination 416 
problem determination aids, see PDAID 65 
program check (PC) table 21,45 
program check interrupt 68 
program 

information block (see PIB) 

interrupt key (PIK) 410 

key definitions 410 

status word (PSW) 86 
PSW (program status word) 86 
PTO (physical transient overlap) 91 
PUB (physical unit block) table 20,35,50 



QTAM trace 416 



R (recovery) transients 22 

error messages 130 

load list 129 

operation in RMS 120 

part of RMS function 121 
RAS Monitor, see RMS 
RCB (resource control block) 78 
RDE 

definition 416 

global setting 31 

SDR flag 59 

see ERRLOG 
record format, label cylinder 

DASD 409 

tape 408 
recovery management support, see RMS 
Reliability Data Extractor, see RDE 
REQID table 35,49 
requestor I/O key (RIK) 411 
requestor identification (RID) 49,410 
resident supervisor 68 
resource control block (RCB) 78 
RETAIN/370, see RETAIN 
RETAIN 

COMREG indicator 40 

global setting 31 

SYSGEN option 25 
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RID (requestor identification) 49,410 

RIK (requestor I/O key) 411 

RMS 

(see also MCAR and CCH) 

CCH function 1 2 1 

CCH severity routine resutls 122 

CCH/ERP 125 

channel check record format (Model 
155) 124 

definition 416 

effect on ERRLOG 98 

error messages 130 

function 119 

general charts (08,09) 140,141 

generation and operation 119 

generation of system support 23 

interrogation of CSW status bits 89 

linkage area 132 

linkage area address 41 

load list 129 

machine check record format (Model 
155) 123 

MCAR function 119 

MODE command 121 

RAS monitor detail charts (HB-HC) 
225,226 

RAS monitor general chart 141 

RAS monitor operation 121 

RAS monitor table (RASTAB) 129 

system generation macros 29 

use of ERDS on SYSREC 119 

use of R-transients 127 



SAB (seek address block) 21,35 
SDR 

communications region, figure 59 

communications region, text 22 

definition 416 

device list 97 

record format 100 

routine 98 
seek address block (SAB) 21,35 
SEND macro 

detail chart 249 

general chart 142 
sense information , device error recovery 

94 
SEREP 

error bytes 19 

error codes 1 8 
SGDFCH macro 

detail chart 192 

general chart 135 
SGDSK macro 

detail chart 220 

general chart 138 
SGSVC macro 

detail chart 203 

general chart 135 
SGTCHS macro 

detail chart 163 

general chart 136 
SGTCON macro 

detail chart 222 



SGTCON macro (CONT.) 

general chart 134 
SGTHAP macro 

detail chart 257 

general chart 135 
SGUNCK macro 

detail chart 183 

general chart 139 
SMCRR macro 

detail chart 240 

general chart 142 
SMICR macro 

detail chart 232 

general chart 137 
SPARM 

address pointer 41 

option 24 
stand-alone dump 416 
statistical data recorder (see SDR) 
supervisor call interrupt, see SVC 
supervisor 

calls 69,76 

cancel codes 79 

communications regions 22,36 

generation and organization 16 

interrupt processors 68 

macros 22 

storage map 17,20 
SUPVR macro 

detail chart 149 

general chart 133 
SVC (supervisor call interrupt) 68-77 

branch table 160 

general chart 135 

list 76 
SYSCLB, see PCIL 
SYSREC 4 1 6 

CCH record format (Model 155) 124 

MCAR record format (Model 155) 123 

MCRR record formats 103 

OBR record format 100 

SDR record format 101 
SYSRES label information format 

DASD 409 

tape 408 
system generation macros 

functions 28 

globals 28,30 

SYSGEN options 23 
system program flow 12 
system recorder file, see SYSREC 
System/370 permanently allocated low core 
24 



tables 

AB 45 

ASCII 61 

CBF 21,55 

CE 21 

CHANQ 35,49,75 

DIB 21,44 

FICL 35,56 

I/O 35 
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